supprot \x42 HEX numbers in recode

[webpac2] / lib / WebPAC / Input.pm

diff --git a/lib/WebPAC/Input.pm b/lib/WebPAC/Input.pm
index dc33db8..462a303 100644 (file)
--- a/lib/WebPAC/Input.pm
+++ b/lib/WebPAC/Input.pm
@@ -206,6 +206,7 @@ sub open {
                        while (@r) {
                                my $from = shift @r;
                                my $to = shift @r;
+                               $from =~ s/^\\x([0-9a-f]{2})/chr(hex($1))/eig;
                                $recode_map->{$from} = $to;
                        }
 
@@ -276,7 +277,7 @@ sub open {
 
        my $strict_encoding = $arg->{strict_encoding} || $self->{strict_encoding}; ## FIXME should be 1 really
 
-       $log->info("processing $self->{size}/$size records [$from_rec-$to_rec]",
+       $log->info("processing ", $self->{size} || 'all', "/$size records [$from_rec-$to_rec]",
                " encoding $input_encoding ", $strict_encoding ? ' [strict]' : '',
                $self->{stats} ? ' [stats]' : '',
        );