Show
Ignore:
Timestamp:
06.08.2018 20:03:35 (15 months ago)
Author:
ak19
Message:

Minor changes to util.pm before committing a bugfix.

Files:
1 modified

Legend:

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

    r32306 r32324  
    686686    while(1) { 
    687687    my ($cpackage,$cfilename,$cline,$csubr,$chas_args,$cwantarray) = caller($depth); 
    688     last unless defined $cfilename; # when call stack printed in full 
     688    last unless (defined $cfilename && defined $cline && defined $cpackage); # when call stack printed in full 
    689689    my ($lcfilename) = ($cfilename =~ m/([^\\\/]*)$/); 
    690690    print STDERR "\t$lcfilename:$cline $cpackage->$csubr\n"; 
     
    693693    # So this method prints out maxdepth+1 callers 
    694694    last if($maxdepth && $depth > $maxdepth); 
    695     }     
    696 } 
     695    } 
     696    return ""; 
     697} 
     698 
    697699 
    698700# returns 1 if filename1 and filename2 point to the same