Changeset 19026

Show
Ignore:
Timestamp:
17.04.2009 03:09:17 (11 years ago)
Author:
davidb
Message:

added 'if defined ...

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • gsdl/trunk/perllib/gsprintf.pm

    r18981 r19026  
    213213    return if (!defined $resourcebundle); 
    214214 
    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    } 
    225227    } 
    226228