From 7d3686b48179d915d15f0babd58b43a914f5dbf9 Mon Sep 17 00:00:00 2001
From: Bart Van Assche <bvanassche@acm.org>
Date: Tue, 24 Feb 2015 14:46:10 +0000
Subject: [PATCH] scstadmin: Suppress a Perl warning

git-svn-id: http://svn.code.sf.net/p/scst/svn/trunk@6134 d57e44dd-8a1f-0410-8b47-8ef2f437770f
---
 scstadmin/scstadmin.sysfs/scst-0.9.10/lib/SCST/SCST.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/scstadmin/scstadmin.sysfs/scst-0.9.10/lib/SCST/SCST.pm b/scstadmin/scstadmin.sysfs/scst-0.9.10/lib/SCST/SCST.pm
index 0b2bb7065..a74d5ad03 100644
--- a/scstadmin/scstadmin.sysfs/scst-0.9.10/lib/SCST/SCST.pm
+++ b/scstadmin/scstadmin.sysfs/scst-0.9.10/lib/SCST/SCST.pm
@@ -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);