Changeset 10983

Timestamp:

2005-12-09T11:20:33+13:00 (18 years ago)

Author:

jrm21

Message:

better error message when we can't load an encoding

File:

• trunk/gsdl/perllib/unicode.pm (modified) (2 diffs)

trunk/gsdl/perllib/unicode.pm

@@ -210 +210 @@
                       "to_uc", $enc_info->{'mapfile'});
     if (!&loadmapencoding ($encodename, $mapfile)) {
-    print STDERR "unicode: ERROR - could not load encoding $encodename\n";
+    print STDERR "unicode: ERROR - could not load encoding $encodename: $! $mapfile\n";
     return [];
     }
@@ -462 +462 @@
                       "from_uc", $enc_info->{'mapfile'});
     if (!&loadmapencoding ($encodename, $mapfile)) {
-    print STDERR "unicode: ERROR - could not load encoding $encodename\n";
+    print STDERR "unicode: ERROR - could not load encoding $encodename: $! $mapfile\n";
     return "";
     }