Changeset 18913 for gsdl/trunk/perllib
- Timestamp:
- 2009-04-08T13:59:52+12:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/util.pm
r18657 r18913 615 615 # my ($cpackage,$cfilename,$cline,$csubr,$chas_args,$cwantarray) = caller(1); 616 616 # print STDERR "Calling method; $cfilename:$cline $cpackage->$csubr\n"; 617 618 # Check for empty first filename619 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/) { 620 620 unshift(@filenames, $first_file); 621 621 }
Note:
See TracChangeset
for help on using the changeset viewer.