work with fields which have number 0 (as opposed to 000) which has been

noticed in the wild (invalid, but --stats shouldn't really die)

git-svn-id: svn+ssh://mjesec/home/dpavlin/svn/webpac2/trunk@844 07558da8-63fa-0310-ba24-9fe276d99e06

diff --git a/lib/WebPAC/Input.pm b/lib/WebPAC/Input.pm
index 8746da9..4cd56f1 100644 (file)
--- a/lib/WebPAC/Input.pm
+++ b/lib/WebPAC/Input.pm
@@ -519,7 +519,8 @@ sub stats {
 
        my $out = join("\n",
                map {
-                       my $f = $_ || die "no field";
+                       my $f = $_;
+                       die "no field in ", dump( $s->{fld} ) unless defined( $f );
                        my $v = $s->{fld}->{$f} || die "no s->{fld}->{$f}";
                        $max_fld = $v if ($v > $max_fld);