Changeset 15113 for gsdl/trunk

Timestamp:

2008-03-20T20:34:59+13:00 (16 years ago)

Author:

ak19

Message:

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

File:

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

gsdl/trunk/perllib/util.pm

@@ -577 +577 @@
     my (@filenames) = @_;
 
+#   Useful for debugging
+#   my ($cpackage,$cfilename,$cline,$csubr,$chas_args,$cwantarray) = caller(0);
+#   print STDERR "Calling method; $cfilename:$cline $cpackage->$csubr\n";
+
     # Check for empty first filename
     if ($first_file =~ /\S/) {