Changeset 22856

Timestamp:

2010-09-06T19:04:27+12:00 (13 years ago)

Author:

davidb

Message:

Tidy up of caller() debug statements

File:

• main/trunk/greenstone2/perllib/util.pm (modified) (2 diffs)

main/trunk/greenstone2/perllib/util.pm

@@ -686 +686 @@
 #     -- might make sense to call caller(0) rather than (1)??
 #   my ($cpackage,$cfilename,$cline,$csubr,$chas_args,$cwantarray) = caller(1);
-#   print STDERR "Calling method; $cfilename:$cline $cpackage->$csubr\n";
+#   print STDERR "Calling method: $cfilename:$cline $cpackage->$csubr\n";
    
     # If first_file is not null or empty, then add it back into the list
@@ -1159 +1159 @@
     print STDERR "WARNING: no file renaming method specified. Defaulting to using URL encoding...\n";
     # Debugging information
-    my ($cpackage,$cfilename,$cline,$csubr,$chas_args,$cwantarray) = caller(1);
-    print STDERR "Called from method: $cfilename:$cline $cpackage->$csubr\n";
+    # my ($cpackage,$cfilename,$cline,$csubr,$chas_args,$cwantarray) = caller(1);
+    # print STDERR "Called from method: $cfilename:$cline $cpackage->$csubr\n";
     $rename_method = "url";
     } elsif($rename_method eq "none") {