- fixes #6. Removed uninitialized keys from being printed in nuvinfo.

Beirdo · Beirdo · commit fdb320cbf95c · 2005-05-06T04:11:40.000Z
diff --git a/trunk/nuvinfo b/trunk/nuvinfo
@@ -19,6 +19,7 @@
 # Print the info
     print "\ninfo for: $file\n\n";
     foreach $key (sort keys %info) {
+        next unless defined $info{$key};
         print ' ' x (23 - length($key)) if (length($key) < 23);
         print "$key:  $info{$key}\n";
     }

Original file line number	Diff line number	Diff line change
`@@ -19,6 +19,7 @@`
`19`	`19`	`# Print the info`
`20`	`20`	`print "\ninfo for: $file\n\n";`
`21`	`21`	`foreach $key (sort keys %info) {`
	`22`	`+ next unless defined $info{$key};`
`22`	`23`	`print ' ' x (23 - length($key)) if (length($key) < 23);`
`23`	`24`	`print "$key: $info{$key}\n";`
`24`	`25`	`}`