fix CROASCII (B1.002:1982) filter

git-svn-id: file:///home/dpavlin/private/svn/webpac/trunk@318 13eb9ef6-21d5-0310-b721-a9d68796d827

diff --git a/filter/croascii.pm b/filter/croascii.pm
index 28f5124..bc6d904 100644 (file)
--- a/filter/croascii.pm
+++ b/filter/croascii.pm
@@ -5,7 +5,7 @@ sub croascii {
        my $out = "";
        foreach (@_) {
 #              tr/^~]}\|[{@`/ÈèÆæÐ𩹮¾/;      # B1.002:1982
-               tr/^\~]}\|[{@\`/ÈèÆæðй©¾®/;    # Crolist croascii
+               tr/^~]}\\|[{@`/ÈèÆæðЩ¹®¾/;     # Crolist croascii
                # Crolist alternative encoding
                s/ÏC/È/g;
                s/Ïc/è/g;