Changeset 22856

Show
Ignore:
Timestamp:
06.09.2010 19:04:27 (9 years ago)
Author:
davidb
Message:

Tidy up of caller() debug statements

Files:
1 modified

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