Changeset 15113
- Timestamp:
- 2008-03-20T20:34:59+13:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/util.pm
r15088 r15113 577 577 my (@filenames) = @_; 578 578 579 # Useful for debugging 580 # my ($cpackage,$cfilename,$cline,$csubr,$chas_args,$cwantarray) = caller(0); 581 # print STDERR "Calling method; $cfilename:$cline $cpackage->$csubr\n"; 582 579 583 # Check for empty first filename 580 584 if ($first_file =~ /\S/) {
Note:
See TracChangeset
for help on using the changeset viewer.