From c569b7e8a19ea6300e4d4b0b40a6d0ff736d43ac Mon Sep 17 00:00:00 2001 From: Bart Van Assche Date: Thu, 17 May 2012 12:54:42 +0000 Subject: [PATCH] scstadmin: Rework r4304. git-svn-id: http://svn.code.sf.net/p/scst/svn/trunk@4305 d57e44dd-8a1f-0410-8b47-8ef2f437770f --- scstadmin/scstadmin.sysfs/scst-0.9.10/lib/SCST/SCST.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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 947ba1a36..5f0ff2e16 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 @@ -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 {