[svn:dbi] r13969 - dbi/trunk/lib/DBI

Author: timbo
Date: Mon May 10 02:11:51 2010
New Revision: 13969

Modified:
   dbi/trunk/lib/DBI/Profile.pm

Log:
Revert unconditional adding of Trace to DBI::Profile hash.


Modified: dbi/trunk/lib/DBI/Profile.pm
==============================================================================
--- dbi/trunk/lib/DBI/Profile.pm	(original)
+++ dbi/trunk/lib/DBI/Profile.pm	Mon May 10 02:11:51 2010
@@ -704,7 +704,7 @@
 
 sub new {
     my $class = shift;
-    my $profile = { Trace => 0, @_ };
+    my $profile = { @_ };
     return bless $profile => $class;
 }
 
@@ -932,7 +932,8 @@
 sub DESTROY {
     my $self = shift;
     local $@;
-    DBI->trace_msg("profile data DESTROY\n",0) if $self->{Trace} >= 2;
+    DBI->trace_msg("profile data DESTROY\n",0)
+        if (($self->{Trace}||0) >= 2);
     eval { $self->on_destroy };
     if ($@) {
         chomp $@;