r32929 - in /trunk/libdbd-sqlite3-perl: Changes MANIFEST META.yml dbdimp.c debian/changelog lib/DBD/SQLite.pm t/32_inactive_error.t t/lib/Test.pm t/rt_25371_asymmetric_unicode.t

gregoa at users.alioth.debian.org gregoa at users.alioth.debian.org
Thu Apr 9 18:40:15 UTC 2009


Author: gregoa
Date: Thu Apr  9 18:40:09 2009
New Revision: 32929

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=32929
Log:
New upstream release.

Added:
    trunk/libdbd-sqlite3-perl/t/32_inactive_error.t
      - copied unchanged from r32928, branches/upstream/libdbd-sqlite3-perl/current/t/32_inactive_error.t
Modified:
    trunk/libdbd-sqlite3-perl/Changes
    trunk/libdbd-sqlite3-perl/MANIFEST
    trunk/libdbd-sqlite3-perl/META.yml
    trunk/libdbd-sqlite3-perl/dbdimp.c
    trunk/libdbd-sqlite3-perl/debian/changelog
    trunk/libdbd-sqlite3-perl/lib/DBD/SQLite.pm
    trunk/libdbd-sqlite3-perl/t/lib/Test.pm
    trunk/libdbd-sqlite3-perl/t/rt_25371_asymmetric_unicode.t

Modified: trunk/libdbd-sqlite3-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdbd-sqlite3-perl/Changes?rev=32929&op=diff
==============================================================================
--- trunk/libdbd-sqlite3-perl/Changes (original)
+++ trunk/libdbd-sqlite3-perl/Changes Thu Apr  9 18:40:09 2009
@@ -1,6 +1,10 @@
 Changes for Perl extension DBD-SQLite.
 
-1.20 to be released
+1.21 Wed  9 Apr 2009
+    - Fixed the issue that execute on inactive handles returned
+      0 instead of undef, which made a DBIC test broken (ISHIGAKI)
+
+1.20 Mon  7 Apr 2009
     - Moving to the first production release of the new era.
     - Check DBI version in Makefile.PL (CHORNY)
     - Bundling Test::NoWarings into /inc to remove a dependency (ADAMK)

Modified: trunk/libdbd-sqlite3-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdbd-sqlite3-perl/MANIFEST?rev=32929&op=diff
==============================================================================
--- trunk/libdbd-sqlite3-perl/MANIFEST (original)
+++ trunk/libdbd-sqlite3-perl/MANIFEST Thu Apr  9 18:40:09 2009
@@ -123,6 +123,7 @@
 t/29_cppcomments.t
 t/30_auto_rollback.t
 t/31_bind_weird_number_param.t
+t/32_inactive_error.t
 t/97_meta.t
 t/98_pod.t
 t/99_pmv.t

Modified: trunk/libdbd-sqlite3-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdbd-sqlite3-perl/META.yml?rev=32929&op=diff
==============================================================================
--- trunk/libdbd-sqlite3-perl/META.yml (original)
+++ trunk/libdbd-sqlite3-perl/META.yml Thu Apr  9 18:40:09 2009
@@ -1,6 +1,6 @@
 --- #YAML:1.0
 name:               DBD-SQLite
-version:            1.20
+version:            1.21
 abstract:           Self Contained SQLite RDBMS in a DBI Driver
 author:
     - Adam Kennedy <adamk at cpan.org>

Modified: trunk/libdbd-sqlite3-perl/dbdimp.c
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdbd-sqlite3-perl/dbdimp.c?rev=32929&op=diff
==============================================================================
--- trunk/libdbd-sqlite3-perl/dbdimp.c (original)
+++ trunk/libdbd-sqlite3-perl/dbdimp.c Thu Apr  9 18:40:09 2009
@@ -351,7 +351,7 @@
 
     if (!DBIc_ACTIVE(imp_dbh)) {
         sqlite_error(sth, (imp_xxh_t*)imp_sth, retval, "attempt to execute on inactive database handle");
-        return FALSE;
+        return -2;
     }
 
     if (DBIc_ACTIVE(imp_sth)) {

Modified: trunk/libdbd-sqlite3-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdbd-sqlite3-perl/debian/changelog?rev=32929&op=diff
==============================================================================
--- trunk/libdbd-sqlite3-perl/debian/changelog (original)
+++ trunk/libdbd-sqlite3-perl/debian/changelog Thu Apr  9 18:40:09 2009
@@ -1,3 +1,9 @@
+libdbd-sqlite3-perl (1.21-1) UNRELEASED; urgency=low
+
+  * New upstream release.
+
+ -- gregor herrmann <gregoa at debian.org>  Thu, 09 Apr 2009 20:39:33 +0200
+
 libdbd-sqlite3-perl (1.20-1) unstable; urgency=low
 
   * New upstream release

Modified: trunk/libdbd-sqlite3-perl/lib/DBD/SQLite.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdbd-sqlite3-perl/lib/DBD/SQLite.pm?rev=32929&op=diff
==============================================================================
--- trunk/libdbd-sqlite3-perl/lib/DBD/SQLite.pm (original)
+++ trunk/libdbd-sqlite3-perl/lib/DBD/SQLite.pm Thu Apr  9 18:40:09 2009
@@ -8,7 +8,7 @@
 use vars qw($VERSION @ISA);
 use vars qw{$err $errstr $drh $sqlite_version};
 BEGIN {
-    $VERSION = '1.20';
+    $VERSION = '1.21';
     @ISA     = ('DynaLoader');
 
     # Driver singleton

Modified: trunk/libdbd-sqlite3-perl/t/lib/Test.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdbd-sqlite3-perl/t/lib/Test.pm?rev=32929&op=diff
==============================================================================
--- trunk/libdbd-sqlite3-perl/t/lib/Test.pm (original)
+++ trunk/libdbd-sqlite3-perl/t/lib/Test.pm Thu Apr  9 18:40:09 2009
@@ -9,7 +9,7 @@
 
 use vars qw{$VERSION @ISA @EXPORT};
 BEGIN {
-	$VERSION = '1.20';
+	$VERSION = '1.21';
 	@ISA     = qw{ Exporter };
 	@EXPORT  = qw{ connect_ok };
 

Modified: trunk/libdbd-sqlite3-perl/t/rt_25371_asymmetric_unicode.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdbd-sqlite3-perl/t/rt_25371_asymmetric_unicode.t?rev=32929&op=diff
==============================================================================
--- trunk/libdbd-sqlite3-perl/t/rt_25371_asymmetric_unicode.t (original)
+++ trunk/libdbd-sqlite3-perl/t/rt_25371_asymmetric_unicode.t Thu Apr  9 18:40:09 2009
@@ -7,7 +7,7 @@
 }
 
 use t::lib::Test;
-# use Test::More tests => 15;
+# use Test::More tests => 22;
 use Test::More skip_all => 'Temporarily disabling known-bad test';
 use Test::NoWarnings;
 
@@ -24,5 +24,9 @@
     ok( $dbh->do("INSERT INTO foo VALUES ( ? )", {}, $_), 'INSERT' );
     my $foo = $dbh->selectall_arrayref("SELECT bar FROM foo");
     is_deeply( $foo, [ [ $_ ] ], 'Value round-tripped ok' );
+    my $len = $dbh->selectall_arrayref("SELECT length(bar) FROM foo");
+    is $len->[0][0], 1 unless $_ eq "\0";
+    my $match = $dbh->selectall_arrayref("SELECT bar FROM foo WHERE bar = ?", {}, $_);
+    is $match->[0][0], $_;
     ok( $dbh->do("DELETE FROM foo"), 'DELETE ok' );
 }




More information about the Pkg-perl-cvs-commits mailing list