Changeset 15113


Ignore:
Timestamp:
2008-03-20T20:34:59+13:00 (14 years ago)
Author:
ak19
Message:

Added Dr Bainbridge's code to trackback caller to filename_cat subroutine

File:
1 edited

Legend:

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

    r15088 r15113  
    577577    my (@filenames) = @_;
    578578
     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
    579583    # Check for empty first filename
    580584    if ($first_file =~ /\S/) {
Note: See TracChangeset for help on using the changeset viewer.