Changeset 15113

Show
Ignore:
Timestamp:
20.03.2008 20:34:59 (11 years ago)
Author:
ak19
Message:

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

Files:
1 modified

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/) {