my $last_line;
foreach my $line ( split(/[\n\r]+/, $out) ) {
warn "# $line\n";
- if ( $line =~ m/^(\S+.*?)\s+:+\s+(\S+.*?)\s*$/ ) {
+ if ( $line =~ m/^(\S+.*?)\s*:+\s+(\S+.*?)\s*$/ ) {
my ($n,$v) = ($1,$2);
$n =~ s/\(.+\)//;
if ( $v =~ s/\s+(\S+)\s*:\s+(\S+.+)// ) {
# strip second column
my ($n2,$v2) = ($1,$2);
$n2 =~ s/\(.+\)//;
- $hash->{ $section . $n2 } = $2;
+ $hash->{ $section . $n2 } = $v2;
+ warn "## $n2 = $v2\n";
}
$hash->{ $section . $n } = $v;
warn "## $n = $v\n";