From 369a8fb306d892eef9d69a1c7bfa240fb57650b2 Mon Sep 17 00:00:00 2001
From: Bart Van Assche <bvanassche@acm.org>
Date: Tue, 26 Aug 2014 09:56:54 +0000
Subject: [PATCH] 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 | 3 +++
 1 file changed, 3 insertions(+)

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 47e9ad172..11370124c 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
@@ -4708,6 +4708,9 @@ sub sessions {
 				}
 			} else {
 				my $mode = (stat($pPath))[2];
+				if (!$mode) {
+					$mode = 0;
+				}
 				if (-d $pPath) {
 					# Skip directories
 				} else {