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 - co...@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, <rkin...@cpan.org>
-    Joseph Huckaby, <jhuck...@cpan.org>
-
 %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<num_txns> 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/a6b8224ffec21bab
-# 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/a6b8224ffec21bab
+# 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+unsubscr...@opensuse.org
For additional commands, e-mail: opensuse-commit+h...@opensuse.org

Reply via email to