From 452603a5fcd029eaceced60658afdfe5cc586e29 Mon Sep 17 00:00:00 2001
From: Bart Van Assche <bvanassche@acm.org>
Date: Tue, 10 Feb 2015 13:53:15 +0000
Subject: [PATCH] scstadmin: Suppress a Perl warning (merge r5731 from trunk)

git-svn-id: http://svn.code.sf.net/p/scst/svn/branches/2.2.x@6057 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 69b189612..0b2bb7065 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 {