r689@llin: dpavlin | 2006-05-18 15:45:23 +0200

[webpac2] / lib / WebPAC / Input.pm

diff --git a/lib/WebPAC/Input.pm b/lib/WebPAC/Input.pm
index bc4350e..de649c0 100644 (file)
--- a/lib/WebPAC/Input.pm
+++ b/lib/WebPAC/Input.pm
@@ -243,7 +243,7 @@ sub open {
        my $to_rec = $size;
 
        if (my $s = $self->{offset}) {
-               $log->info("skipping to MFN $s");
+               $log->debug("skipping to MFN $s");
                $from_rec = $s;
        } else {
                $self->{offset} = $from_rec;
@@ -451,7 +451,7 @@ sub stats {
                        my $v = $s->{fld}->{$f} || die "no s->{fld}->{$f}";
                        $max_fld = $v if ($v > $max_fld);
 
-                       my $o = sprintf("%4d %d ~", $f, $v);
+                       my $o = sprintf("%4s %d ~", $f, $v);
 
                        if (defined($s->{sf}->{$f})) {
                                map {
@@ -464,7 +464,7 @@ sub stats {
                        }
 
                        $o;
-               } sort { $a <=> $b } keys %{ $s->{fld} }
+               } sort { $a cmp $b } keys %{ $s->{fld} }
        );
 
        $log->debug( sub { Dumper($s) } );