elsif ($trem =~ /^Caught fatal signal /) { $cmt = "SG"; }
elsif ($trem =~ /^([A-Za-z])\S*\s+([A-Za-z])/) {
($cmt = "$1$2") =~ tr/a-z/A-Z/;
+ } elsif ($trem =~ /^([A-Za-z]{2})/) {
+ ($cmt = $1) =~ tr/a-z/A-Z/;
}
if (!defined $messages{$trem}) {
$messages{$trem} = $cmt;
} else {
${table[$j]}[0] = $j+1 . ".-" . $i . ".";
$j++;
- while ($j < $i) { ${table[$j++]}[0] = ""; };
+ while ($j < $i) { ${table[$j++]}[0] = " "; };
}
}
print STDERR "OK\n";
print "<tr>$hdr2</tr>\n" if $detail;
}
+
+close STDOUT;