[svn:dbi] r14344 - dbi/trunk/lib/DBI/DBD

Author: REHSACK
Date: Sat Aug 28 00:01:06 2010
New Revision: 14344

Modified:
   dbi/trunk/lib/DBI/DBD/SqlEngine.pm

Log:
remove "several pointless $@=undef's"


Modified: dbi/trunk/lib/DBI/DBD/SqlEngine.pm
==============================================================================
--- dbi/trunk/lib/DBI/DBD/SqlEngine.pm	(original)
+++ dbi/trunk/lib/DBI/DBD/SqlEngine.pm	Sat Aug 28 00:01:06 2010
@@ -154,7 +154,6 @@
                 ( $val = $2 ) =~ s/\\(.)/$1/g;
                 if ($two_phased_init)
                 {
-                    $@ = undef;
                     eval { $dbh->STORE( $var, $val ); };
                     $@ and $second_phase_attrs{$var} = $val;
                 }
@@ -177,7 +176,6 @@
             foreach $a (qw(Profile RaiseError PrintError AutoCommit))
             {    # do these first
                 exists $attr->{$a} or next;
-                $@ = undef;
                 eval {
                     $dbh->{$a} = $attr->{$a};
                     delete $attr->{$a};
@@ -186,7 +184,6 @@
             }
             while ( my ( $a, $v ) = each %$attr )
             {
-                $@ = undef;
                 eval { $dbh->{$a} = $v };
                 $@ and $second_phase_attrs{$a} = $v;
             }