Changeset 19026 for gsdl/trunk/perllib
- Timestamp:
- 2009-04-17T03:09:17+12:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/gsprintf.pm
r18981 r19026 213 213 return if (!defined $resourcebundle); 214 214 215 my @extensions = split(/:/,$ENV{'GSDLEXTS'}); 216 foreach my $e (@extensions) { 217 my $ext_base 218 = &util::filename_cat($bundle_base,"ext",$e); 219 220 my $ext_resourcebundlefile 221 = &util::filename_cat($ext_base,$primary_dir,$resourcename); 222 223 # can ignore return value (will be same reference to $resourcebundle) 224 read_resource_bundle($ext_resourcebundlefile,$resourcebundle); 215 if (defined $ENV{'GSDLEXTS'}) { 216 my @extensions = split(/:/,$ENV{'GSDLEXTS'}); 217 foreach my $e (@extensions) { 218 my $ext_base 219 = &util::filename_cat($bundle_base,"ext",$e); 220 221 my $ext_resourcebundlefile 222 = &util::filename_cat($ext_base,$primary_dir,$resourcename); 223 224 # can ignore return value (will be same reference to $resourcebundle) 225 read_resource_bundle($ext_resourcebundlefile,$resourcebundle); 226 } 225 227 } 226 228
Note:
See TracChangeset
for help on using the changeset viewer.