Changeset 32324 for main/trunk
- Timestamp:
- 2018-08-06T20:03:35+12:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/util.pm
r32306 r32324 686 686 while(1) { 687 687 my ($cpackage,$cfilename,$cline,$csubr,$chas_args,$cwantarray) = caller($depth); 688 last unless defined $cfilename; # when call stack printed in full688 last unless (defined $cfilename && defined $cline && defined $cpackage); # when call stack printed in full 689 689 my ($lcfilename) = ($cfilename =~ m/([^\\\/]*)$/); 690 690 print STDERR "\t$lcfilename:$cline $cpackage->$csubr\n"; … … 693 693 # So this method prints out maxdepth+1 callers 694 694 last if($maxdepth && $depth > $maxdepth); 695 } 696 } 695 } 696 return ""; 697 } 698 697 699 698 700 # returns 1 if filename1 and filename2 point to the same
Note:
See TracChangeset
for help on using the changeset viewer.