Changeset 18913

Show
Ignore:
Timestamp:
08.04.2009 13:59:52 (11 years ago)
Author:
kjdon
Message:

check whether first_file is defined before matching on a regex

Files:
1 modified

Legend:

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

    r18657 r18913  
    615615#   my ($cpackage,$cfilename,$cline,$csubr,$chas_args,$cwantarray) = caller(1); 
    616616#   print STDERR "Calling method; $cfilename:$cline $cpackage->$csubr\n"; 
    617  
    618     # Check for empty first filename 
    619     if ($first_file =~ /\S/) { 
     617    
     618    # If first_file is not null or empty, then add it back into the list 
     619    if (defined $first_file && $first_file =~ /\S/) { 
    620620    unshift(@filenames, $first_file); 
    621621    }