From 5e876ece6477bcff745dee98b19309c88d9a890e Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Mon, 26 Sep 2011 15:21:53 +0200
Subject: [PATCH] fix more quirks in right column parsing

---
 lib/H1/ZTEMSAN.pm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

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";
-- 
2.20.1