From 009990b60c3dbe8510d2cd032859bca00f6fe27a Mon Sep 17 00:00:00 2001
From: Mathieu Alorent <github@kumy.net>
Date: Fri, 29 Jun 2012 12:34:06 +0200
Subject: [PATCH] better written of sed expression
---
lib/Parse/Arcconf.pm | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/lib/Parse/Arcconf.pm b/lib/Parse/Arcconf.pm
index 545087f..2a4cd91 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;
--
GitLab