Changeset 7828 for trunk/gsdl
- Timestamp:
- 2004-07-30T12:55:02+12:00 (20 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/gsprintf.pm
r6993 r7828 23 23 # 24 24 ########################################################################### 25 25 use strict; 26 no strict 'refs'; 26 27 27 28 package gsprintf; 28 29 require Exporter; 30 @gsprintf::ISA=qw(Exporter); 29 31 30 32 use unicode; 31 33 use util; 34 35 @gsprintf::EXPORT_OK = qw'gsprintf'; # functions we can export into namespace 32 36 33 37 … … 148 152 # Ensure the English resource bundle hasn't already been loaded 149 153 if ($specialresourcebundle{"{Language.code}"} eq "en") { 150 $englishresourcebundle = $specialresourcebundle;154 %englishresourcebundle = %specialresourcebundle; 151 155 $englishoutputencoding = $specialoutputencoding; 152 156 } 153 157 if ($defaultresourcebundle{"{Language.code}"} eq "en") { 154 $englishresourcebundle = $defaultresourcebundle;158 %englishresourcebundle = %defaultresourcebundle; 155 159 $englishoutputencoding = $defaultoutputencoding; 156 160 } … … 187 191 # Parse the resource bundle 188 192 my %resourcebundle = (); 189 foreach $line (@resourcebundlelines) {193 foreach my $line (@resourcebundlelines) { 190 194 # Remove any trailing whitespace 191 195 $line =~ s/(\s*)$//;
Note:
See TracChangeset
for help on using the changeset viewer.