r54024 - in /trunk/liborlite-perl: ./ debian/ debian/patches/ inc/Module/ inc/Module/Install/ lib/ t/ t/lib/ xt/
jawnsy-guest at users.alioth.debian.org
jawnsy-guest at users.alioth.debian.org
Wed Mar 10 01:37:30 UTC 2010
Author: jawnsy-guest
Date: Wed Mar 10 01:37:24 2010
New Revision: 54024
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=54024
Log:
* New upstream release
* Use new 3.0 (quilt) source format
Added:
trunk/liborlite-perl/xt/
- copied from r54018, branches/upstream/liborlite-perl/current/xt/
Removed:
trunk/liborlite-perl/debian/README.source
trunk/liborlite-perl/t/97_meta.t
trunk/liborlite-perl/t/98_pod.t
trunk/liborlite-perl/t/99_pmv.t
Modified:
trunk/liborlite-perl/Changes
trunk/liborlite-perl/MANIFEST
trunk/liborlite-perl/META.yml
trunk/liborlite-perl/Makefile.PL
trunk/liborlite-perl/README
trunk/liborlite-perl/debian/changelog
trunk/liborlite-perl/debian/control
trunk/liborlite-perl/debian/copyright
trunk/liborlite-perl/debian/patches/fix-pod-spelling.patch
trunk/liborlite-perl/debian/rules
trunk/liborlite-perl/inc/Module/Install.pm
trunk/liborlite-perl/inc/Module/Install/Base.pm
trunk/liborlite-perl/inc/Module/Install/Can.pm
trunk/liborlite-perl/inc/Module/Install/DSL.pm
trunk/liborlite-perl/inc/Module/Install/Fetch.pm
trunk/liborlite-perl/inc/Module/Install/Makefile.pm
trunk/liborlite-perl/inc/Module/Install/Metadata.pm
trunk/liborlite-perl/inc/Module/Install/Win32.pm
trunk/liborlite-perl/inc/Module/Install/With.pm
trunk/liborlite-perl/inc/Module/Install/WriteAll.pm
trunk/liborlite-perl/lib/ORLite.pm
trunk/liborlite-perl/t/02_basics.t
trunk/liborlite-perl/t/08_prune.pl
trunk/liborlite-perl/t/lib/Test.pm
Modified: trunk/liborlite-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liborlite-perl/Changes?rev=54024&op=diff
==============================================================================
--- trunk/liborlite-perl/Changes (original)
+++ trunk/liborlite-perl/Changes Wed Mar 10 01:37:24 2010
@@ -1,4 +1,12 @@
Changes for Perl extension ORLite
+
+1.41 Tue 9 Mar 2010
+ - Added the root ->connected method to allow for some
+ light introspection in unusual situations (such as
+ knowing if it's safe to spawn an off-the-books
+ ->connect'tion, or to detect if we are in a transaction).
+ - Added documentation for the ->connect method, with suitably
+ strident warnings about the dangers of deadlocking.
1.40 Mon 1 Fed 2010
- Fixed backwards test skipping logic
Modified: trunk/liborlite-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liborlite-perl/MANIFEST?rev=54024&op=diff
==============================================================================
--- trunk/liborlite-perl/MANIFEST (original)
+++ trunk/liborlite-perl/MANIFEST Wed Mar 10 01:37:24 2010
@@ -36,7 +36,7 @@
t/14_array_fk.t
t/15_array_xs.t
t/16_array_create.t
-t/97_meta.t
-t/98_pod.t
-t/99_pmv.t
t/lib/Test.pm
+xt/meta.t
+xt/pmv.t
+xt/pod.t
Modified: trunk/liborlite-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liborlite-perl/META.yml?rev=54024&op=diff
==============================================================================
--- trunk/liborlite-perl/META.yml (original)
+++ trunk/liborlite-perl/META.yml Wed Mar 10 01:37:24 2010
@@ -9,7 +9,7 @@
configure_requires:
ExtUtils::MakeMaker: 6.42
distribution_type: module
-generated_by: 'Module::Install version 0.92'
+generated_by: 'Module::Install version 0.94'
license: perl
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
@@ -20,6 +20,7 @@
directory:
- inc
- t
+ - xt
requires:
DBD::SQLite: 1.27
DBI: 1.607
@@ -34,4 +35,4 @@
ChangeLog: http://fisheye2.atlassian.com/changelog/cpan/trunk/ORLite
license: http://dev.perl.org/licenses/
repository: http://svn.ali.as/cpan/trunk/ORLite
-version: 1.40
+version: 1.41
Modified: trunk/liborlite-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liborlite-perl/Makefile.PL?rev=54024&op=diff
==============================================================================
--- trunk/liborlite-perl/Makefile.PL (original)
+++ trunk/liborlite-perl/Makefile.PL Wed Mar 10 01:37:24 2010
@@ -1,4 +1,4 @@
-use inc::Module::Install::DSL 0.92;
+use inc::Module::Install::DSL 0.94;
all_from lib/ORLite.pm
requires_from lib/ORLite.pm
Modified: trunk/liborlite-perl/README
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liborlite-perl/README?rev=54024&op=diff
==============================================================================
--- trunk/liborlite-perl/README (original)
+++ trunk/liborlite-perl/README Wed Mar 10 01:37:24 2010
@@ -301,6 +301,29 @@
The "dbh" method returns a DBI::db object, or throws an exception on
error.
+ connect
+ my $dbh = Foo::Bar->connect;
+
+ The "connect" method is provided for the (extremely rare) situation in
+ which you need a raw connection to the database, evading the normal
+ tracking and management provided of the ORM.
+
+ The use of raw connections in this manner is strongly discouraged, as
+ you can create fatal deadlocks in SQLite if either the core ORM or the
+ raw connection uses a transaction at any time.
+
+ To summarise, do not use this method unless you REALLY know what you are
+ doing.
+
+ YOU HAVE BEEN WARNED!
+
+ connected
+ my $active = Foo::Bar->connected;
+
+ The "connected" method provides introspection of the connection status
+ of the library. It returns true if there is any connection or
+ transaction open to the database, or false otherwise.
+
begin
Foo::Bar->begin;
Modified: trunk/liborlite-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liborlite-perl/debian/changelog?rev=54024&op=diff
==============================================================================
--- trunk/liborlite-perl/debian/changelog (original)
+++ trunk/liborlite-perl/debian/changelog Wed Mar 10 01:37:24 2010
@@ -1,3 +1,10 @@
+liborlite-perl (1.41-1) UNRELEASED; urgency=low
+
+ * New upstream release
+ * Use new 3.0 (quilt) source format
+
+ -- Jonathan Yu <jawnsy at cpan.org> Tue, 09 Mar 2010 21:02:39 -0500
+
liborlite-perl (1.40-1) unstable; urgency=low
* New upstream release
Modified: trunk/liborlite-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liborlite-perl/debian/control?rev=54024&op=diff
==============================================================================
--- trunk/liborlite-perl/debian/control (original)
+++ trunk/liborlite-perl/debian/control Wed Mar 10 01:37:24 2010
@@ -1,12 +1,10 @@
Source: liborlite-perl
Section: perl
Priority: optional
-Build-Depends: debhelper (>= 7.0.50), quilt (>= 0.46-7)
+Build-Depends: debhelper (>= 7.0.50)
Build-Depends-Indep: perl, libdbd-sqlite3-perl (>= 1.27), libdbi-perl (>= 1.607),
perl (>= 5.10.1) | libfile-temp-perl (>= 0.20), libparams-util-perl (>= 0.33),
- perl (>= 5.10.1) | libpod-simple-perl (>= 3.07), libtest-cpan-meta-perl,
- libtest-minimumversion-perl, libtest-pod-perl, libfile-remove-perl (>= 1.40),
- libtest-script-perl, libclass-xsaccessor-perl
+ libfile-remove-perl (>= 1.40), libtest-script-perl, libclass-xsaccessor-perl
Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
Uploaders: Damyan Ivanov <dmn at debian.org>, Gunnar Wolf <gwolf at debian.org>,
Brian Cassidy <brian.cassidy at gmail.com>, Rene Mayorga <rmayorga at debian.org>,
Modified: trunk/liborlite-perl/debian/copyright
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liborlite-perl/debian/copyright?rev=54024&op=diff
==============================================================================
--- trunk/liborlite-perl/debian/copyright (original)
+++ trunk/liborlite-perl/debian/copyright Wed Mar 10 01:37:24 2010
@@ -15,13 +15,13 @@
Files: debian/*
Copyright: 2009-2010, Jonathan Yu <jawnsy at cpan.org>
+ 2010, gregor herrmann <gregoa at debian.org>
+ 2008-2009, Brian Cassidy <brian.cassidy at gmail.com>
2009, Jaldhar H. Vyas <jaldhar at debian.org>
2009, Nathan Handler <nhandler at ubuntu.com>
2009, Rene Mayorga <rmayorga at debian.org>
- 2008-2009, Brian Cassidy <brian.cassidy at gmail.com>
2008, Damyan Ivanov <dmn at debian.org>
2008, Gunnar Wolf <gwolf at debian.org>
- 2010, gregor herrmann <gregoa at debian.org>
License: Artistic or GPL-1+
License: Artistic
Modified: trunk/liborlite-perl/debian/patches/fix-pod-spelling.patch
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liborlite-perl/debian/patches/fix-pod-spelling.patch?rev=54024&op=diff
==============================================================================
--- trunk/liborlite-perl/debian/patches/fix-pod-spelling.patch (original)
+++ trunk/liborlite-perl/debian/patches/fix-pod-spelling.patch Wed Mar 10 01:37:24 2010
@@ -4,7 +4,7 @@
Forwarded: no
--- a/lib/ORLite.pm
+++ b/lib/ORLite.pm
-@@ -956,7 +956,7 @@
+@@ -985,7 +985,7 @@
While transaction support is always built for every L<ORLite>-generated
class tree, if the database is opened C<readonly> the C<commit> method
will not exist at all in the API, and your only way of ending the
Modified: trunk/liborlite-perl/debian/rules
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liborlite-perl/debian/rules?rev=54024&op=diff
==============================================================================
--- trunk/liborlite-perl/debian/rules (original)
+++ trunk/liborlite-perl/debian/rules Wed Mar 10 01:37:24 2010
@@ -1,7 +1,7 @@
#!/usr/bin/make -f
%:
- dh --with quilt $@
+ dh $@
override_dh_auto_test:
AUTOMATED_TESTING=1 dh_auto_test
Modified: trunk/liborlite-perl/inc/Module/Install.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liborlite-perl/inc/Module/Install.pm?rev=54024&op=diff
==============================================================================
--- trunk/liborlite-perl/inc/Module/Install.pm (original)
+++ trunk/liborlite-perl/inc/Module/Install.pm Wed Mar 10 01:37:24 2010
@@ -28,7 +28,7 @@
# This is not enforced yet, but will be some time in the next few
# releases once we can make sure it won't clash with custom
# Module::Install extensions.
- $VERSION = '0.92';
+ $VERSION = '0.94';
# Storage for the pseudo-singleton
$MAIN = undef;
Modified: trunk/liborlite-perl/inc/Module/Install/Base.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liborlite-perl/inc/Module/Install/Base.pm?rev=54024&op=diff
==============================================================================
--- trunk/liborlite-perl/inc/Module/Install/Base.pm (original)
+++ trunk/liborlite-perl/inc/Module/Install/Base.pm Wed Mar 10 01:37:24 2010
@@ -4,7 +4,7 @@
use strict 'vars';
use vars qw{$VERSION};
BEGIN {
- $VERSION = '0.92';
+ $VERSION = '0.94';
}
# Suspend handler for "redefined" warnings
Modified: trunk/liborlite-perl/inc/Module/Install/Can.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liborlite-perl/inc/Module/Install/Can.pm?rev=54024&op=diff
==============================================================================
--- trunk/liborlite-perl/inc/Module/Install/Can.pm (original)
+++ trunk/liborlite-perl/inc/Module/Install/Can.pm Wed Mar 10 01:37:24 2010
@@ -9,7 +9,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '0.92';
+ $VERSION = '0.94';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
Modified: trunk/liborlite-perl/inc/Module/Install/DSL.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liborlite-perl/inc/Module/Install/DSL.pm?rev=54024&op=diff
==============================================================================
--- trunk/liborlite-perl/inc/Module/Install/DSL.pm (original)
+++ trunk/liborlite-perl/inc/Module/Install/DSL.pm Wed Mar 10 01:37:24 2010
@@ -4,7 +4,7 @@
use strict;
use vars qw{$VERSION $ISCORE};
BEGIN {
- $VERSION = '0.92';
+ $VERSION = '0.94';
$ISCORE = 1;
*inc::Module::Install::DSL::VERSION = *VERSION;
@inc::Module::Install::DSL::ISA = __PACKAGE__;
@@ -39,9 +39,11 @@
}
# Convert the basic syntax to code
- my $code = "package main;\n\n"
+ my $code = "INIT {\n"
+ . "package main;\n\n"
. dsl2code($dsl)
- . "\n\nWriteAll();\n";
+ . "\n\nWriteAll();\n"
+ . "}\n";
# Execute the script
eval $code;
Modified: trunk/liborlite-perl/inc/Module/Install/Fetch.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liborlite-perl/inc/Module/Install/Fetch.pm?rev=54024&op=diff
==============================================================================
--- trunk/liborlite-perl/inc/Module/Install/Fetch.pm (original)
+++ trunk/liborlite-perl/inc/Module/Install/Fetch.pm Wed Mar 10 01:37:24 2010
@@ -6,7 +6,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '0.92';
+ $VERSION = '0.94';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
Modified: trunk/liborlite-perl/inc/Module/Install/Makefile.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liborlite-perl/inc/Module/Install/Makefile.pm?rev=54024&op=diff
==============================================================================
--- trunk/liborlite-perl/inc/Module/Install/Makefile.pm (original)
+++ trunk/liborlite-perl/inc/Module/Install/Makefile.pm Wed Mar 10 01:37:24 2010
@@ -7,7 +7,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '0.92';
+ $VERSION = '0.94';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
@@ -118,6 +118,9 @@
%test_dir = ();
require File::Find;
File::Find::find( \&_wanted_t, $dir );
+ if ( -d 'xt' and ($Module::Install::AUTHOR or $ENV{RELEASE_TESTING}) ) {
+ File::Find::find( \&_wanted_t, 'xt' );
+ }
$self->tests( join ' ', map { "$_/*.t" } sort keys %test_dir );
}
@@ -157,15 +160,23 @@
$args->{NAME} = $self->module_name || $self->name;
$args->{VERSION} = $self->version;
$args->{NAME} =~ s/-/::/g;
+ $DB::single = 1;
if ( $self->tests ) {
- $args->{test} = { TESTS => $self->tests };
+ $args->{test} = {
+ TESTS => $self->tests,
+ };
+ } elsif ( -d 'xt' and ($Module::Install::AUTHOR or $ENV{RELEASE_TESTING}) ) {
+ $args->{test} = {
+ TESTS => join( ' ', map { "$_/*.t" } grep { -d $_ } qw{ t xt } ),
+ };
}
if ( $] >= 5.005 ) {
$args->{ABSTRACT} = $self->abstract;
$args->{AUTHOR} = $self->author;
}
if ( $self->makemaker(6.10) ) {
- $args->{NO_META} = 1;
+ $args->{NO_META} = 1;
+ #$args->{NO_MYMETA} = 1;
}
if ( $self->makemaker(6.17) and $self->sign ) {
$args->{SIGN} = 1;
@@ -224,10 +235,12 @@
$args->{INSTALLDIRS} = $self->installdirs;
- my %args = map { ( $_ => $args->{$_} ) } grep {defined($args->{$_})} keys %$args;
+ my %args = map {
+ ( $_ => $args->{$_} ) } grep {defined($args->{$_} )
+ } keys %$args;
my $user_preop = delete $args{dist}->{PREOP};
- if (my $preop = $self->admin->preop($user_preop)) {
+ if ( my $preop = $self->admin->preop($user_preop) ) {
foreach my $key ( keys %$preop ) {
$args{dist}->{$key} = $preop->{$key};
}
@@ -297,4 +310,4 @@
__END__
-#line 426
+#line 439
Modified: trunk/liborlite-perl/inc/Module/Install/Metadata.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liborlite-perl/inc/Module/Install/Metadata.pm?rev=54024&op=diff
==============================================================================
--- trunk/liborlite-perl/inc/Module/Install/Metadata.pm (original)
+++ trunk/liborlite-perl/inc/Module/Install/Metadata.pm Wed Mar 10 01:37:24 2010
@@ -6,7 +6,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '0.92';
+ $VERSION = '0.94';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
@@ -230,7 +230,7 @@
die("The path '$file' does not exist, or is not a file");
}
- $self->{values}{all_from} = $file;
+ $self->{values}{all_from} = $file;
# Some methods pull from POD instead of code.
# If there is a matching .pod, use that instead
@@ -451,6 +451,7 @@
my @phrases = (
'under the same (?:terms|license) as (?:perl|the perl programming language)' => 'perl', 1,
'under the terms of (?:perl|the perl programming language) itself' => 'perl', 1,
+ 'Artistic and GPL' => 'perl', 1,
'GNU general public license' => 'gpl', 1,
'GNU public license' => 'gpl', 1,
'GNU lesser general public license' => 'lgpl', 1,
Modified: trunk/liborlite-perl/inc/Module/Install/Win32.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liborlite-perl/inc/Module/Install/Win32.pm?rev=54024&op=diff
==============================================================================
--- trunk/liborlite-perl/inc/Module/Install/Win32.pm (original)
+++ trunk/liborlite-perl/inc/Module/Install/Win32.pm Wed Mar 10 01:37:24 2010
@@ -6,7 +6,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '0.92';
+ $VERSION = '0.94';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
Modified: trunk/liborlite-perl/inc/Module/Install/With.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liborlite-perl/inc/Module/Install/With.pm?rev=54024&op=diff
==============================================================================
--- trunk/liborlite-perl/inc/Module/Install/With.pm (original)
+++ trunk/liborlite-perl/inc/Module/Install/With.pm Wed Mar 10 01:37:24 2010
@@ -8,7 +8,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '0.92';
+ $VERSION = '0.94';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
Modified: trunk/liborlite-perl/inc/Module/Install/WriteAll.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liborlite-perl/inc/Module/Install/WriteAll.pm?rev=54024&op=diff
==============================================================================
--- trunk/liborlite-perl/inc/Module/Install/WriteAll.pm (original)
+++ trunk/liborlite-perl/inc/Module/Install/WriteAll.pm Wed Mar 10 01:37:24 2010
@@ -6,7 +6,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '0.92';;
+ $VERSION = '0.94';;
@ISA = qw{Module::Install::Base};
$ISCORE = 1;
}
Modified: trunk/liborlite-perl/lib/ORLite.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liborlite-perl/lib/ORLite.pm?rev=54024&op=diff
==============================================================================
--- trunk/liborlite-perl/lib/ORLite.pm (original)
+++ trunk/liborlite-perl/lib/ORLite.pm Wed Mar 10 01:37:24 2010
@@ -15,7 +15,7 @@
use vars qw{$VERSION};
BEGIN {
- $VERSION = '1.40';
+ $VERSION = '1.41';
}
# Support for the 'prune' option
@@ -157,6 +157,10 @@
} );
}
+sub connected {
+ defined \$DBH;
+}
+
sub prepare {
shift->dbh->prepare(\@_);
}
@@ -938,6 +942,31 @@
The C<dbh> method returns a L<DBI::db> object, or throws an exception on
error.
+=head2 connect
+
+ my $dbh = Foo::Bar->connect;
+
+The C<connect> method is provided for the (extremely rare) situation in
+which you need a raw connection to the database, evading the normal tracking
+and management provided of the ORM.
+
+The use of raw connections in this manner is strongly discouraged, as you
+can create fatal deadlocks in SQLite if either the core ORM or the raw
+connection uses a transaction at any time.
+
+To summarise, do not use this method unless you B<REALLY> know what you are
+doing.
+
+B<YOU HAVE BEEN WARNED!>
+
+=head2 connected
+
+ my $active = Foo::Bar->connected;
+
+The C<connected> method provides introspection of the connection status
+of the library. It returns true if there is any connection or transaction
+open to the database, or false otherwise.
+
=head2 begin
Foo::Bar->begin;
Modified: trunk/liborlite-perl/t/02_basics.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liborlite-perl/t/02_basics.t?rev=54024&op=diff
==============================================================================
--- trunk/liborlite-perl/t/02_basics.t (original)
+++ trunk/liborlite-perl/t/02_basics.t Wed Mar 10 01:37:24 2010
@@ -9,7 +9,7 @@
$^W = 1;
}
-use Test::More tests => 68;
+use Test::More tests => 71;
use File::Spec::Functions ':ALL';
use t::lib::Test;
@@ -142,10 +142,13 @@
# Transaction testing
SCOPE: {
+ is( Foo::Bar->connected, !1, '->connected is false' );
ok( Foo::Bar->begin, '->begin' );
+ is( Foo::Bar->connected, 1, '->connected is true' );
isa_ok( Foo::Bar::TableOne->create, 'Foo::Bar::TableOne' );
is( Foo::Bar::TableOne->count, 1, 'One row created' );
ok( Foo::Bar->rollback, '->rollback' );
+ is( Foo::Bar->connected, !1, '->connected is false' );
is( Foo::Bar::TableOne->count, 0, 'Commit ok' );
ok( Foo::Bar->begin, '->begin' );
Modified: trunk/liborlite-perl/t/08_prune.pl
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liborlite-perl/t/08_prune.pl?rev=54024&op=diff
==============================================================================
--- trunk/liborlite-perl/t/08_prune.pl (original)
+++ trunk/liborlite-perl/t/08_prune.pl Wed Mar 10 01:37:24 2010
@@ -4,7 +4,7 @@
use strict;
-our $VERSION = '1.40';
+our $VERSION = '1.41';
unless ( $ORLite::VERSION eq $VERSION ) {
die('Failed to load correct ORLite version');
Modified: trunk/liborlite-perl/t/lib/Test.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liborlite-perl/t/lib/Test.pm?rev=54024&op=diff
==============================================================================
--- trunk/liborlite-perl/t/lib/Test.pm (original)
+++ trunk/liborlite-perl/t/lib/Test.pm Wed Mar 10 01:37:24 2010
@@ -9,7 +9,7 @@
use vars qw{$VERSION @ISA @EXPORT};
BEGIN {
- $VERSION = '1.40';
+ $VERSION = '1.41';
@ISA = 'Exporter';
@EXPORT = qw{ test_db connect_ok create_ok };
}
More information about the Pkg-perl-cvs-commits
mailing list