fix parsing of optional values

diff --git a/lib/H1/ZTEMSAN.pm b/lib/H1/ZTEMSAN.pm
index 4703020..e1051ea 100644 (file)
--- a/lib/H1/ZTEMSAN.pm
+++ b/lib/H1/ZTEMSAN.pm
@@ -33,10 +33,10 @@ 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+.+)// ) {
+                       if ( $v =~ s/\s+(\S+)\s*:\s*(\S*.*?)\s*$// ) {
                                # strip second column
                                my ($n2,$v2) = ($1,$2);
                                $n2 =~ s/\(.+\)//;