From 2e419e63bed1e3ede8eb8c85fd0d6b570d7b916c Mon Sep 17 00:00:00 2001
From: Graham Knop <graham@plainblack.com>
Date: Mon, 12 Apr 2010 07:39:46 -0500
Subject: [PATCH] skip more classes in DBI tracing

---
 lib/WebGUI/SQL/Trace.pm | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/lib/WebGUI/SQL/Trace.pm b/lib/WebGUI/SQL/Trace.pm
index efe382fdf..8882abe80 100644
--- a/lib/WebGUI/SQL/Trace.pm
+++ b/lib/WebGUI/SQL/Trace.pm
@@ -27,9 +27,7 @@ sub WRITE {
         for ( my $i = 0; caller($i); $i++) {
             (my $package, undef, $line) = caller($i);
             next
-                if $package eq 'WebGUI::SQL';
-            next
-                if $package eq 'WebGUI::SQL::ResultSet';
+                if $package =~ /\A(?:WebGUI::SQL|DBI|DBD)(?:\z|::)/;
             ($sub) = (caller($i + 1))[3];
             last;
         }