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

skip more classes in DBI tracing

Browse source
This commit is contained in:
Graham Knop 2010-04-12 07:39:46 -05:00
parent 0bff8a0fa4
commit 2e419e63be
1 changed files with 1 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lib/WebGUI/SQL/Trace.pm
View file

@ -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;
}