Skip to content
Snippets Groups Projects
Commit 009990b6 authored by Mathieu Alorent's avatar Mathieu Alorent
Browse files

better written of sed expression

parent 07b0fe92
No related branches found
No related tags found
No related merge requests found
...@@ -207,7 +207,7 @@ sub parse_config_fh ...@@ -207,7 +207,7 @@ sub parse_config_fh
$ctrl->{'logical drive'}{$current_logical_drive}{$1} = $2; $ctrl->{'logical drive'}{$current_logical_drive}{$1} = $2;
} elsif ($line =~ /^\s+-+$/) { } elsif ($line =~ /^\s+-+$/) {
my $cat = <$fh>; my $cat = <$fh>;
$cat =~ s/^\s+(\S.*\S+)\s+/\1/; $cat =~ s/^\s+(\S.*\S+)\s+/$1/;
chomp $cat; chomp $cat;
LEVEL5: while($line = <$fh>) { LEVEL5: while($line = <$fh>) {
chomp $line; chomp $line;
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment