browser: prevent undefinedness warning
authorMischa POSLAWSKY <perl@shiar.org>
Thu, 18 Nov 2010 22:54:31 +0000 (23:54 +0100)
committerMischa POSLAWSKY <perl@shiar.org>
Mon, 6 Dec 2010 00:04:46 +0000 (01:04 +0100)
browser.plp

index fc04389c7df2c95d6e7b598258b0d0dd7de847f6..fc3d5f034c26053fda3476e55ad705aa478d8873 100644 (file)
@@ -195,7 +195,7 @@ print '</table>';
 sub paddedver {
        # normalised version number comparable as string (cmp)
        shift =~ /^(\d*)(.*)/;
 sub paddedver {
        # normalised version number comparable as string (cmp)
        shift =~ /^(\d*)(.*)/;
-       return sprintf('%02d', $1) . $2;
+       return sprintf('%02d', $1 || 0) . $2;
 }
 
 sub showversions {
 }
 
 sub showversions {