supprot \x42 HEX numbers in recode

[webpac2] / lib / WebPAC / Input.pm

diff --git a/lib/WebPAC/Input.pm b/lib/WebPAC/Input.pm
index 34e59c4..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;
                        }