Hello community,
here is the log from the commit of package perl-DBM-Deep for openSUSE:Factory checked in at 2013-06-05 13:33:58
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-DBM-Deep (Old)
and /work/SRC/openSUSE:Factory/.perl-DBM-Deep.new (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-DBM-Deep"
Changes:
--------
--- /work/SRC/openSUSE:Factory/perl-DBM-Deep/perl-DBM-Deep.changes 2012-03-06 14:06:18.000000000 +0100
+++ /work/SRC/openSUSE:Factory/.perl-DBM-Deep.new/perl-DBM-Deep.changes 2013-06-05 13:33:59.000000000 +0200
@@ -1,0 +2,19 @@
+Tue Jun 4 07:24:32 UTC 2013 - coolo@suse.com
+
+- updated to 2.0008
+ - Arrays and hashes retrieved from a database no longer create
+ circular references (RT#77746).
+
+ - Include one-line descriptions of each POD page after the name.
+ Thanks to Yves Agostini for the patch and Gregor Herrmann for
+ submitting it (RT#76378).
+ - t/98_pod.t: Skip tests if Pod::Simple 3.21 is installed
+ (RT#77419).
+
+ - Er, try harder to get t/27_filehandle.t to work under TB2. The
+ extra ‘TAP version 13’ line was causing a TAP parse error.
+
+ - t/27_filehandle.t has been fixed again. It no longer violates
+ Test::Builder’s encapsulation.
+
+-------------------------------------------------------------------
Old:
----
DBM-Deep-2.0004.tar.gz
New:
----
DBM-Deep-2.0008.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-DBM-Deep.spec ++++++
--- /var/tmp/diff_new_pack.UIYz5U/_old 2013-06-05 13:34:00.000000000 +0200
+++ /var/tmp/diff_new_pack.UIYz5U/_new 2013-06-05 13:34:00.000000000 +0200
@@ -1,7 +1,7 @@
#
# spec file for package perl-DBM-Deep
#
-# Copyright (c) 2012 SUSE LINUX Products GmbH, Nuernberg, Germany.
+# Copyright (c) 2013 SUSE LINUX Products GmbH, Nuernberg, Germany.
#
# All modifications and additions to the file contributed by third parties
# remain the property of their copyright owners, unless otherwise agreed
@@ -23,7 +23,7 @@
Summary: Pure perl multi-level hash/array DBM that supports transactions
License: GPL-1.0+ or Artistic-1.0
Group: Development/Libraries/Perl
-Version: 2.0004
+Version: 2.0008
Release: 0
Url: http://search.cpan.org/dist/DBM-Deep/
Source: http://www.cpan.org/modules/by-module/DBM/DBM-Deep-%{version}.tar.gz
@@ -63,11 +63,6 @@
wrapper around a C-based DBM. Out-of-the-box compatibility with Unix, Mac
OS X and Windows.
-Author:
--------
- Rob Kinyon,
- Joseph Huckaby,
-
%prep
%setup -q -n %{cpan_name}-%{version}
# would require Test::More >= 0.88 (done_testing)
@@ -87,9 +82,6 @@
./Build install destdir=$RPM_BUILD_ROOT create_packlist=0
%perl_gen_filelist
-%clean
-%{__rm} -rf $RPM_BUILD_ROOT
-
%files -f %{name}.files
%defattr(-,root,root,-)
%doc Changes etc README utils
++++++ DBM-Deep-2.0004.tar.gz -> DBM-Deep-2.0008.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBM-Deep-2.0004/Changes new/DBM-Deep-2.0008/Changes
--- old/DBM-Deep-2.0004/Changes 2010-09-13 03:38:28.000000000 +0200
+++ new/DBM-Deep-2.0008/Changes 2012-06-17 21:58:48.000000000 +0200
@@ -1,5 +1,24 @@
Revision history for DBM::Deep (ordered by revision number).
+2.0008 Jun 17 13:00:00 2012 PDT
+ - Arrays and hashes retrieved from a database no longer create
+ circular references (RT#77746).
+
+2.0007 May 27 19:35:00 2012 PDT
+ - Include one-line descriptions of each POD page after the name.
+ Thanks to Yves Agostini for the patch and Gregor Herrmann for
+ submitting it (RT#76378).
+ - t/98_pod.t: Skip tests if Pod::Simple 3.21 is installed
+ (RT#77419).
+
+2.0006 Apr 1 17:15:00 2012 PDT
+ - Er, try harder to get t/27_filehandle.t to work under TB2. The
+ extra ‘TAP version 13’ line was causing a TAP parse error.
+
+2.0005 Mar 25 13:05:00 2012 PDT
+ - t/27_filehandle.t has been fixed again. It no longer violates
+ Test::Builder’s encapsulation.
+
2.0004 Sep 12 18:38:00 2010 PDT
- t/27_filehandle.t has been fixed to work with Test::More 2.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBM-Deep-2.0004/MANIFEST new/DBM-Deep-2.0008/MANIFEST
--- old/DBM-Deep-2.0004/MANIFEST 2010-09-13 03:38:28.000000000 +0200
+++ new/DBM-Deep-2.0008/MANIFEST 2012-06-17 21:58:48.000000000 +0200
@@ -86,6 +86,7 @@
t/55_recursion.t
t/56_unicode.t
t/57_old_db.t
+t/58_cache.t
t/96_virtual_functions.t
t/97_dump_file.t
t/98_pod.t
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBM-Deep-2.0004/META.yml new/DBM-Deep-2.0008/META.yml
--- old/DBM-Deep-2.0004/META.yml 2010-09-13 03:38:28.000000000 +0200
+++ new/DBM-Deep-2.0008/META.yml 2012-06-17 21:58:48.000000000 +0200
@@ -23,7 +23,7 @@
provides:
DBM::Deep:
file: lib/DBM/Deep.pm
- version: 2.0004
+ version: 2.0008
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.0004
+version: 2.0008
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBM-Deep-2.0004/README new/DBM-Deep-2.0008/README
--- old/DBM-Deep-2.0004/README 2010-09-13 03:38:28.000000000 +0200
+++ new/DBM-Deep-2.0008/README 2012-06-17 21:58:48.000000000 +0200
@@ -3,7 +3,7 @@
transactions
VERSION
- 2.0004
+ 2.0008
SYNOPSIS
use DBM::Deep;
@@ -239,6 +239,11 @@
255. The more transactions, the larger and quicker the datafile
grows.
+ Simple access to a database, regardless of how many processes are
+ doing it, already counts as one transaction (the HEAD). So, if you
+ want, say, 5 processes to be able to call begin_work at the same
+ time, `num_txns' must be at least 6.
+
See TRANSACTIONS below.
* max_buckets
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBM-Deep-2.0004/lib/DBM/Deep/Cookbook.pod new/DBM-Deep-2.0008/lib/DBM/Deep/Cookbook.pod
--- old/DBM-Deep-2.0004/lib/DBM/Deep/Cookbook.pod 2010-09-13 03:38:28.000000000 +0200
+++ new/DBM-Deep-2.0008/lib/DBM/Deep/Cookbook.pod 2012-06-17 21:58:48.000000000 +0200
@@ -1,6 +1,6 @@
=head1 NAME
-DBM::Deep::Cookbook
+DBM::Deep::Cookbook - Cookbook for DBM::Deep
=head1 DESCRIPTION
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBM-Deep-2.0004/lib/DBM/Deep/Engine/File.pm new/DBM-Deep-2.0008/lib/DBM/Deep/Engine/File.pm
--- old/DBM-Deep-2.0004/lib/DBM/Deep/Engine/File.pm 2010-09-13 03:38:28.000000000 +0200
+++ new/DBM-Deep-2.0008/lib/DBM/Deep/Engine/File.pm 2012-06-17 21:58:48.000000000 +0200
@@ -41,7 +41,7 @@
=head1 NAME
-DBM::Deep::Engine::File
+DBM::Deep::Engine::File - engine for use with DBM::Deep::Storage::File
=head1 PURPOSE
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBM-Deep-2.0004/lib/DBM/Deep/Engine.pm new/DBM-Deep-2.0008/lib/DBM/Deep/Engine.pm
--- old/DBM-Deep-2.0004/lib/DBM/Deep/Engine.pm 2010-09-13 03:38:28.000000000 +0200
+++ new/DBM-Deep-2.0008/lib/DBM/Deep/Engine.pm 2012-06-17 21:58:48.000000000 +0200
@@ -19,7 +19,7 @@
=head1 NAME
-DBM::Deep::Engine
+DBM::Deep::Engine - mediate mapping between DBM::Deep objects and storage medium
=head1 PURPOSE
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBM-Deep-2.0004/lib/DBM/Deep/Internals.pod new/DBM-Deep-2.0008/lib/DBM/Deep/Internals.pod
--- old/DBM-Deep-2.0004/lib/DBM/Deep/Internals.pod 2010-09-13 03:38:28.000000000 +0200
+++ new/DBM-Deep-2.0008/lib/DBM/Deep/Internals.pod 2012-06-17 21:58:48.000000000 +0200
@@ -1,6 +1,6 @@
=head1 NAME
-DBM::Deep::Internals
+DBM::Deep::Internals - Out of date documentation on DBM::Deep internals
=head1 OUT OF DATE
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBM-Deep-2.0004/lib/DBM/Deep/Iterator/File/BucketList.pm new/DBM-Deep-2.0008/lib/DBM/Deep/Iterator/File/BucketList.pm
--- old/DBM-Deep-2.0004/lib/DBM/Deep/Iterator/File/BucketList.pm 2010-09-13 03:38:28.000000000 +0200
+++ new/DBM-Deep-2.0008/lib/DBM/Deep/Iterator/File/BucketList.pm 2012-06-17 21:58:48.000000000 +0200
@@ -7,7 +7,7 @@
=head1 NAME
-DBM::Deep::Iterator::BucketList
+DBM::Deep::Iterator::BucketList - mediate between DBM::Deep::Iterator and DBM::Deep::Engine::Sector::BucketList
=head1 PURPOSE
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBM-Deep-2.0004/lib/DBM/Deep/Iterator/File/Index.pm new/DBM-Deep-2.0008/lib/DBM/Deep/Iterator/File/Index.pm
--- old/DBM-Deep-2.0004/lib/DBM/Deep/Iterator/File/Index.pm 2010-09-13 03:38:28.000000000 +0200
+++ new/DBM-Deep-2.0008/lib/DBM/Deep/Iterator/File/Index.pm 2012-06-17 21:58:48.000000000 +0200
@@ -7,7 +7,7 @@
=head1 NAME
-DBM::Deep::Iterator::Index
+DBM::Deep::Iterator::Index - mediate between DBM::Deep::Iterator and DBM::Deep::Engine::Sector::Index
=head1 PURPOSE
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBM-Deep-2.0004/lib/DBM/Deep/Iterator.pm new/DBM-Deep-2.0008/lib/DBM/Deep/Iterator.pm
--- old/DBM-Deep-2.0004/lib/DBM/Deep/Iterator.pm 2010-09-13 03:38:28.000000000 +0200
+++ new/DBM-Deep-2.0008/lib/DBM/Deep/Iterator.pm 2012-06-17 21:58:48.000000000 +0200
@@ -7,7 +7,7 @@
=head1 NAME
-DBM::Deep::Iterator
+DBM::Deep::Iterator - iterator for FIRSTKEY() and NEXTKEY()
=head1 PURPOSE
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBM-Deep-2.0004/lib/DBM/Deep/Null.pm new/DBM-Deep-2.0008/lib/DBM/Deep/Null.pm
--- old/DBM-Deep-2.0004/lib/DBM/Deep/Null.pm 2010-09-13 03:38:28.000000000 +0200
+++ new/DBM-Deep-2.0008/lib/DBM/Deep/Null.pm 2012-06-17 21:58:48.000000000 +0200
@@ -7,7 +7,7 @@
=head1 NAME
-DBM::Deep::Null
+DBM::Deep::Null - NULL object
=head1 PURPOSE
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBM-Deep-2.0004/lib/DBM/Deep/Sector/DBI/Reference.pm new/DBM-Deep-2.0008/lib/DBM/Deep/Sector/DBI/Reference.pm
--- old/DBM-Deep-2.0004/lib/DBM/Deep/Sector/DBI/Reference.pm 2010-09-13 03:38:28.000000000 +0200
+++ new/DBM-Deep-2.0008/lib/DBM/Deep/Sector/DBI/Reference.pm 2012-06-17 21:58:48.000000000 +0200
@@ -133,9 +133,7 @@
});
$cache->{$off} = $obj;
- if($engine->{external_refs}) {
- Scalar::Util::weaken($cache->{$off});
- }
+ Scalar::Util::weaken($cache->{$off});
}
else {
$obj = $cache->{$off};
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBM-Deep-2.0004/lib/DBM/Deep/Sector/File/Reference.pm new/DBM-Deep-2.0008/lib/DBM/Deep/Sector/File/Reference.pm
--- old/DBM-Deep-2.0004/lib/DBM/Deep/Sector/File/Reference.pm 2010-09-13 03:38:28.000000000 +0200
+++ new/DBM-Deep-2.0008/lib/DBM/Deep/Sector/File/Reference.pm 2012-06-17 21:58:48.000000000 +0200
@@ -423,9 +423,7 @@
});
$$cache_entry{ $trans_id } = $obj;
- if($engine->{external_refs}) {
- Scalar::Util::weaken($$cache_entry{ $trans_id });
- }
+ Scalar::Util::weaken($$cache_entry{ $trans_id });
}
else {
$obj = $$cache_entry{ $trans_id };
@@ -469,7 +467,8 @@
my $off = $self->offset;
if( exists $cache->{ $off }
and exists $cache->{ $off }{ my $trans_id = $e->trans_id } ) {
- bless $cache->{ $off }{ $trans_id }, 'DBM::Deep::Null';
+ bless $cache->{ $off }{ $trans_id }, 'DBM::Deep::Null'
+ if defined $cache->{ $off }{ $trans_id };
delete $cache->{ $off }{ $trans_id };
}
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBM-Deep-2.0004/lib/DBM/Deep/Sector/File.pm new/DBM-Deep-2.0008/lib/DBM/Deep/Sector/File.pm
--- old/DBM-Deep-2.0004/lib/DBM/Deep/Sector/File.pm 2010-09-13 03:38:28.000000000 +0200
+++ new/DBM-Deep-2.0008/lib/DBM/Deep/Sector/File.pm 2012-06-17 21:58:48.000000000 +0200
@@ -39,12 +39,12 @@
return;
}
-=head2 load( $offset )
-
-This will instantiate and return the sector object that represents the data
-found at $offset.
-
-=cut
+#=head2 load( $offset )
+#
+#This will instantiate and return the sector object that represents the data
+#found at $offset.
+#
+#=cut
sub load {
my $self = shift;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBM-Deep-2.0004/lib/DBM/Deep/Storage/File.pm new/DBM-Deep-2.0008/lib/DBM/Deep/Storage/File.pm
--- old/DBM-Deep-2.0004/lib/DBM/Deep/Storage/File.pm 2010-09-13 03:38:28.000000000 +0200
+++ new/DBM-Deep-2.0008/lib/DBM/Deep/Storage/File.pm 2012-06-17 21:58:48.000000000 +0200
@@ -13,7 +13,7 @@
=head1 NAME
-DBM::Deep::Storage::File
+DBM::Deep::Storage::File - mediate low-level interaction with storage mechanism
=head1 PURPOSE
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBM-Deep-2.0004/lib/DBM/Deep/Storage.pm new/DBM-Deep-2.0008/lib/DBM/Deep/Storage.pm
--- old/DBM-Deep-2.0004/lib/DBM/Deep/Storage.pm 2010-09-13 03:38:28.000000000 +0200
+++ new/DBM-Deep-2.0008/lib/DBM/Deep/Storage.pm 2012-06-17 21:58:48.000000000 +0200
@@ -5,6 +5,10 @@
use strict;
use warnings FATAL => 'all';
+=head1 NAME
+
+DBM::Deep::Storage - abstract base class for storage
+
=head2 flush()
This flushes the filehandle. This takes no parameters and returns nothing.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBM-Deep-2.0004/lib/DBM/Deep.pm new/DBM-Deep-2.0008/lib/DBM/Deep.pm
--- old/DBM-Deep-2.0004/lib/DBM/Deep.pm 2010-09-13 03:38:28.000000000 +0200
+++ new/DBM-Deep-2.0008/lib/DBM/Deep.pm 2012-06-17 21:58:48.000000000 +0200
@@ -6,7 +6,7 @@
use warnings FATAL => 'all';
no warnings 'recursion';
-our $VERSION = q(2.0004);
+our $VERSION = q(2.0008);
use Scalar::Util ();
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBM-Deep-2.0004/lib/DBM/Deep.pod new/DBM-Deep-2.0008/lib/DBM/Deep.pod
--- old/DBM-Deep-2.0004/lib/DBM/Deep.pod 2010-09-13 03:38:28.000000000 +0200
+++ new/DBM-Deep-2.0008/lib/DBM/Deep.pod 2012-06-17 21:58:48.000000000 +0200
@@ -4,7 +4,7 @@
=head1 VERSION
-2.0004
+2.0008
=head1 SYNOPSIS
@@ -284,6 +284,11 @@
default is one - the HEAD. The minimum is one and the maximum is 255. The more
transactions, the larger and quicker the datafile grows.
+Simple access to a database, regardless of how many processes are doing it,
+already counts as one transaction (the HEAD). So, if you want, say, 5
+processes to be able to call begin_work at the same time, C must
+be at least 6.
+
See L</TRANSACTIONS> below.
=item * max_buckets
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBM-Deep-2.0004/t/27_filehandle.t new/DBM-Deep-2.0008/t/27_filehandle.t
--- old/DBM-Deep-2.0004/t/27_filehandle.t 2010-09-13 03:38:28.000000000 +0200
+++ new/DBM-Deep-2.0008/t/27_filehandle.t 2012-06-17 21:58:48.000000000 +0200
@@ -60,19 +60,16 @@
print $fh "#!$^X\n";
print $fh <<"__END_FH__";
-use Test::More 'no_plan';
-Test::More->builder->no_ending(1);
-if(INC->{"Test/Builder2/History.pm"}) {
- Test::More->builder->{History}->counter->set($pre_fork_tests);
-}
-else { Test::More->builder->{Curr_Test} = $pre_fork_tests; }
+my \$t = $pre_fork_tests;
-use_ok( 'DBM::Deep' );
+print "not " unless eval { require DBM::Deep };
+print "ok ", ++\$t, " - use DBM::Deep\n";
my \$db = DBM::Deep->new({
fh => *DATA,
});
-is(\$db->{x}, 'b', "and get at stuff in the database");
+print "not " unless \$db->{x} eq 'b';
+print "ok ", ++\$t, " - and get at stuff in the database\n";
__END_FH__
# The exec below prevents END blocks from doing this.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBM-Deep-2.0004/t/52_memory_leak.t new/DBM-Deep-2.0008/t/52_memory_leak.t
--- old/DBM-Deep-2.0004/t/52_memory_leak.t 2010-09-13 03:38:28.000000000 +0200
+++ new/DBM-Deep-2.0008/t/52_memory_leak.t 2012-06-17 21:58:48.000000000 +0200
@@ -1,22 +1,45 @@
-# This was discussed here:
-# http://groups.google.com/group/DBM-Deep/browse_thread/thread/a6b8224ffec21ba...
-# brought up by Alex Gallichotte
-
use strict;
use warnings FATAL => 'all';
use Test::More;
-plan skip_all => "Need to figure out what platforms this runs on";
-
use_ok( 'DBM::Deep' );
use t::common qw( new_dbm );
+# RT #77746
my $dbm_factory = new_dbm();
while ( my $dbm_maker = $dbm_factory->() ) {
my $db = $dbm_maker->();
+ $db->{foo} = {};
+ my $data = $db->{foo};
+
+ use Scalar::Util 'weaken';
+ weaken $db;
+ weaken $data;
+
+ is $db, undef, 'no $db after weakening';
+ is $data, undef, 'hashes returned from db contain no circular refs';
+}
+
+
+
+# This was discussed here:
+# http://groups.google.com/group/DBM-Deep/browse_thread/thread/a6b8224ffec21ba...
+# brought up by Alex Gallichotte
+
+SKIP: {
+ skip "Need to figure out what platforms this runs on", 1;
+}
+
+done_testing;
+exit;
+
+$dbm_factory = new_dbm();
+while ( my $dbm_maker = $dbm_factory->() ) {
+ my $db = $dbm_maker->();
+
my $todo = 1000;
my $allow = $todo*0.02; # NOTE: a 2% fail rate is hardly a failure
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBM-Deep-2.0004/t/56_unicode.t new/DBM-Deep-2.0008/t/56_unicode.t
--- old/DBM-Deep-2.0004/t/56_unicode.t 2010-09-13 03:38:28.000000000 +0200
+++ new/DBM-Deep-2.0008/t/56_unicode.t 2012-06-17 21:58:48.000000000 +0200
@@ -2,7 +2,6 @@
use warnings FATAL => 'all';
use Test::More;
-use Test::Exception;
use t::common qw( new_dbm );
use utf8;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBM-Deep-2.0004/t/58_cache.t new/DBM-Deep-2.0008/t/58_cache.t
--- old/DBM-Deep-2.0004/t/58_cache.t 1970-01-01 01:00:00.000000000 +0100
+++ new/DBM-Deep-2.0008/t/58_cache.t 2012-06-17 21:58:48.000000000 +0200
@@ -0,0 +1,21 @@
+use strict;
+use warnings FATAL => 'all';
+
+use Test::More;
+use t::common qw( new_dbm );
+use utf8;
+
+use DBM::Deep;
+
+my $dbm_factory = new_dbm();
+while ( my $dbm_maker = $dbm_factory->() ) {
+ my $db = $dbm_maker->();
+
+ $db->{h} = {1,2};
+ my $h = $db->{h};
+ undef $h; # now no longer cached
+ $h = $db->{h}; # cached again
+ ok $h, 'stale cache entries are not mistakenly reused';
+}
+
+done_testing;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBM-Deep-2.0004/t/98_pod.t new/DBM-Deep-2.0008/t/98_pod.t
--- old/DBM-Deep-2.0004/t/98_pod.t 2010-09-13 03:38:28.000000000 +0200
+++ new/DBM-Deep-2.0008/t/98_pod.t 2012-06-17 21:58:48.000000000 +0200
@@ -4,5 +4,8 @@
eval "use Test::Pod 1.14";
plan skip_all => "Test::Pod 1.14 required for testing POD" if $@;
+eval { require Pod::Simple };
+plan skip_all => "Pod::Simple 3.21 has bugs"
+ if $Pod::Simple::VERSION == 3.21;
all_pod_files_ok();
--
To unsubscribe, e-mail: opensuse-commit+unsubscribe@opensuse.org
For additional commands, e-mail: opensuse-commit+help@opensuse.org