Changeset 10982 for trunk/gsdl

Timestamp:

2005-12-09T11:16:56+13:00 (18 years ago)

Author:

jrm21

Message:

better handle a missing strings.rb bundle file, and print a warning to
STDERR.

File:

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

trunk/gsdl/perllib/gsprintf.pm

@@ -156 +156 @@
 
     %defaultresourcebundle = &read_resource_bundle($resourcebundlefile);
-    return if (!%defaultresourcebundle);
+    if (!%defaultresourcebundle) {
+        # $! will still have the error value for the last failed syscall
+        print STDERR "$! $resourcebundlefile\n";
+    # set something so we don't bother trying to load it again
+    $defaultresourcebundle{0}=undef; 
+        return;
+    }
 
     # Read the output encoding to use from the resource bundle
@@ -175 +181 @@
     $englishoutputencoding = $specialoutputencoding;
     }
-    if ($defaultresourcebundle{"{Language.code}"} eq "en") {
+    
+    if ($defaultresourcebundle{"{Language.code}"} &&
+        $defaultresourcebundle{"{Language.code}"} eq "en") {
     %englishresourcebundle = %defaultresourcebundle;
     $englishoutputencoding = $defaultoutputencoding;