From f0f79a39d6fa659f7f6dac6e314ff1beb0dd625b Mon Sep 17 00:00:00 2001
From: JT Smith <jt@plainblack.com>
Date: Sun, 4 May 2003 22:21:11 +0000
Subject: [PATCH] a better stack trace

---
 lib/WebGUI/ErrorHandler.pm | 12 +++++++-----
 1 file changed, 7 insertions(+), 5 deletions(-)

diff --git a/lib/WebGUI/ErrorHandler.pm b/lib/WebGUI/ErrorHandler.pm
index ebb971f38..bf3a9f774 100644
--- a/lib/WebGUI/ErrorHandler.pm
+++ b/lib/WebGUI/ErrorHandler.pm
@@ -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;
 }