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);