mirrors/scst
1
0
Fork 0
mirror of https://github.com/SCST-project/scst.git synced 2026-08-20 14:16:31 +00:00
Code Issues Packages Projects Releases Wiki Activity

scstadmin: Suppress a Perl warning

Browse Source 
git-svn-id: http://svn.code.sf.net/p/scst/svn/trunk@6134 d57e44dd-8a1f-0410-8b47-8ef2f437770f
This commit is contained in:
Bart Van Assche
2015-02-24 14:46:10 +00:00
parent 1b31f90912
commit 7d3686b481
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
scstadmin/scstadmin.sysfs/scst-0.9.10/lib/SCST/SCST.pm
+2 -1
View File
@@ -4701,7 +4701,8 @@ sub sessions {
my $linked = readlink $pPath;
my $g = SCST_GROUPS;
my $l = SCST_LUNS;
if ($linked =~ /\.\.\/\.\.\/$g\/(.*)\/$l/) {
if (defined($linked) &&
$linked =~ /\.\.\/\.\.\/$g\/(.*)\/$l/) {
my $group = $1;
$_sessions{$session}->{$attribute} =
$self->luns($driver, $target, $group);