OpenPKG CVS Repository
  http://cvs.openpkg.org/
  ____________________________________________________________________________

  Server: cvs.openpkg.org                  Name:   Thomas Lotterer
  Root:   /v/openpkg/cvs                   Email:  [EMAIL PROTECTED]
  Module: openpkg-src                      Date:   24-Jul-2006 13:06:10
  Branch: HEAD                             Handle: 2006072412060901

  Modified files:
    openpkg-src/perl-dbi    perl-dbi.patch perl-dbi.spec

  Log:
    modifying package: perl-dbi-5.8.8 20060613 -> 20060724

  Summary:
    Revision    Changes     Path
    1.19        +22 -0      openpkg-src/perl-dbi/perl-dbi.patch
    1.203       +1  -1      openpkg-src/perl-dbi/perl-dbi.spec
  ____________________________________________________________________________

  patch -p0 <<'@@ .'
  Index: openpkg-src/perl-dbi/perl-dbi.patch
  ============================================================================
  $ cvs diff -u -r1.18 -r1.19 perl-dbi.patch
  --- openpkg-src/perl-dbi/perl-dbi.patch       7 Jun 2006 07:59:40 -0000       
1.18
  +++ openpkg-src/perl-dbi/perl-dbi.patch       24 Jul 2006 11:06:09 -0000      
1.19
  @@ -59,3 +59,25 @@
    
    /* 30 second timeout by default */
    #define SQL_TIMEOUT 30000
  +Index: DBD-SQLite-1.12/dbdimp.c
  +--- DBD-SQLite-1.12/dbdimp.c.orig    2006-04-10 03:50:05 +0200
  ++++ DBD-SQLite-1.12/dbdimp.c 2006-07-24 13:01:30 +0200
  +@@ -390,14 +390,17 @@
  +     
  +     sqlite_trace(3, "Execute returned %d cols\n", DBIc_NUM_FIELDS(imp_sth));
  +     if (DBIc_NUM_FIELDS(imp_sth) == 0) {
  ++        char *defererr = strdup((char*)sqlite3_errmsg(imp_dbh->db));
  +         while ((retval = sqlite3_step(imp_sth->stmt)) != SQLITE_DONE) {
  +             if (retval == SQLITE_ROW) {
  +                 continue;
  +             }
  +             sqlite3_finalize(imp_sth->stmt);
  +-            sqlite_error(sth, (imp_xxh_t*)imp_sth, retval, 
(char*)sqlite3_errmsg(imp_dbh->db));
  ++            sqlite_error(sth, (imp_xxh_t*)imp_sth, retval, defererr);
  ++            free(defererr);
  +             return -5;
  +         }
  ++        free(defererr);
  +         /* warn("Finalize\n"); */
  +         sqlite3_finalize(imp_sth->stmt);
  +         imp_sth->nrow = sqlite3_changes(imp_dbh->db);
  @@ .
  patch -p0 <<'@@ .'
  Index: openpkg-src/perl-dbi/perl-dbi.spec
  ============================================================================
  $ cvs diff -u -r1.202 -r1.203 perl-dbi.spec
  --- openpkg-src/perl-dbi/perl-dbi.spec        13 Jun 2006 08:50:10 -0000      
1.202
  +++ openpkg-src/perl-dbi/perl-dbi.spec        24 Jul 2006 11:06:10 -0000      
1.203
  @@ -52,7 +52,7 @@
   Group:        Language
   License:      GPL/Artistic
   Version:      %{V_perl}
  -Release:      20060613
  +Release:      20060724
   
   #   package options
   %option       with_dbd_sqlite  yes
  @@ .
______________________________________________________________________
The OpenPKG Project                                    www.openpkg.org
CVS Repository Commit List                     openpkg-cvs@openpkg.org

Reply via email to