diff --git a/lib/Parse/Arcconf.pm b/lib/Parse/Arcconf.pm index 545087f03a0af4312aeb863a1ad1f21ce1c84f7c..2a4cd9111d2340a9612023ee219812d58a168a91 100644 --- a/lib/Parse/Arcconf.pm +++ b/lib/Parse/Arcconf.pm @@ -207,7 +207,7 @@ sub parse_config_fh $ctrl->{'logical drive'}{$current_logical_drive}{$1} = $2; } elsif ($line =~ /^\s+-+$/) { my $cat = <$fh>; - $cat =~ s/^\s+(\S.*\S+)\s+/\1/; + $cat =~ s/^\s+(\S.*\S+)\s+/$1/; chomp $cat; LEVEL5: while($line = <$fh>) { chomp $line;