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
sub getStackTrace {
my $data = "\t".join(",",caller(2))."\n";
$data .= "\t".join(",",caller(3))."\n";
$data .= "\t".join(",",caller(4))."\n";
$data .= "\t".join(",",caller(5))."\n";
return $data;
my $i = 2;
my $output;
while (my @data = caller($i)) {
$output .= "\t".join(",",@data)."\n";
$i++;
}
return $output;
}