cvs commit: p5ee/App-Repository/lib/App/Repository DBI.pm

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";