oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

a better stack trace

Browse source
This commit is contained in:
JT Smith 2003-05-04 22:21:11 +00:00
parent 8cba918d7f
commit f0f79a39d6
1 changed files with 7 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

12
lib/WebGUI/ErrorHandler.pm
View file

@ -192,11 +192,13 @@ Returns a text formatted message containing the current stack trace.
=cut =cut
sub getStackTrace { sub getStackTrace {
my $data = "\t".join(",",caller(2))."\n"; my $i = 2;
$data .= "\t".join(",",caller(3))."\n"; my $output;
$data .= "\t".join(",",caller(4))."\n"; while (my @data = caller($i)) {
$data .= "\t".join(",",caller(5))."\n"; $output .= "\t".join(",",@data)."\n";
return $data; $i++;
}
return $output;
} }