Ignore:
Timestamp:
2010-09-06T19:04:27+12:00 (13 years ago)
Author:
davidb
Message:

Tidy up of caller() debug statements

File:
1 edited

Legend:

Unmodified
Added
Removed
  • main/trunk/greenstone2/perllib/util.pm

    r22438 r22856  
    686686#     -- might make sense to call caller(0) rather than (1)??
    687687#   my ($cpackage,$cfilename,$cline,$csubr,$chas_args,$cwantarray) = caller(1);
    688 #   print STDERR "Calling method; $cfilename:$cline $cpackage->$csubr\n";
     688#   print STDERR "Calling method: $cfilename:$cline $cpackage->$csubr\n";
    689689   
    690690    # If first_file is not null or empty, then add it back into the list
     
    11591159    print STDERR "WARNING: no file renaming method specified. Defaulting to using URL encoding...\n";
    11601160    # Debugging information
    1161     my ($cpackage,$cfilename,$cline,$csubr,$chas_args,$cwantarray) = caller(1);
    1162     print STDERR "Called from method: $cfilename:$cline $cpackage->$csubr\n";
     1161    # my ($cpackage,$cfilename,$cline,$csubr,$chas_args,$cwantarray) = caller(1);
     1162    # print STDERR "Called from method: $cfilename:$cline $cpackage->$csubr\n";
    11631163    $rename_method = "url";
    11641164    } elsif($rename_method eq "none") {
Note: See TracChangeset for help on using the changeset viewer.