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
This commit is contained in:
Bart Van Assche
2015-02-10 13:53:15 +00:00
parent 80af39b041
commit 452603a5fc

View File

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