From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Mon, 26 Sep 2011 13:21:53 +0000 (+0200)
Subject: fix more quirks in right column parsing
X-Git-Url: http://git.rot13.org/?p=APKPM.git;a=commitdiff_plain;h=5e876ece6477bcff745dee98b19309c88d9a890e

fix more quirks in right column parsing
---

diff --git a/lib/H1/ZTEMSAN.pm b/lib/H1/ZTEMSAN.pm
index 4bf8144..85c81bb 100644
--- a/lib/H1/ZTEMSAN.pm
+++ b/lib/H1/ZTEMSAN.pm
@@ -33,14 +33,15 @@ sub parse {
 	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";