r878@llin: dpavlin | 2006-08-26 14:00:08 +0200

[webpac2] / t / 6-unit.t

diff --git a/t/6-unit.t b/t/6-unit.t
index 480e7bd..6a6c519 100755 (executable)
--- a/t/6-unit.t
+++ b/t/6-unit.t
@@ -48,7 +48,7 @@ ok(my $isis = new WebPAC::Input(
 
 ok(my $maxmfn = $isis->open(
        path => $isis_file,
-       code_page => '852',             # database encoding
+       code_page => 'cp852',           # database encoding
        lookup_coderef => sub {
                my $rec = shift || return;
                $lookup->add( $rec );