cvsuser 06/02/24 21:40:40
Modified: App-Repository/lib/App/Repository DBI.pm
Log:
return 0 rather than 0E0 from update()
Revision Changes Path
1.38 +3 -2 p5ee/App-Repository/lib/App/Repository/DBI.pm
Index: DBI.pm
===================================================================
RCS file: /cvs/public/p5ee/App-Repository/lib/App/Repository/DBI.pm,v
retrieving revision 1.37
retrieving revision 1.38
diff -u -r1.37 -r1.38
--- DBI.pm 16 Feb 2006 19:26:07 -0000 1.37
+++ DBI.pm 25 Feb 2006 05:40:40 -0000 1.38
@@ -2056,6 +2056,7 @@
print $sql;
}
my $retval = $self->{dbh}->do($sql);
+ $retval = 0 if ($retval == 0);
if ($debug_sql) {
print "DEBUG_SQL: retval [$retval] $DBI::errstr\n";
print "\n";