scstadmin: Avoid that the Perl interpreter prints a warning message about using an undefined variable on Fedora systems

git-svn-id: http://svn.code.sf.net/p/scst/svn/trunk@5731 d57e44dd-8a1f-0410-8b47-8ef2f437770f

scstadmin/scstadmin.sysfs/scst-0.9.10/lib/SCST/SCST.pm

@@ -4708,6 +4708,9 @@ sub sessions {
 				}
 			} else {
 				my $mode = (stat($pPath))[2];
+				if (!$mode) {
+					$mode = 0;
+				}
 				if (-d $pPath) {
 					# Skip directories
 				} else {