From f0e023fb4d3cc764daa3cdcd13fc65982f7f0774 Mon Sep 17 00:00:00 2001 From: Mark Buechler Date: Wed, 22 Sep 2010 17:57:47 +0000 Subject: [PATCH] - Fix for attributes without values from trunk. git-svn-id: http://svn.code.sf.net/p/scst/svn/branches/2.0.0.x@2165 d57e44dd-8a1f-0410-8b47-8ef2f437770f --- scstadmin/scstadmin.sysfs/scstadmin | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/scstadmin/scstadmin.sysfs/scstadmin b/scstadmin/scstadmin.sysfs/scstadmin index 987bca186..1ca8cd68b 100755 --- a/scstadmin/scstadmin.sysfs/scstadmin +++ b/scstadmin/scstadmin.sysfs/scstadmin @@ -4184,10 +4184,11 @@ sub configToAttr { my %attributes; foreach my $attr (keys %{$config}) { - if ((keys %{$$config{$attr}}) > 1) { + if (!scalar keys %{$$config{$attr}}) { + $attributes{$attr} = ''; + } elsif ((keys %{$$config{$attr}}) > 1) { foreach my $value (keys %{$$config{$attr}}) { - push @{$attributes{$attr}}, $value if (defined($value) && - ($value ne '')); + push @{$attributes{$attr}}, $value; } } else { foreach my $value (keys %{$$config{$attr}}) {