scstadmin: Rework r4304.

git-svn-id: http://svn.code.sf.net/p/scst/svn/trunk@4305 d57e44dd-8a1f-0410-8b47-8ef2f437770f
This commit is contained in:
Bart Van Assche
2012-05-17 12:54:42 +00:00
parent 00caf4d5c9
commit c569b7e8a1

View File

@@ -2831,12 +2831,12 @@ sub targetAttributes {
$self->{'err_string'} = "targetAttributes(): Unable to read directory '$_session_path': $!";
return undef;
}
my $session_name;
my $key = 0;
foreach my $e (readdir($pSessHandle)) {
next if ($e eq '.' || $e eq '..');
$session_name = $e;
$attributes{'session_name'}->{'keys'}->{$key}->{'value'} = $e;
$key++;
}
$attributes{'session_name'}->{'keys'}->{'0'}->{'value'} = $session_name;
} elsif (-d $pPath) {
# Skip directories
} else {