r62023 - in /branches/upstream/libdbm-deep-perl/current: Changes META.yml README lib/DBM/Deep.pm lib/DBM/Deep.pod lib/DBM/Deep/Engine/DBI.pm lib/DBM/Deep/Engine/File.pm t/02_hash.t t/03_bighash.t t/04_array.t t/28_index_sector.t
ansgar-guest at users.alioth.debian.org
ansgar-guest at users.alioth.debian.org
Wed Aug 25 12:57:41 UTC 2010
Author: ansgar-guest
Date: Wed Aug 25 12:57:34 2010
New Revision: 62023
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=62023
Log:
[svn-upgrade] new version libdbm-deep-perl (2.0001)
Modified:
branches/upstream/libdbm-deep-perl/current/Changes
branches/upstream/libdbm-deep-perl/current/META.yml
branches/upstream/libdbm-deep-perl/current/README
branches/upstream/libdbm-deep-perl/current/lib/DBM/Deep.pm
branches/upstream/libdbm-deep-perl/current/lib/DBM/Deep.pod
branches/upstream/libdbm-deep-perl/current/lib/DBM/Deep/Engine/DBI.pm
branches/upstream/libdbm-deep-perl/current/lib/DBM/Deep/Engine/File.pm
branches/upstream/libdbm-deep-perl/current/t/02_hash.t
branches/upstream/libdbm-deep-perl/current/t/03_bighash.t
branches/upstream/libdbm-deep-perl/current/t/04_array.t
branches/upstream/libdbm-deep-perl/current/t/28_index_sector.t
Modified: branches/upstream/libdbm-deep-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdbm-deep-perl/current/Changes?rev=62023&op=diff
==============================================================================
--- branches/upstream/libdbm-deep-perl/current/Changes (original)
+++ branches/upstream/libdbm-deep-perl/current/Changes Wed Aug 25 12:57: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: branches/upstream/libdbm-deep-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdbm-deep-perl/current/META.yml?rev=62023&op=diff
==============================================================================
--- branches/upstream/libdbm-deep-perl/current/META.yml (original)
+++ branches/upstream/libdbm-deep-perl/current/META.yml Wed Aug 25 12:57: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: branches/upstream/libdbm-deep-perl/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdbm-deep-perl/current/README?rev=62023&op=diff
==============================================================================
--- branches/upstream/libdbm-deep-perl/current/README (original)
+++ branches/upstream/libdbm-deep-perl/current/README Wed Aug 25 12:57:34 2010
@@ -3,7 +3,7 @@
transactions
VERSION
- 2.0000
+ 2.0001
SYNOPSIS
use DBM::Deep;
Modified: branches/upstream/libdbm-deep-perl/current/lib/DBM/Deep.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdbm-deep-perl/current/lib/DBM/Deep.pm?rev=62023&op=diff
==============================================================================
--- branches/upstream/libdbm-deep-perl/current/lib/DBM/Deep.pm (original)
+++ branches/upstream/libdbm-deep-perl/current/lib/DBM/Deep.pm Wed Aug 25 12:57: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: branches/upstream/libdbm-deep-perl/current/lib/DBM/Deep.pod
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdbm-deep-perl/current/lib/DBM/Deep.pod?rev=62023&op=diff
==============================================================================
--- branches/upstream/libdbm-deep-perl/current/lib/DBM/Deep.pod (original)
+++ branches/upstream/libdbm-deep-perl/current/lib/DBM/Deep.pod Wed Aug 25 12:57:34 2010
@@ -4,7 +4,7 @@
=head1 VERSION
-2.0000
+2.0001
=head1 SYNOPSIS
Modified: branches/upstream/libdbm-deep-perl/current/lib/DBM/Deep/Engine/DBI.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdbm-deep-perl/current/lib/DBM/Deep/Engine/DBI.pm?rev=62023&op=diff
==============================================================================
--- branches/upstream/libdbm-deep-perl/current/lib/DBM/Deep/Engine/DBI.pm (original)
+++ branches/upstream/libdbm-deep-perl/current/lib/DBM/Deep/Engine/DBI.pm Wed Aug 25 12:57: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: branches/upstream/libdbm-deep-perl/current/lib/DBM/Deep/Engine/File.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdbm-deep-perl/current/lib/DBM/Deep/Engine/File.pm?rev=62023&op=diff
==============================================================================
--- branches/upstream/libdbm-deep-perl/current/lib/DBM/Deep/Engine/File.pm (original)
+++ branches/upstream/libdbm-deep-perl/current/lib/DBM/Deep/Engine/File.pm Wed Aug 25 12:57: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: branches/upstream/libdbm-deep-perl/current/t/02_hash.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdbm-deep-perl/current/t/02_hash.t?rev=62023&op=diff
==============================================================================
--- branches/upstream/libdbm-deep-perl/current/t/02_hash.t (original)
+++ branches/upstream/libdbm-deep-perl/current/t/02_hash.t Wed Aug 25 12:57: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: branches/upstream/libdbm-deep-perl/current/t/03_bighash.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdbm-deep-perl/current/t/03_bighash.t?rev=62023&op=diff
==============================================================================
--- branches/upstream/libdbm-deep-perl/current/t/03_bighash.t (original)
+++ branches/upstream/libdbm-deep-perl/current/t/03_bighash.t Wed Aug 25 12:57: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: branches/upstream/libdbm-deep-perl/current/t/04_array.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdbm-deep-perl/current/t/04_array.t?rev=62023&op=diff
==============================================================================
--- branches/upstream/libdbm-deep-perl/current/t/04_array.t (original)
+++ branches/upstream/libdbm-deep-perl/current/t/04_array.t Wed Aug 25 12:57: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: branches/upstream/libdbm-deep-perl/current/t/28_index_sector.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdbm-deep-perl/current/t/28_index_sector.t?rev=62023&op=diff
==============================================================================
--- branches/upstream/libdbm-deep-perl/current/t/28_index_sector.t (original)
+++ branches/upstream/libdbm-deep-perl/current/t/28_index_sector.t Wed Aug 25 12:57: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