Changeset 7828

Timestamp:

2004-07-30T12:55:02+12:00 (20 years ago)

Author:

jrm21

Message:

use strict (caught an error/typo).

use perl's Exporter module, so we can export symbols (currently only
gsprintf() function).

File:

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

trunk/gsdl/perllib/gsprintf.pm

@@ -23 +23 @@
 #
 ###########################################################################
-
+use strict;
+no strict 'refs';
 
 package gsprintf;
-
+require Exporter;
+@gsprintf::ISA=qw(Exporter);
 
 use unicode;
 use util;
+
+@gsprintf::EXPORT_OK = qw'gsprintf'; # functions we can export into namespace
 
 
@@ -148 +152 @@
     # Ensure the English resource bundle hasn't already been loaded
     if ($specialresourcebundle{"{Language.code}"} eq "en") {
-    $englishresourcebundle = $specialresourcebundle;
+    %englishresourcebundle = %specialresourcebundle;
     $englishoutputencoding = $specialoutputencoding;
     }
     if ($defaultresourcebundle{"{Language.code}"} eq "en") {
-    $englishresourcebundle = $defaultresourcebundle;
+    %englishresourcebundle = %defaultresourcebundle;
     $englishoutputencoding = $defaultoutputencoding;
     }
@@ -187 +191 @@
     # Parse the resource bundle
     my %resourcebundle = ();
-    foreach $line (@resourcebundlelines) {
+    foreach my $line (@resourcebundlelines) {
     # Remove any trailing whitespace
     $line =~ s/(\s*)$//;