Changeset 19026

Timestamp:

2009-04-17T03:09:17+12:00 (15 years ago)

Author:

davidb

Message:

added 'if defined ...

File:

• gsdl/trunk/perllib/gsprintf.pm (modified) (1 diff)

gsdl/trunk/perllib/gsprintf.pm

@@ -213 +213 @@
     return if (!defined $resourcebundle);
 
-    my @extensions = split(/:/,$ENV{'GSDLEXTS'});
-    foreach my $e (@extensions) {   
-    my $ext_base
-        = &util::filename_cat($bundle_base,"ext",$e);
-
-    my $ext_resourcebundlefile 
-        = &util::filename_cat($ext_base,$primary_dir,$resourcename);
-
-    # can ignore return value (will be same reference to $resourcebundle)
-    read_resource_bundle($ext_resourcebundlefile,$resourcebundle);
+    if (defined $ENV{'GSDLEXTS'}) {
+    my @extensions = split(/:/,$ENV{'GSDLEXTS'});
+    foreach my $e (@extensions) {   
+        my $ext_base
+        = &util::filename_cat($bundle_base,"ext",$e);
+        
+        my $ext_resourcebundlefile 
+        = &util::filename_cat($ext_base,$primary_dir,$resourcename);
+        
+        # can ignore return value (will be same reference to $resourcebundle)
+        read_resource_bundle($ext_resourcebundlefile,$resourcebundle);
+    }
     }