Hello community,
here is the log from the commit of package perl-BerkeleyDB for openSUSE:Factory
checked in at Fri Mar 26 16:55:52 CET 2010.
--------
--- perl-BerkeleyDB/perl-BerkeleyDB.changes 2010-01-15 14:38:58.000000000 +0100
+++ perl-BerkeleyDB/perl-BerkeleyDB.changes 2010-03-26 15:19:22.000000000 +0100
@@ -1,0 +2,9 @@
+Thu Mar 25 17:45:09 CET 2010 - anicka(a)suse.cz
+
+- update to 0.42
+ * Added $db->Env method to retrieve the environment object from a
+ database object.
+ * Get the tied interface to use truncate in the CLEAR method if
+ using a new enough version of Berkeley DB.
+
+-------------------------------------------------------------------
calling whatdependson for head-i586
Old:
----
BerkeleyDB-0.41.tar.bz2
New:
----
BerkeleyDB-0.42.tar.bz2
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-BerkeleyDB.spec ++++++
--- /var/tmp/diff_new_pack.GjrG7G/_old 2010-03-26 16:54:17.000000000 +0100
+++ /var/tmp/diff_new_pack.GjrG7G/_new 2010-03-26 16:54:17.000000000 +0100
@@ -1,5 +1,5 @@
#
-# spec file for package perl-BerkeleyDB (Version 0.41)
+# spec file for package perl-BerkeleyDB (Version 0.42)
#
# Copyright (c) 2010 SUSE LINUX Products GmbH, Nuernberg, Germany.
#
@@ -26,7 +26,7 @@
Requires: perl = %{perl_version}
AutoReqProv: on
Summary: Perl Module for Accessing Berkeley DB Functions
-Version: 0.41
+Version: 0.42
Release: 1
Source: BerkeleyDB-%{version}.tar.bz2
BuildRoot: %{_tmppath}/%{name}-%{version}-build
++++++ BerkeleyDB-0.41.tar.bz2 -> BerkeleyDB-0.42.tar.bz2 ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/BerkeleyDB-0.41/BerkeleyDB.pm new/BerkeleyDB-0.42/BerkeleyDB.pm
--- old/BerkeleyDB-0.41/BerkeleyDB.pm 2010-01-08 20:00:22.000000000 +0100
+++ new/BerkeleyDB-0.42/BerkeleyDB.pm 2010-03-13 19:27:02.000000000 +0100
@@ -17,7 +17,7 @@
use vars qw($VERSION @ISA @EXPORT $AUTOLOAD
$use_XSLoader);
-$VERSION = '0.41';
+$VERSION = '0.42';
require Exporter;
#require DynaLoader;
@@ -1365,7 +1365,7 @@
$self->db_del($key) ;
}
-sub CLEAR
+sub CLEAR_old
{
my $self = shift ;
my ($key, $value) = (0, 0) ;
@@ -1374,6 +1374,14 @@
{ $cursor->c_del() }
}
+sub CLEAR_new
+{
+ my $self = shift ;
+ $self->truncate(my $count);
+}
+
+*CLEAR = $BerkeleyDB::db_version < 4 ? \&CLEAR_old : \&CLEAR_new ;
+
#sub DESTROY
#{
# my $self = shift ;
@@ -1584,6 +1592,11 @@
my $self = shift ;
$self->_DESTROY() ;
}
+sub Env
+{
+ my $self = shift ;
+ $self->[1] ;
+}
sub Txn
{
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/BerkeleyDB-0.41/BerkeleyDB.pod new/BerkeleyDB-0.42/BerkeleyDB.pod
--- old/BerkeleyDB-0.41/BerkeleyDB.pod 2009-10-13 23:28:13.000000000 +0200
+++ new/BerkeleyDB-0.42/BerkeleyDB.pod 2010-03-13 17:16:23.000000000 +0100
@@ -32,6 +32,7 @@
keys %hash ;
values %hash ;
+ $env = $db->Env()
$status = $db->db_get()
$status = $db->db_put() ;
$status = $db->db_del() ;
@@ -1388,6 +1389,11 @@
All the methods below return 0 to indicate success.
+=head2 $env = $db->Env();
+
+Returns the environment object the database is associated with or C<undef>
+when no environment was used when opening the database.
+
=head2 $status = $db->db_get($key, $value [, $flags])
Given a key (C<$key>) this method reads the value associated with it
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/BerkeleyDB-0.41/BerkeleyDB.pod.P new/BerkeleyDB-0.42/BerkeleyDB.pod.P
--- old/BerkeleyDB-0.41/BerkeleyDB.pod.P 2009-10-13 23:28:00.000000000 +0200
+++ new/BerkeleyDB-0.42/BerkeleyDB.pod.P 2010-03-13 17:13:37.000000000 +0100
@@ -32,6 +32,7 @@
keys %hash ;
values %hash ;
+ $env = $db->Env()
$status = $db->db_get()
$status = $db->db_put() ;
$status = $db->db_del() ;
@@ -1194,6 +1195,11 @@
All the methods below return 0 to indicate success.
+=head2 $env = $db->Env();
+
+Returns the environment object the database is associated with or C<undef>
+when no environment was used when opening the database.
+
=head2 $status = $db->db_get($key, $value [, $flags])
Given a key (C<$key>) this method reads the value associated with it
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/BerkeleyDB-0.41/BerkeleyDB.xs new/BerkeleyDB-0.42/BerkeleyDB.xs
--- old/BerkeleyDB-0.41/BerkeleyDB.xs 2010-01-08 20:00:22.000000000 +0100
+++ new/BerkeleyDB-0.42/BerkeleyDB.xs 2010-03-13 19:27:02.000000000 +0100
@@ -4452,7 +4452,7 @@
DualType
truncate(db, countp, flags=0)
BerkeleyDB::Common db
- u_int32_t countp
+ u_int32_t countp = NO_INIT
u_int32_t flags
PREINIT:
dMY_CXT;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/BerkeleyDB-0.41/Changes new/BerkeleyDB-0.42/Changes
--- old/BerkeleyDB-0.41/Changes 2010-01-08 16:33:53.000000000 +0100
+++ new/BerkeleyDB-0.42/Changes 2010-03-13 17:14:45.000000000 +0100
@@ -1,5 +1,13 @@
Revision history for Perl extension BerkeleyDB.
+0.42 13th March 2010
+
+ * Added $db->Env method to retrieve the environment object from a
+ database object.
+
+ * Get the tied interface to use truncate in the CLEAR method if
+ using a new enough version of Berkeley DB.
+
0.41 8th January 2010
* Silence "UNIVERSAL->import is deprecated" in perl 5.11
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/BerkeleyDB-0.41/META.yml new/BerkeleyDB-0.42/META.yml
--- old/BerkeleyDB-0.41/META.yml 2010-01-09 00:09:51.000000000 +0100
+++ new/BerkeleyDB-0.42/META.yml 2010-03-14 14:15:32.000000000 +0100
@@ -1,6 +1,6 @@
--- #YAML:1.0
name: BerkeleyDB
-version: 0.41
+version: 0.42
abstract: Perl extension for Berkeley DB version 2, 3 or 4
author:
- Paul Marquess <pmqs(a)cpan.org>
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/BerkeleyDB-0.41/README new/BerkeleyDB-0.42/README
--- old/BerkeleyDB-0.41/README 2010-01-08 16:34:50.000000000 +0100
+++ new/BerkeleyDB-0.42/README 2010-03-13 17:22:51.000000000 +0100
@@ -1,8 +1,8 @@
BerkeleyDB
- Version 0.41
+ Version 0.42
- 8th January 2010
+ 13th March 2010
Copyright (c) 1997-2010 Paul Marquess. All rights reserved. This
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/BerkeleyDB-0.41/t/btree.t new/BerkeleyDB-0.42/t/btree.t
--- old/BerkeleyDB-0.41/t/btree.t 2008-09-14 17:40:44.000000000 +0200
+++ new/BerkeleyDB-0.42/t/btree.t 2010-03-13 17:10:25.000000000 +0100
@@ -7,7 +7,7 @@
use util ;
use Test::More;
-plan tests => 244;
+plan tests => 246;
my $Dfile = "dbhash.tmp";
my $Dfile2 = "dbhash2.tmp";
@@ -50,6 +50,7 @@
# Add a k/v pair
my $value ;
my $status ;
+ is $db->Env, undef;
ok $db->db_put("some key", "some value") == 0 ;
ok $db->status() == 0 ;
ok $db->db_get("some key", $value) == 0 ;
@@ -103,6 +104,7 @@
-Env => $env,
-Flags => DB_CREATE ;
+ isa_ok $db->Env, 'BerkeleyDB::Env';
# Add a k/v pair
my $value ;
ok $db->db_put("some key", "some value") == 0 ;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/BerkeleyDB-0.41/t/hash.t new/BerkeleyDB-0.42/t/hash.t
--- old/BerkeleyDB-0.41/t/hash.t 2008-09-14 17:41:21.000000000 +0200
+++ new/BerkeleyDB-0.42/t/hash.t 2010-03-13 17:16:21.000000000 +0100
@@ -9,7 +9,7 @@
use util ;
use Test::More;
-plan tests => 212;
+plan tests => 214;
my $Dfile = "dbhash.tmp";
my $Dfile2 = "dbhash2.tmp";
@@ -51,6 +51,7 @@
# Add a k/v pair
my $value ;
my $status ;
+ is $db->Env, undef;
ok $db->db_put("some key", "some value") == 0 ;
ok $db->status() == 0 ;
ok $db->db_get("some key", $value) == 0 ;
@@ -104,6 +105,8 @@
-Env => $env,
-Flags => DB_CREATE ;
+ isa_ok $db->Env, 'BerkeleyDB::Env';
+
# Add a k/v pair
my $value ;
ok $db->db_put("some key", "some value") == 0 ;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/BerkeleyDB-0.41/t/queue.t new/BerkeleyDB-0.42/t/queue.t
--- old/BerkeleyDB-0.41/t/queue.t 2008-09-14 17:42:34.000000000 +0200
+++ new/BerkeleyDB-0.42/t/queue.t 2010-03-13 17:18:44.000000000 +0100
@@ -12,7 +12,7 @@
plan(skip_all => "Queue needs Berkeley DB 3.3.x or better\n" )
if $BerkeleyDB::db_version < 3.3;
-plan tests => 253;
+plan tests => 257;
my $Dfile = "dbhash.tmp";
@@ -59,6 +59,7 @@
# Add a k/v pair
my $value ;
my $status ;
+ is $db->Env, undef;
ok $db->db_put(1, "some value") == 0 ;
ok $db->status() == 0 ;
ok $db->db_get(1, $value) == 0 ;
@@ -113,6 +114,8 @@
-Flags => DB_CREATE,
-Len => $rec_len;
+ isa_ok $db->Env, 'BerkeleyDB::Env';
+
# Add a k/v pair
my $value ;
ok $db->db_put(1, "some value") == 0 ;
@@ -293,9 +296,12 @@
ok (( $FA ? pop @array : $db->pop ) eq fillout("the", $rec_len)) ;
ok (( $FA ? pop @array : $db->pop ) == 200) ;
+ undef $cursor;
+
# now clear the array
$FA ? @array = ()
: $db->clear() ;
+ ok $cursor = (tied @array)->db_cursor() ;
ok $cursor->c_get($k, $v, DB_FIRST) == DB_NOTFOUND ;
undef $cursor ;
@@ -849,9 +855,11 @@
ok (( $FA ? pop @array : $db->pop ) eq fillout("the", $rec_len)) ;
ok (( $FA ? pop @array : $db->pop ) == 200 ) ;
+ undef $cursor ;
# now clear the array
$FA ? @array = ()
: $db->clear() ;
+ ok $cursor = (tied @array)->db_cursor() ;
ok $cursor->c_get($k, $v, DB_FIRST) == DB_NOTFOUND ;
undef $cursor ;
ok $txn->txn_commit() == 0 ;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/BerkeleyDB-0.41/t/recno.t new/BerkeleyDB-0.42/t/recno.t
--- old/BerkeleyDB-0.41/t/recno.t 2008-09-14 17:31:16.000000000 +0200
+++ new/BerkeleyDB-0.42/t/recno.t 2010-03-13 17:18:30.000000000 +0100
@@ -9,7 +9,7 @@
use util ;
use Test::More;
-plan tests => 225;
+plan tests => 228;
my $Dfile = "dbhash.tmp";
my $Dfile2 = "dbhash2.tmp";
@@ -47,6 +47,8 @@
ok my $db = new BerkeleyDB::Recno -Filename => $Dfile,
-Flags => DB_CREATE ;
+ is $db->Env, undef;
+
# Add a k/v pair
my $value ;
my $status ;
@@ -99,6 +101,8 @@
-Env => $env,
-Flags => DB_CREATE ;
+ isa_ok $db->Env, 'BerkeleyDB::Env';
+
# Add a k/v pair
my $value ;
ok $db->db_put(1, "some value") == 0 ;
@@ -275,9 +279,11 @@
ok (( $FA ? pop @array : $db->pop ) eq "the") ;
ok (( $FA ? pop @array : $db->pop ) == 2000) ;
+ undef $cursor;
# now clear the array
$FA ? @array = ()
: $db->clear() ;
+ ok $cursor = $db->db_cursor() ;
ok $cursor->c_get($k, $v, DB_FIRST) == DB_NOTFOUND ;
undef $cursor ;
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Remember to have fun...
--
To unsubscribe, e-mail: opensuse-commit+unsubscribe(a)opensuse.org
For additional commands, e-mail: opensuse-commit+help(a)opensuse.org