r33867 - in /trunk/libdbd-sqlite3-perl: ./ debian/ lib/DBD/ lib/DBD/SQLite/ t/ t/lib/ util/
eloy at users.alioth.debian.org
eloy at users.alioth.debian.org
Fri Apr 24 10:48:13 UTC 2009
Author: eloy
Date: Fri Apr 24 10:48:05 2009
New Revision: 33867
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=33867
Log:
new upstream version
Added:
trunk/libdbd-sqlite3-perl/lib/DBD/SQLite/
- copied from r33866, branches/upstream/libdbd-sqlite3-perl/current/lib/DBD/SQLite/
trunk/libdbd-sqlite3-perl/sqlite3.c
- copied unchanged from r33866, branches/upstream/libdbd-sqlite3-perl/current/sqlite3.c
trunk/libdbd-sqlite3-perl/util/
- copied from r33866, branches/upstream/libdbd-sqlite3-perl/current/util/
Removed:
trunk/libdbd-sqlite3-perl/alter.c
trunk/libdbd-sqlite3-perl/analyze.c
trunk/libdbd-sqlite3-perl/attach.c
trunk/libdbd-sqlite3-perl/auth.c
trunk/libdbd-sqlite3-perl/backup.c
trunk/libdbd-sqlite3-perl/bitvec.c
trunk/libdbd-sqlite3-perl/btmutex.c
trunk/libdbd-sqlite3-perl/btree.c
trunk/libdbd-sqlite3-perl/btree.h
trunk/libdbd-sqlite3-perl/btreeInt.h
trunk/libdbd-sqlite3-perl/build.c
trunk/libdbd-sqlite3-perl/callback.c
trunk/libdbd-sqlite3-perl/complete.c
trunk/libdbd-sqlite3-perl/date.c
trunk/libdbd-sqlite3-perl/delete.c
trunk/libdbd-sqlite3-perl/expr.c
trunk/libdbd-sqlite3-perl/fault.c
trunk/libdbd-sqlite3-perl/fts3.c
trunk/libdbd-sqlite3-perl/fts3.h
trunk/libdbd-sqlite3-perl/fts3_expr.c
trunk/libdbd-sqlite3-perl/fts3_expr.h
trunk/libdbd-sqlite3-perl/fts3_hash.c
trunk/libdbd-sqlite3-perl/fts3_hash.h
trunk/libdbd-sqlite3-perl/fts3_icu.c
trunk/libdbd-sqlite3-perl/fts3_porter.c
trunk/libdbd-sqlite3-perl/fts3_tokenizer.c
trunk/libdbd-sqlite3-perl/fts3_tokenizer.h
trunk/libdbd-sqlite3-perl/fts3_tokenizer1.c
trunk/libdbd-sqlite3-perl/func.c
trunk/libdbd-sqlite3-perl/getsqlite.pl
trunk/libdbd-sqlite3-perl/global.c
trunk/libdbd-sqlite3-perl/hash.c
trunk/libdbd-sqlite3-perl/hash.h
trunk/libdbd-sqlite3-perl/hwtime.h
trunk/libdbd-sqlite3-perl/insert.c
trunk/libdbd-sqlite3-perl/journal.c
trunk/libdbd-sqlite3-perl/keywordhash.h
trunk/libdbd-sqlite3-perl/legacy.c
trunk/libdbd-sqlite3-perl/loadext.c
trunk/libdbd-sqlite3-perl/main.c
trunk/libdbd-sqlite3-perl/malloc.c
trunk/libdbd-sqlite3-perl/mem0.c
trunk/libdbd-sqlite3-perl/mem1.c
trunk/libdbd-sqlite3-perl/mem2.c
trunk/libdbd-sqlite3-perl/mem3.c
trunk/libdbd-sqlite3-perl/mem5.c
trunk/libdbd-sqlite3-perl/memjournal.c
trunk/libdbd-sqlite3-perl/mutex.c
trunk/libdbd-sqlite3-perl/mutex.h
trunk/libdbd-sqlite3-perl/mutex_noop.c
trunk/libdbd-sqlite3-perl/mutex_os2.c
trunk/libdbd-sqlite3-perl/mutex_unix.c
trunk/libdbd-sqlite3-perl/mutex_w32.c
trunk/libdbd-sqlite3-perl/notify.c
trunk/libdbd-sqlite3-perl/opcodes.c
trunk/libdbd-sqlite3-perl/opcodes.h
trunk/libdbd-sqlite3-perl/os.c
trunk/libdbd-sqlite3-perl/os.h
trunk/libdbd-sqlite3-perl/os_common.h
trunk/libdbd-sqlite3-perl/os_os2.c
trunk/libdbd-sqlite3-perl/os_unix.c
trunk/libdbd-sqlite3-perl/os_win.c
trunk/libdbd-sqlite3-perl/pager.c
trunk/libdbd-sqlite3-perl/pager.h
trunk/libdbd-sqlite3-perl/parse.c
trunk/libdbd-sqlite3-perl/parse.h
trunk/libdbd-sqlite3-perl/pcache.c
trunk/libdbd-sqlite3-perl/pcache.h
trunk/libdbd-sqlite3-perl/pcache1.c
trunk/libdbd-sqlite3-perl/pragma.c
trunk/libdbd-sqlite3-perl/prepare.c
trunk/libdbd-sqlite3-perl/printf.c
trunk/libdbd-sqlite3-perl/random.c
trunk/libdbd-sqlite3-perl/resolve.c
trunk/libdbd-sqlite3-perl/rowset.c
trunk/libdbd-sqlite3-perl/select.c
trunk/libdbd-sqlite3-perl/shell.c
trunk/libdbd-sqlite3-perl/sqliteInt.h
trunk/libdbd-sqlite3-perl/sqliteLimit.h
trunk/libdbd-sqlite3-perl/status.c
trunk/libdbd-sqlite3-perl/table.c
trunk/libdbd-sqlite3-perl/tokenize.c
trunk/libdbd-sqlite3-perl/trigger.c
trunk/libdbd-sqlite3-perl/update.c
trunk/libdbd-sqlite3-perl/utf.c
trunk/libdbd-sqlite3-perl/util.c
trunk/libdbd-sqlite3-perl/vacuum.c
trunk/libdbd-sqlite3-perl/vdbe.c
trunk/libdbd-sqlite3-perl/vdbe.h
trunk/libdbd-sqlite3-perl/vdbeInt.h
trunk/libdbd-sqlite3-perl/vdbeapi.c
trunk/libdbd-sqlite3-perl/vdbeaux.c
trunk/libdbd-sqlite3-perl/vdbeblob.c
trunk/libdbd-sqlite3-perl/vdbemem.c
trunk/libdbd-sqlite3-perl/vtab.c
trunk/libdbd-sqlite3-perl/walker.c
trunk/libdbd-sqlite3-perl/where.c
Modified:
trunk/libdbd-sqlite3-perl/Changes
trunk/libdbd-sqlite3-perl/MANIFEST
trunk/libdbd-sqlite3-perl/META.yml
trunk/libdbd-sqlite3-perl/Makefile.PL
trunk/libdbd-sqlite3-perl/README
trunk/libdbd-sqlite3-perl/debian/changelog
trunk/libdbd-sqlite3-perl/lib/DBD/SQLite.pm
trunk/libdbd-sqlite3-perl/t/09_create_function.t
trunk/libdbd-sqlite3-perl/t/33_non_latin_path.t
trunk/libdbd-sqlite3-perl/t/lib/Test.pm
Modified: trunk/libdbd-sqlite3-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdbd-sqlite3-perl/Changes?rev=33867&op=diff
==============================================================================
--- trunk/libdbd-sqlite3-perl/Changes (original)
+++ trunk/libdbd-sqlite3-perl/Changes Fri Apr 24 10:48:05 2009
@@ -1,4 +1,21 @@
-Changes for Perl extension DBD-SQLite.
+Changes for Perl extension DBD-SQLite
+
+1.25 Thu 23 Apr 2009
+ - Amalgamation conversion turned out to be quicker than expected.
+ - Changing to a production release. (ADAMK)
+
+1.24_02 Wed 22 Apr 2009
+ - Merging various externally-contributed annotations from
+ annocpan.org (ADAMK)
+ - Created the beginnings of a DBD::SQLite::Cookbook (ADAMK)
+
+1.24_01 Wed 22 Apr 2009
+ - Moved getsqlite.pl into util (ADAMK)
+ - Switching to the RT queue instead of the RT report page that
+ does nothing and just refers you to email (ADAMK)
+ - Now DBD::SQLite also uses amalgamated source recommended at sqlite.org (ISHIGAKI)
+ - Resolved #45166: better unicode path handling under cygwin (ISHIGAKI)
+ - Resolved #45171: test failure on CentOS 4.6 (ISHIGAKI)
1.23 Sun 19 Apr 2009
- No changes from 1.22_08, just switched to production release (ADAMK)
Modified: trunk/libdbd-sqlite3-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdbd-sqlite3-perl/MANIFEST?rev=33867&op=diff
==============================================================================
--- trunk/libdbd-sqlite3-perl/MANIFEST (original)
+++ trunk/libdbd-sqlite3-perl/MANIFEST Fri Apr 24 10:48:05 2009
@@ -1,98 +1,20 @@
-alter.c
-analyze.c
-attach.c
-auth.c
-backup.c
-bitvec.c
-btmutex.c
-btree.c
-btree.h
-btreeInt.h
-build.c
-callback.c
Changes
-complete.c
-date.c
dbdimp.c
dbdimp.h
-delete.c
-expr.c
-fault.c
-fts3.c
-fts3.h
-fts3_expr.c
-fts3_expr.h
-fts3_hash.c
-fts3_hash.h
-fts3_icu.c
-fts3_porter.c
-fts3_tokenizer.c
-fts3_tokenizer.h
-fts3_tokenizer1.c
-func.c
-getsqlite.pl
-global.c
-hash.c
-hash.h
-hwtime.h
inc/Test/NoWarnings.pm
inc/Test/NoWarnings/Warning.pm
-insert.c
-journal.c
-keywordhash.h
-legacy.c
lib/DBD/SQLite.pm
+lib/DBD/SQLite/Cookbook.pod
LICENSE
-loadext.c
-main.c
Makefile.PL
-malloc.c
MANIFEST This list of files
-mem0.c
-mem1.c
-mem2.c
-mem3.c
-mem5.c
-memjournal.c
-mutex.c
-mutex.h
-mutex_noop.c
-mutex_os2.c
-mutex_unix.c
-mutex_w32.c
-notify.c
-opcodes.c
-opcodes.h
-os.c
-os.h
-os_common.h
-os_os2.c
-os_unix.c
-os_win.c
-pager.c
-pager.h
-parse.c
-parse.h
-pcache.c
-pcache.h
-pcache1.c
ppport.h
-pragma.c
-prepare.c
-printf.c
-random.c
README
-resolve.c
-rowset.c
-select.c
-shell.c
SQLite.xs
+sqlite3.c
sqlite3.h
sqlite3ext.h
-sqliteInt.h
-sqliteLimit.h
SQLiteXS.h
-status.c
t/01_compile.t
t/02_logon.t
t/03_create_table.t
@@ -142,21 +64,5 @@
t/rt_36836_duplicate_key.t
t/rt_36838_unique_and_bus_error.t
t/rt_40594_nullable.t
-table.c
-tokenize.c
-trigger.c
-update.c
-utf.c
-util.c
-vacuum.c
-vdbe.c
-vdbe.h
-vdbeapi.c
-vdbeaux.c
-vdbeblob.c
-vdbeInt.h
-vdbemem.c
-vtab.c
-walker.c
-where.c
+util/getsqlite.pl
META.yml Module meta-data (added by MakeMaker)
Modified: trunk/libdbd-sqlite3-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdbd-sqlite3-perl/META.yml?rev=33867&op=diff
==============================================================================
--- trunk/libdbd-sqlite3-perl/META.yml (original)
+++ trunk/libdbd-sqlite3-perl/META.yml Fri Apr 24 10:48:05 2009
@@ -1,6 +1,6 @@
--- #YAML:1.0
name: DBD-SQLite
-version: 1.23
+version: 1.25
abstract: Self Contained SQLite RDBMS in a DBI Driver
author:
- Adam Kennedy <adamk at cpan.org>
@@ -19,7 +19,7 @@
perl: 5.006
Test::More: 0.42
resources:
- bugtracker: http://rt.cpan.org/NoAuth/ReportBug.html?Queue=DBD-SQLite
+ bugtracker: http://rt.cpan.org/Public/Dist/Display.html?Name=DBD-SQLite
license: http://dev.perl.org/licenses/
MailingList: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/dbd-sqlite
repository: http://svn.ali.as/cpan/trunk/DBD-SQLite
@@ -27,6 +27,9 @@
directory:
- t
- inc
+ - t
+ - inc
+ - util
generated_by: ExtUtils::MakeMaker version 6.48
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
Modified: trunk/libdbd-sqlite3-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdbd-sqlite3-perl/Makefile.PL?rev=33867&op=diff
==============================================================================
--- trunk/libdbd-sqlite3-perl/Makefile.PL (original)
+++ trunk/libdbd-sqlite3-perl/Makefile.PL Fri Apr 24 10:48:05 2009
@@ -212,6 +212,9 @@
( WINLIKE ? (
'Win32' => '0.30',
) : () ),
+ ( ($^O eq 'cygwin' && $] < 5.010) ? (
+ 'Filesys::CygwinPaths' => '0',
+ ) : () ),
},
OPTIONAL( '6.48',
MIN_PERL_VERSION => '5.006',
@@ -236,10 +239,15 @@
},
resources => {
license => 'http://dev.perl.org/licenses/',
- bugtracker => 'http://rt.cpan.org/NoAuth/ReportBug.html?Queue=DBD-SQLite',
+ bugtracker => 'http://rt.cpan.org/Public/Dist/Display.html?Name=DBD-SQLite',
repository => 'http://svn.ali.as/cpan/trunk/DBD-SQLite',
MailingList => 'http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/dbd-sqlite',
},
+ no_index => {
+ directory => [ qw{
+ t inc util
+ } ],
+ }
},
),
OBJECT => ( $force_local
@@ -276,21 +284,19 @@
sub test_via_harness {
my ($self, $perl, $tests) = @_;
- if ($^O eq 'hpux' and $Config{osvers} <= 10.20) {
- return qq{\tPERL_DL_NONLAZY=0 $perl "-MExtUtils::Command::MM" }.
- qq{"-e" "test_harness(\$(TEST_VERBOSE), '\$(INST_LIB)', '\$(INST_ARCHLIB)')" $tests\n};
- }
- else {
+ if ( $^O eq 'hpux' and $Config{osvers} <= 10.20 ) {
+ return qq{\tPERL_DL_NONLAZY=0 $perl "-MExtUtils::Command::MM" }
+ . qq{"-e" "test_harness(\$(TEST_VERBOSE), '\$(INST_LIB)', '\$(INST_ARCHLIB)')" $tests\n};
+ } else {
$self->SUPER::test_via_harness($perl, $tests);
}
}
sub test_via_script {
my ($self, $perl, $script) = @_;
- if ($^O eq 'hpux' and $Config{osvers} <= 10.20) {
+ if ( $^O eq 'hpux' and $Config{osvers} <= 10.20 ) {
return qq{\tPERL_DL_NONLAZY=0 $perl "-I\$(INST_LIB)" "-I\$(INST_ARCHLIB)" $script\n};
- }
- else {
+ } else {
$self->SUPER::test_via_script($perl, $script);
}
}
Modified: trunk/libdbd-sqlite3-perl/README
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdbd-sqlite3-perl/README?rev=33867&op=diff
==============================================================================
--- trunk/libdbd-sqlite3-perl/README (original)
+++ trunk/libdbd-sqlite3-perl/README Fri Apr 24 10:48:05 2009
@@ -78,8 +78,13 @@
is returned. Otherwise, it is the hidden ROWID column. See the sqlite
docs for details.
- Note: You can now use $dbh->last_insert_id() if you have a recent
- version of DBI.
+ Generally you should not be using this method. Use the DBI
+ last_insert_id method instead. The usage of this is:
+
+ $h->last_insert_id($catalog, $schema, $table_name, $field_name [, \%attr ])
+
+ Running "$h->last_insert_id("","","","")" is the equivalent of running
+ "$dbh->func('last_insert_rowid')" directly.
$dbh->func('busy_timeout')
Retrieve the current busy timeout.
@@ -229,10 +234,14 @@
FROM results
GROUP BY group_name;
+ For more examples, see the DBD::SQLite::Cookbook.
+
$dbh->func( $n_opcodes, $code_ref, 'progress_handler' )
This method registers a handler to be invoked periodically during long
- running calls to SQLite. An example use for this interface is to keep a
- GUI updated during a large query. The parameters are:
+ running calls to SQLite.
+
+ An example use for this interface is to keep a GUI updated during a
+ large query. The parameters are:
$n_opcodes
The progress handler is invoked once for every $n_opcodes virtual
@@ -316,6 +325,28 @@
down non-transactional writes significantly) at the expense of some
peace of mind. Also try playing with the cache_size pragma.
+ The memory usage of SQLite can also be tuned using the cache_size
+ pragma.
+
+ $dbh->do("PRAGMA cache_size = 800000");
+
+ The above will allocate 800M for DB cache; the default is 2M. Your sweet
+ spot probably lies somewhere in between.
+
+TO DO
+ The following items remain to be done.
+
+ Warnings Upgrade
+ We currently use a horridly hacky method to issue and suppress warnings.
+ It suffices for now, but just barely.
+
+ Migrate all of the warning code to use the recommended DBI warnings.
+
+ Leak Detection
+ Implement one or more leak detection tests that only run during
+ AUTOMATED_TESTING and RELEASE_TESTING and validate that none of the C
+ code we work with leaks.
+
SUPPORT
Bugs should be reported via the CPAN bug tracker at
@@ -351,7 +382,9 @@
DBD::SQLite is copyright 2002 - 2007 Matt Sergeant.
- Some parts copyright 2008 Francis J. Lacoste and Wolfgang Sourdeau.
+ Some parts copyright 2008 Francis J. Lacoste.
+
+ Some parts copyright 2008 Wolfgang Sourdeau.
Some parts copyright 2008 - 2009 Adam Kennedy.
Modified: trunk/libdbd-sqlite3-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdbd-sqlite3-perl/debian/changelog?rev=33867&op=diff
==============================================================================
--- trunk/libdbd-sqlite3-perl/debian/changelog (original)
+++ trunk/libdbd-sqlite3-perl/debian/changelog Fri Apr 24 10:48:05 2009
@@ -1,3 +1,9 @@
+libdbd-sqlite3-perl (1.25-1) UNRELEASED; urgency=low
+
+ * New upstream release
+
+ -- Krzysztof Krzyżaniak (eloy) <eloy at debian.org> Fri, 24 Apr 2009 12:42:34 +0200
+
libdbd-sqlite3-perl (1.23-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=33867&op=diff
==============================================================================
--- trunk/libdbd-sqlite3-perl/lib/DBD/SQLite.pm (original)
+++ trunk/libdbd-sqlite3-perl/lib/DBD/SQLite.pm Fri Apr 24 10:48:05 2009
@@ -8,7 +8,7 @@
use vars qw($VERSION @ISA);
use vars qw{$err $errstr $drh $sqlite_version};
BEGIN {
- $VERSION = '1.23';
+ $VERSION = '1.25';
@ISA = ('DynaLoader');
# Initialize errors
@@ -65,7 +65,7 @@
# To avoid unicode and long file name problems on Windows,
# convert to the shortname if the file (or parent directory) exists.
- if ( $^O eq 'MSWin32' and $real ne ':memory:' ) {
+ if ( $^O =~ /MSWin32|cygwin/ and $real ne ':memory:' ) {
require Win32;
require File::Basename;
my ($file, $dir, $suffix) = File::Basename::fileparse($real);
@@ -80,6 +80,15 @@
} else {
# SQLite can't do mkpath anyway.
# So let it go through as it and fail.
+ }
+ if ( $^O eq 'cygwin' ) {
+ if ( $] >= 5.010 ) {
+ $real = Cygwin::win_to_posix_path($real, 'absolute');
+ }
+ else {
+ require Filesys::CygwinPaths;
+ $real = Filesys::CygwinPaths::fullposixpath($real);
+ }
}
}
@@ -489,8 +498,13 @@
KEY as the first column in your table, that is the column that is returned.
Otherwise, it is the hidden ROWID column. See the sqlite docs for details.
-Note: You can now use $dbh-E<gt>last_insert_id() if you have a recent version of
-DBI.
+Generally you should not be using this method. Use the L<DBI> last_insert_id
+method instead. The usage of this is:
+
+ $h->last_insert_id($catalog, $schema, $table_name, $field_name [, \%attr ])
+
+Running C<$h-E<gt>last_insert_id("","","","")> is the equivalent of running
+C<$dbh-E<gt>func('last_insert_rowid')> directly.
=head2 $dbh->func('busy_timeout')
@@ -674,13 +688,15 @@
FROM results
GROUP BY group_name;
+For more examples, see the L<DBD::SQLite::Cookbook>.
+
=head2 $dbh->func( $n_opcodes, $code_ref, 'progress_handler' )
-This method registers a handler to be invoked
-periodically during long running calls to SQLite.
-An example use for this interface is to keep a GUI
-updated during a large query.
-The parameters are:
+This method registers a handler to be invoked periodically during long
+running calls to SQLite.
+
+An example use for this interface is to keep a GUI updated during a
+large query. The parameters are:
=over
@@ -702,11 +718,11 @@
=head1 BLOBS
-As of version 1.11, blobs should "just work" in SQLite as text columns. However
-this will cause the data to be treated as a string, so SQL statements such
-as length(x) will return the length of the column as a NUL terminated string,
-rather than the size of the blob in bytes. In order to store natively as a
-BLOB use the following code:
+As of version 1.11, blobs should "just work" in SQLite as text columns.
+However this will cause the data to be treated as a string, so SQL
+statements such as length(x) will return the length of the column as a NUL
+terminated string, rather than the size of the blob in bytes. In order to
+store natively as a BLOB use the following code:
use DBI qw(:sql_types);
my $dbh = DBI->connect("dbi:SQLite:dbfile","","");
@@ -772,6 +788,30 @@
slows down non-transactional writes significantly) at the expense of some
peace of mind. Also try playing with the cache_size pragma.
+The memory usage of SQLite can also be tuned using the cache_size pragma.
+
+ $dbh->do("PRAGMA cache_size = 800000");
+
+The above will allocate 800M for DB cache; the default is 2M. Your sweet spot
+probably lies somewhere in between.
+
+=head1 TO DO
+
+The following items remain to be done.
+
+=head2 Warnings Upgrade
+
+We currently use a horridly hacky method to issue and suppress warnings.
+It suffices for now, but just barely.
+
+Migrate all of the warning code to use the recommended DBI warnings.
+
+=head2 Leak Detection
+
+Implement one or more leak detection tests that only run during
+AUTOMATED_TESTING and RELEASE_TESTING and validate that none of the C
+code we work with leaks.
+
=head1 SUPPORT
Bugs should be reported via the CPAN bug tracker at
@@ -814,7 +854,9 @@
DBD::SQLite is copyright 2002 - 2007 Matt Sergeant.
-Some parts copyright 2008 Francis J. Lacoste and Wolfgang Sourdeau.
+Some parts copyright 2008 Francis J. Lacoste.
+
+Some parts copyright 2008 Wolfgang Sourdeau.
Some parts copyright 2008 - 2009 Adam Kennedy.
Modified: trunk/libdbd-sqlite3-perl/t/09_create_function.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdbd-sqlite3-perl/t/09_create_function.t?rev=33867&op=diff
==============================================================================
--- trunk/libdbd-sqlite3-perl/t/09_create_function.t (original)
+++ trunk/libdbd-sqlite3-perl/t/09_create_function.t Fri Apr 24 10:48:05 2009
@@ -44,8 +44,7 @@
}
sub my_defined {
-# warn("defined($_[0])\n");
- return defined $_[0];
+ defined($_[0]) ? 1 : 0;
}
sub noop {
Modified: trunk/libdbd-sqlite3-perl/t/33_non_latin_path.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdbd-sqlite3-perl/t/33_non_latin_path.t?rev=33867&op=diff
==============================================================================
--- trunk/libdbd-sqlite3-perl/t/33_non_latin_path.t (original)
+++ trunk/libdbd-sqlite3-perl/t/33_non_latin_path.t Fri Apr 24 10:48:05 2009
@@ -74,18 +74,28 @@
sub _path { # copied from DBD::SQLite::connect
my $path = shift;
- return $path unless $^O eq 'MSWin32';
- require Win32;
- require File::Basename;
+ if ($^O =~ /MSWin32|cygwin/) {
+ require Win32;
+ require File::Basename;
- my ($file, $dir, $suffix) = File::Basename::fileparse($path);
- my $short = Win32::GetShortPathName($path);
- if ( $short && -f $short ) {
- # Existing files will work directly.
- return $short;
- } elsif ( -d $dir ) {
- return join '', grep { defined } Win32::GetShortPathName($dir), $file, $suffix;
+ my ($file, $dir, $suffix) = File::Basename::fileparse($path);
+ my $short = Win32::GetShortPathName($path);
+ if ( $short && -f $short ) {
+ # Existing files will work directly.
+ $path = $short;
+ } elsif ( -d $dir ) {
+ $path = join '', grep { defined } Win32::GetShortPathName($dir), $file, $suffix;
+ }
+ if ($^O eq 'cygwin') {
+ if ($] >= 5.010) {
+ $path = Cygwin::win_to_posix_path($path, 'absolute');
+ }
+ else {
+ require Filesys::CygwinPaths;
+ $path = Filesys::CygwinPaths::fullposixpath($path);
+ }
+ }
}
return $path;
}
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=33867&op=diff
==============================================================================
--- trunk/libdbd-sqlite3-perl/t/lib/Test.pm (original)
+++ trunk/libdbd-sqlite3-perl/t/lib/Test.pm Fri Apr 24 10:48:05 2009
@@ -9,7 +9,7 @@
use vars qw{$VERSION @ISA @EXPORT};
BEGIN {
- $VERSION = '1.23';
+ $VERSION = '1.25';
@ISA = qw{ Exporter };
@EXPORT = qw{ connect_ok };
More information about the Pkg-perl-cvs-commits
mailing list