Changeset 18913 for gsdl/trunk/perllib/util.pm

Timestamp:

2009-04-08T13:59:52+12:00 (15 years ago)

Author:

kjdon

Message:

check whether first_file is defined before matching on a regex

File:

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

gsdl/trunk/perllib/util.pm

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