scstadmin: Suppress a Perl warning (merge r5731 from trunk)

git-svn-id: http://svn.code.sf.net/p/scst/svn/branches/3.0.x@5778 d57e44dd-8a1f-0410-8b47-8ef2f437770f
2026-08-20 22:26:23 +00:00 · 2014-09-04 13:55:04 +00:00
parent 7c6188422f
commit 1dd9dec15f
1 changed files with 3 additions and 0 deletions
@@ -4708,6 +4708,9 @@ sub sessions {
 				}
 			} else {
 				my $mode = (stat($pPath))[2];
+				if (!$mode) {
+					$mode = 0;
+				}
 				if (-d $pPath) {
 					# Skip directories
 				} else {