[svn:p5ee] r6558 - p5ee/trunk/App-Repository/lib/App/Repository

[email protected] Tue, 20 Jun 2006 14:30:33 -0700 (PDT)

Newsgroups	perl.cvs.p5ee
Message-ID	<[email protected]>

Author: spadkins
Date: Tue Jun 20 14:30:32 2006
New Revision: 6558

Modified:
   p5ee/trunk/App-Repository/lib/App/Repository/DBI.pm

Log:
convert 0E0 to 0 on _do()

Modified: p5ee/trunk/App-Repository/lib/App/Repository/DBI.pm
==============================================================================
--- p5ee/trunk/App-Repository/lib/App/Repository/DBI.pm	(original)
+++ p5ee/trunk/App-Repository/lib/App/Repository/DBI.pm	Tue Jun 20 14:30:32 2006
@@ -2339,7 +2339,8 @@
             $retval = $dbh->selectall_arrayref($sql);
         }
         else {
-            $retval = $dbh->do($sql);
+            # add 0 to turn "0E0" into plain old "0"
+            $retval = $dbh->do($sql) + 0;
         }
         $self->{sql} = $sql;
     }