r62026 - in /trunk/libdbm-deep-perl: ./ debian/ lib/DBM/ lib/DBM/Deep/Engine/ t/
ansgar-guest at users.alioth.debian.org
ansgar-guest at users.alioth.debian.org
Wed Aug 25 13:13:46 UTC 2010
Author: ansgar-guest
Date: Wed Aug 25 13:13:34 2010
New Revision: 62026
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=62026
Log:
* New upstream release.
* Use debhelper compat level 8; no longer pass --buildsystem=perl_build in
debian/rules as this is now selected by default.
* debian/rules: Remove DBM::Deep::ConfigData module that gets generated by
Module::Build.
* debian/copyright: Refer to /usr/share/common-licenses/GPL-1.
* Bump Standards-Version to 3.9.1.
Modified:
trunk/libdbm-deep-perl/Changes
trunk/libdbm-deep-perl/META.yml
trunk/libdbm-deep-perl/README
trunk/libdbm-deep-perl/debian/changelog
trunk/libdbm-deep-perl/debian/compat
trunk/libdbm-deep-perl/debian/control
trunk/libdbm-deep-perl/debian/copyright
trunk/libdbm-deep-perl/debian/rules
trunk/libdbm-deep-perl/lib/DBM/Deep.pm
trunk/libdbm-deep-perl/lib/DBM/Deep.pod
trunk/libdbm-deep-perl/lib/DBM/Deep/Engine/DBI.pm
trunk/libdbm-deep-perl/lib/DBM/Deep/Engine/File.pm
trunk/libdbm-deep-perl/t/02_hash.t
trunk/libdbm-deep-perl/t/03_bighash.t
trunk/libdbm-deep-perl/t/04_array.t
trunk/libdbm-deep-perl/t/28_index_sector.t
Modified: trunk/libdbm-deep-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdbm-deep-perl/Changes?rev=62026&op=diff
==============================================================================
--- trunk/libdbm-deep-perl/Changes (original)
+++ trunk/libdbm-deep-perl/Changes Wed Aug 25 13:13:34 2010
@@ -1,4 +1,9 @@
Revision history for DBM::Deep (ordered by revision number).
+
+2.0001 Aug 22 12:03:00 2010 PDT
+ - Simply reading a hash or array element no longer causes autoviv-
+ ification. (Dereferencing it does still.) This makes DBM::Deep
+ comply with Perl’s behaviour (RT#60391).
2.0000 Jul 18 14:30:00 2010 PDT
- THIS VERSION IS NOT FULLY COMPATIBLE WITH 1.002x.
Modified: trunk/libdbm-deep-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdbm-deep-perl/META.yml?rev=62026&op=diff
==============================================================================
--- trunk/libdbm-deep-perl/META.yml (original)
+++ trunk/libdbm-deep-perl/META.yml Wed Aug 25 13:13:34 2010
@@ -23,7 +23,7 @@
provides:
DBM::Deep:
file: lib/DBM/Deep.pm
- version: 2.0000
+ version: 2.0001
DBM::Deep::Array:
file: lib/DBM/Deep/Array.pm
DBM::Deep::Engine:
@@ -81,4 +81,4 @@
perl: 5.008_004
resources:
license: http://dev.perl.org/licenses/
-version: 2.0000
+version: 2.0001
Modified: trunk/libdbm-deep-perl/README
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdbm-deep-perl/README?rev=62026&op=diff
==============================================================================
--- trunk/libdbm-deep-perl/README (original)
+++ trunk/libdbm-deep-perl/README Wed Aug 25 13:13:34 2010
@@ -3,7 +3,7 @@
transactions
VERSION
- 2.0000
+ 2.0001
SYNOPSIS
use DBM::Deep;
Modified: trunk/libdbm-deep-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdbm-deep-perl/debian/changelog?rev=62026&op=diff
==============================================================================
--- trunk/libdbm-deep-perl/debian/changelog (original)
+++ trunk/libdbm-deep-perl/debian/changelog Wed Aug 25 13:13:34 2010
@@ -1,3 +1,15 @@
+libdbm-deep-perl (2.0001-1) unstable; urgency=low
+
+ * New upstream release.
+ * Use debhelper compat level 8; no longer pass --buildsystem=perl_build in
+ debian/rules as this is now selected by default.
+ * debian/rules: Remove DBM::Deep::ConfigData module that gets generated by
+ Module::Build.
+ * debian/copyright: Refer to /usr/share/common-licenses/GPL-1.
+ * Bump Standards-Version to 3.9.1.
+
+ -- Ansgar Burchardt <ansgar at 43-1.org> Wed, 25 Aug 2010 22:12:50 +0900
+
libdbm-deep-perl (2.0000-1) unstable; urgency=low
[ Ansgar Burchardt ]
Modified: trunk/libdbm-deep-perl/debian/compat
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdbm-deep-perl/debian/compat?rev=62026&op=diff
==============================================================================
--- trunk/libdbm-deep-perl/debian/compat (original)
+++ trunk/libdbm-deep-perl/debian/compat Wed Aug 25 13:13:34 2010
@@ -1,1 +1,1 @@
-7
+8
Modified: trunk/libdbm-deep-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdbm-deep-perl/debian/control?rev=62026&op=diff
==============================================================================
--- trunk/libdbm-deep-perl/debian/control (original)
+++ trunk/libdbm-deep-perl/debian/control Wed Aug 25 13:13:34 2010
@@ -1,7 +1,7 @@
Source: libdbm-deep-perl
Section: perl
Priority: optional
-Build-Depends: debhelper (>= 7.3.7~)
+Build-Depends: debhelper (>= 8)
Build-Depends-Indep: perl, libtest-deep-perl (>= 0.095),
libtest-exception-perl (>= 0.21), libtest-warn-perl,
libio-stringy-perl, libfilehandle-fmode-perl, libtest-pod-coverage-perl,
@@ -11,7 +11,7 @@
Uploaders: AGOSTINI Yves <agostini at univ-metz.fr>,
gregor herrmann <gregoa at debian.org>,
Ansgar Burchardt <ansgar at 43-1.org>
-Standards-Version: 3.9.0
+Standards-Version: 3.9.1
Homepage: http://search.cpan.org/dist/DBM-Deep/
Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/libdbm-deep-perl/
Vcs-Browser: http://svn.debian.org/viewsvn/pkg-perl/trunk/libdbm-deep-perl/
Modified: trunk/libdbm-deep-perl/debian/copyright
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdbm-deep-perl/debian/copyright?rev=62026&op=diff
==============================================================================
--- trunk/libdbm-deep-perl/debian/copyright (original)
+++ trunk/libdbm-deep-perl/debian/copyright Wed Aug 25 13:13:34 2010
@@ -19,7 +19,7 @@
it under the terms of the Artistic License, which comes with Perl.
.
On Debian GNU/Linux systems, the complete text of the Artistic License
- can be found in `/usr/share/common-licenses/Artistic'
+ can be found in `/usr/share/common-licenses/Artistic'.
License: GPL-1+
This program is free software; you can redistribute it and/or modify
@@ -27,5 +27,5 @@
the Free Software Foundation; either version 1, or (at your option)
any later version.
.
- On Debian GNU/Linux systems, the complete text of the GNU General
- Public License can be found in `/usr/share/common-licenses/GPL'
+ On Debian GNU/Linux systems, the complete text of version 1 of the GNU
+ General Public License can be found in `/usr/share/common-licenses/GPL-1'.
Modified: trunk/libdbm-deep-perl/debian/rules
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdbm-deep-perl/debian/rules?rev=62026&op=diff
==============================================================================
--- trunk/libdbm-deep-perl/debian/rules (original)
+++ trunk/libdbm-deep-perl/debian/rules Wed Aug 25 13:13:34 2010
@@ -1,7 +1,16 @@
#!/usr/bin/make -f
+PKG := $(shell dh_listpackages)
+TMP := $(CURDIR)/debian/$(PKG)
+
%:
- dh $@ --buildsystem=perl_build
+ dh $@
+
+override_dh_auto_install:
+ dh_auto_install
+ # Generated by Module::Build, but not used.
+ rm $(TMP)/usr/share/perl5/DBM/Deep/ConfigData.pm \
+ $(TMP)/usr/share/man/man3/DBM::Deep::ConfigData.3pm
override_dh_auto_test:
- LONG_TESTS=1 TEST_SQLITE=1 dh_auto_test --buildsystem=perl_build
+ LONG_TESTS=1 TEST_SQLITE=1 dh_auto_test
Modified: trunk/libdbm-deep-perl/lib/DBM/Deep.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdbm-deep-perl/lib/DBM/Deep.pm?rev=62026&op=diff
==============================================================================
--- trunk/libdbm-deep-perl/lib/DBM/Deep.pm (original)
+++ trunk/libdbm-deep-perl/lib/DBM/Deep.pm Wed Aug 25 13:13:34 2010
@@ -6,7 +6,7 @@
use warnings FATAL => 'all';
no warnings 'recursion';
-our $VERSION = q(2.0000);
+our $VERSION = q(2.0001);
use Scalar::Util ();
Modified: trunk/libdbm-deep-perl/lib/DBM/Deep.pod
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdbm-deep-perl/lib/DBM/Deep.pod?rev=62026&op=diff
==============================================================================
--- trunk/libdbm-deep-perl/lib/DBM/Deep.pod (original)
+++ trunk/libdbm-deep-perl/lib/DBM/Deep.pod Wed Aug 25 13:13:34 2010
@@ -4,7 +4,7 @@
=head1 VERSION
-2.0000
+2.0001
=head1 SYNOPSIS
Modified: trunk/libdbm-deep-perl/lib/DBM/Deep/Engine/DBI.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdbm-deep-perl/lib/DBM/Deep/Engine/DBI.pm?rev=62026&op=diff
==============================================================================
--- trunk/libdbm-deep-perl/lib/DBM/Deep/Engine/DBI.pm (original)
+++ trunk/libdbm-deep-perl/lib/DBM/Deep/Engine/DBI.pm Wed Aug 25 13:13:34 2010
@@ -83,17 +83,7 @@
});
unless ( $value_sector ) {
- $value_sector = DBM::Deep::Sector::DBI::Scalar->new({
- engine => $self,
- data => undef,
- data_type => 'S',
- });
-
- $sector->write_data({
-# key_md5 => $key_md5,
- key => $key,
- value => $value_sector,
- });
+ return undef
}
return $value_sector->data;
Modified: trunk/libdbm-deep-perl/lib/DBM/Deep/Engine/File.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdbm-deep-perl/lib/DBM/Deep/Engine/File.pm?rev=62026&op=diff
==============================================================================
--- trunk/libdbm-deep-perl/lib/DBM/Deep/Engine/File.pm (original)
+++ trunk/libdbm-deep-perl/lib/DBM/Deep/Engine/File.pm Wed Aug 25 13:13:34 2010
@@ -154,16 +154,7 @@
});
unless ( $value_sector ) {
- $value_sector = DBM::Deep::Sector::File::Null->new({
- engine => $self,
- data => undef,
- });
-
- $sector->write_data({
- key_md5 => $key_md5,
- key => $key,
- value => $value_sector,
- });
+ return undef
}
return $value_sector->data;
Modified: trunk/libdbm-deep-perl/t/02_hash.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdbm-deep-perl/t/02_hash.t?rev=62026&op=diff
==============================================================================
--- trunk/libdbm-deep-perl/t/02_hash.t (original)
+++ trunk/libdbm-deep-perl/t/02_hash.t Wed Aug 25 13:13:34 2010
@@ -39,11 +39,8 @@
ok( exists $db->{key2}, "exists() works against tied hash" );
ok( !exists $db->{key4}, "exists() function works for keys that aren't there" );
- is( $db->{key4}, undef, "Autovivified key4" );
- ok( exists $db->{key4}, "Autovivified key4 now exists" );
-
- delete $db->{key4};
- ok( !exists $db->{key4}, "And key4 doesn't exists anymore" );
+ is( $db->{key4}, undef, "Nonexistent key4 is undef" );
+ ok( !exists $db->{key4}, "Simply reading key4 does not autovivify" );
# Keys will be done via an iterator that keeps a breadcrumb trail of the last
# key it provided. There will also be an "edit revision number" on the
Modified: trunk/libdbm-deep-perl/t/03_bighash.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdbm-deep-perl/t/03_bighash.t?rev=62026&op=diff
==============================================================================
--- trunk/libdbm-deep-perl/t/03_bighash.t (original)
+++ trunk/libdbm-deep-perl/t/03_bighash.t Wed Aug 25 13:13:34 2010
@@ -44,7 +44,8 @@
cmp_deeply( \@keys, \@control, "Correct keys are there" );
ok( !exists $foo->{does_not_exist}, "EXISTS works on large hashes for non-existent keys" );
- is( $foo->{does_not_exist}, undef, "autovivification works on large hashes" );
+ $foo->{does_not_exist}{ling} = undef;
+ ok( $foo->{does_not_exist}, "autovivification works on large hashes" );
ok( exists $foo->{does_not_exist}, "EXISTS works on large hashes for newly-existent keys" );
cmp_ok( scalar(keys %$foo), '==', $max_keys + 2, "Number of keys after autovivify is correct" );
Modified: trunk/libdbm-deep-perl/t/04_array.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdbm-deep-perl/t/04_array.t?rev=62026&op=diff
==============================================================================
--- trunk/libdbm-deep-perl/t/04_array.t (original)
+++ trunk/libdbm-deep-perl/t/04_array.t Wed Aug 25 13:13:34 2010
@@ -112,7 +112,7 @@
# exists
##
ok( $db->exists(1), "The 1st value exists" );
- ok( $db->exists(0), "The 0th value doesn't exist" );
+ ok( !$db->exists(0), "The 0th value doesn't exist" );
ok( !$db->exists(22), "The 22nd value doesn't exists" );
ok( $db->exists(-1), "The -1st value does exists" );
ok( !$db->exists(-22), "The -22nd value doesn't exists" );
Modified: trunk/libdbm-deep-perl/t/28_index_sector.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdbm-deep-perl/t/28_index_sector.t?rev=62026&op=diff
==============================================================================
--- trunk/libdbm-deep-perl/t/28_index_sector.t (original)
+++ trunk/libdbm-deep-perl/t/28_index_sector.t Wed Aug 25 13:13:34 2010
@@ -27,7 +27,8 @@
cmp_ok( scalar(@keys), '==', 17, "Right number of keys returned" );
ok( !exists $db->{does_not_exist}, "EXISTS works on large hashes for non-existent keys" );
- is( $db->{does_not_exist}, undef, "autovivification works on large hashes" );
+ $db->{does_not_exist}{ling} = undef;
+ ok( $db->{does_not_exist}, "autovivification works on large hashes" );
ok( exists $db->{does_not_exist}, "EXISTS works on large hashes for newly-existent keys" );
cmp_ok( scalar(keys %$db), '==', 18, "Number of keys after autovivify is correct" );
}
More information about the Pkg-perl-cvs-commits
mailing list