Hello community,

here is the log from the commit of package perl-BerkeleyDB for openSUSE:Factory 
checked in at 2013-06-06 12:18:55
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-BerkeleyDB (Old)
 and      /work/SRC/openSUSE:Factory/.perl-BerkeleyDB.new (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Package is "perl-BerkeleyDB"

Changes:
--------
--- /work/SRC/openSUSE:Factory/perl-BerkeleyDB/perl-BerkeleyDB.changes  
2012-02-16 10:06:39.000000000 +0100
+++ /work/SRC/openSUSE:Factory/.perl-BerkeleyDB.new/perl-BerkeleyDB.changes     
2013-06-06 12:18:56.000000000 +0200
@@ -1,0 +2,7 @@
+Mon Jun  3 11:38:48 UTC 2013 - co...@suse.com
+
+- updated to 0.51
+   * Rework FETCHSIZE
+     [RT #75691]
+
+-------------------------------------------------------------------

Old:
----
  BerkeleyDB-0.50.tar.gz

New:
----
  BerkeleyDB-0.51.tar.gz

++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Other differences:
------------------
++++++ perl-BerkeleyDB.spec ++++++
--- /var/tmp/diff_new_pack.dTJDqa/_old  2013-06-06 12:18:57.000000000 +0200
+++ /var/tmp/diff_new_pack.dTJDqa/_new  2013-06-06 12:18:57.000000000 +0200
@@ -1,7 +1,7 @@
 #
 # spec file for package perl-BerkeleyDB
 #
-# Copyright (c) 2011 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
@@ -16,59 +16,63 @@
 #
 
 
-%bcond_with opt
-
 Name:           perl-BerkeleyDB
-Version:        0.50
+Version:        0.51
 Release:        0
 %define cpan_name BerkeleyDB
-Summary:        Perl extension for Berkeley DB version 2, 3 or 4
+Summary:        Perl extension for Berkeley DB version 2, 3, 4 or 5
 License:        Artistic-1.0 or GPL-1.0+
 Group:          Development/Libraries/Perl
 Url:            http://search.cpan.org/dist/BerkeleyDB/
-#Source:         
http://www.cpan.org/modules/by-module/BerkeleyDB/BerkeleyDB-%{version}.tar.gz
-Source:         %{cpan_name}-%{version}.tar.gz
-BuildRequires:  db-devel
+Source:         
http://www.cpan.org/authors/id/P/PM/PMQS/%{cpan_name}-%{version}.tar.gz
+BuildRoot:      %{_tmppath}/%{name}-%{version}-build
 BuildRequires:  perl
 BuildRequires:  perl-macros
-BuildRoot:      %{_tmppath}/%{name}-%{version}-build
+# MANUAL
+BuildRequires:  db-devel
+#BuildRequires: perl(BerkeleyDB)
+#BuildRequires: perl(MLDBM)
+#BuildRequires: perl(util)
 %{perl_requires}
-%if %{with opt}
-BuildRequires:  perl(MLDBM)
-%endif
-#
 
 %description
-This Perl module provides an interface to most of the functionality available
-in Berkeley DB versions 2, 3 and 4. In general it is safe to assume that the
-interface provided here to be identical to the Berkeley DB interface. The main
-changes have been to make the Berkeley DB API work in a Perl way. Note that if
-you are using Berkeley DB 2.x, the new features available in
-Berkeley DB 3.x or DB 4.x are not available via this module.
+*NOTE: This document is still under construction. Expect it to be
+incomplete in places.*
+
+This Perl module provides an interface to most of the functionality
+available in Berkeley DB versions 2, 3 and 4. In general it is safe to
+assume that the interface provided here to be identical to the Berkeley DB
+interface. The main changes have been to make the Berkeley DB API work in a
+Perl way. Note that if you are using Berkeley DB 2.x, the new features
+available in Berkeley DB 3.x or DB 4.x are not available via this module.
+
+The reader is expected to be familiar with the Berkeley DB documentation.
+Where the interface provided here is identical to the Berkeley DB library
+and the... TODO
+
+The *db_appinit*, *db_cursor*, *db_open* and *db_txn* man pages are
+particularly relevant.
+
+The interface to Berkeley DB is implemented with a number of Perl classes.
 
 %prep
 %setup -q -n %{cpan_name}-%{version}
-# rpmlint
-# executable-docs, spurious-executable-perm
-chmod a-x Changes README
+find . -type f -print0 | xargs -0 chmod 644
 
 %build
-perl Makefile.PL INSTALLDIRS=vendor OPTIMIZE="%{optflags}"
-make %{?_smp_mflags}
+%{__perl} Makefile.PL INSTALLDIRS=vendor OPTIMIZE="%{optflags}"
+%{__make} %{?_smp_mflags}
 
 %check
-make test
+%{__make} test
 
 %install
 %perl_make_install
 %perl_process_packlist
 %perl_gen_filelist
 
-%clean
-rm -rf %{buildroot}
-
 %files -f %{name}.files
-%defattr(-,root,root,-)
-%doc Changes README Todo
+%defattr(-,root,root,755)
+%doc BerkeleyDB.pod.P Changes dbinfo mkpod README Todo
 
 %changelog

++++++ BerkeleyDB-0.50.tar.gz -> BerkeleyDB-0.51.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/BerkeleyDB-0.50/BerkeleyDB.pm 
new/BerkeleyDB-0.51/BerkeleyDB.pm
--- old/BerkeleyDB-0.50/BerkeleyDB.pm   2011-12-08 20:58:19.000000000 +0100
+++ new/BerkeleyDB-0.51/BerkeleyDB.pm   2012-03-20 09:10:21.000000000 +0100
@@ -2,7 +2,7 @@
 package BerkeleyDB;
 
 
-#     Copyright (c) 1997-2011 Paul Marquess. All rights reserved.
+#     Copyright (c) 1997-2012 Paul Marquess. All rights reserved.
 #     This program is free software; you can redistribute it and/or
 #     modify it under the same terms as Perl itself.
 #
@@ -17,7 +17,7 @@
 use vars qw($VERSION @ISA @EXPORT $AUTOLOAD
                $use_XSLoader);
 
-$VERSION = '0.50';
+$VERSION = '0.51';
 
 require Exporter;
 #require DynaLoader;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/BerkeleyDB-0.50/BerkeleyDB.xs 
new/BerkeleyDB-0.51/BerkeleyDB.xs
--- old/BerkeleyDB-0.50/BerkeleyDB.xs   2011-12-08 20:58:19.000000000 +0100
+++ new/BerkeleyDB-0.51/BerkeleyDB.xs   2012-03-20 09:10:01.000000000 +0100
@@ -6,7 +6,7 @@
 
  All comments/suggestions/problems are welcome
 
-     Copyright (c) 1997-2011 Paul Marquess. All rights reserved.
+     Copyright (c) 1997-2012 Paul Marquess. All rights reserved.
      This program is free software; you can redistribute it and/or
      modify it under the same terms as Perl itself.
 
@@ -960,9 +960,11 @@
 static I32
 GetArrayLength(BerkeleyDB db)
 {
+    I32                RETVAL = 0 ;
+#ifndef AT_LEAST_DB_3_1
     DBT                key ;
     DBT                value ;
-    int                RETVAL = 0 ;
+
     DBC *      cursor ;
 
     DBT_clear(key) ;
@@ -980,9 +982,56 @@
             RETVAL = 0 ;
         cursor->c_close(cursor) ;
     }
-
     Trace(("GetArrayLength got %d\n", RETVAL)) ;
     return ((I32)RETVAL) ;
+
+#else
+    DB_BTREE_STAT *    stat ;
+#ifdef AT_LEAST_DB_4_3
+    db->Status = ((db->dbp)->stat)(db->dbp, db->txn, &stat, 0) ;
+#else        
+#ifdef AT_LEAST_DB_3_3
+    db->Status = ((db->dbp)->stat)(db->dbp, &stat, 0) ;
+#else
+    db->Status = ((db->dbp)->stat)(db->dbp, &stat, safemalloc, 0) ;
+#endif
+#endif
+    if (db->Status == 0)
+    {
+        RETVAL = (I32)stat->bt_nkeys ;
+    }
+
+    Trace(("GetArrayLength got %d\n", stat->bt_nkeys)) ;
+    return (RETVAL);
+
+#endif
+}
+
+static I32
+GetQueueLength(BerkeleyDB db)
+{
+#ifndef AT_LEAST_DB_3_3
+    return 0;
+#else
+    I32                RETVAL = 0 ;
+    DB_QUEUE_STAT *    stat ;
+#ifdef AT_LEAST_DB_4_3
+    db->Status = ((db->dbp)->stat)(db->dbp, db->txn, &stat, 0) ;
+#else        
+#ifdef AT_LEAST_DB_3_3
+    db->Status = ((db->dbp)->stat)(db->dbp, &stat, 0) ;
+#else
+    db->Status = ((db->dbp)->stat)(db->dbp, &stat, safemalloc, 0) ;
+#endif
+#endif
+    if (db->Status == 0)
+    {
+        RETVAL = (I32)stat->qs_nkeys ;
+    }
+
+    Trace(("GetQueueLength got %d\n", stat->qs_nkeys)) ;
+    return (RETVAL);
+#endif
 }
 
 #if 0
@@ -5368,7 +5417,7 @@
            OutputKey(ST(0), key)
         }
 
-MODULE = BerkeleyDB::_tiedArray        PACKAGE = BerkeleyDB::_tiedArray
+MODULE = BerkeleyDB::Recno        PACKAGE = BerkeleyDB::Recno
 
 I32
 FETCHSIZE(db)
@@ -5381,6 +5430,19 @@
         OUTPUT:
             RETVAL
 
+MODULE = BerkeleyDB::Queue        PACKAGE = BerkeleyDB::Queue
+
+I32
+FETCHSIZE(db)
+        BerkeleyDB::Common         db
+       PREINIT:
+         dMY_CXT;
+        CODE:
+            saveCurrentDB(db) ;
+            RETVAL = GetQueueLength(db) ;
+        OUTPUT:
+            RETVAL
+
                 
 MODULE = BerkeleyDB::Common  PACKAGE = BerkeleyDB::Common
 
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/BerkeleyDB-0.50/Changes new/BerkeleyDB-0.51/Changes
--- old/BerkeleyDB-0.50/Changes 2011-12-10 15:00:24.000000000 +0100
+++ new/BerkeleyDB-0.51/Changes 2012-03-19 15:49:39.000000000 +0100
@@ -1,6 +1,11 @@
 Revision history for Perl extension BerkeleyDB.
 
-0.50  10th DEcember 2011
+0.51  19th March 2012
+
+        * Rework FETCHSIZE
+          [RT #75691]
+
+0.50  10th December 2011
 
         * Updates for BDB 5.3
 
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/BerkeleyDB-0.50/MANIFEST new/BerkeleyDB-0.51/MANIFEST
--- old/BerkeleyDB-0.50/MANIFEST        2011-04-22 23:51:06.000000000 +0200
+++ new/BerkeleyDB-0.51/MANIFEST        2012-03-20 09:11:48.000000000 +0100
@@ -69,3 +69,4 @@
 patches/5.6.0
 scan.pl
 META.yml                                 Module meta-data (added by MakeMaker)
+META.json                                Module JSON meta-data (added by 
MakeMaker)
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/BerkeleyDB-0.50/META.json 
new/BerkeleyDB-0.51/META.json
--- old/BerkeleyDB-0.50/META.json       1970-01-01 01:00:00.000000000 +0100
+++ new/BerkeleyDB-0.51/META.json       2012-03-20 09:11:48.000000000 +0100
@@ -0,0 +1,39 @@
+{
+   "abstract" : "Perl extension for Berkeley DB version 2, 3, 4 or 5",
+   "author" : [
+      "Paul Marquess <p...@cpan.org>"
+   ],
+   "dynamic_config" : 1,
+   "generated_by" : "ExtUtils::MakeMaker version 6.62, CPAN::Meta::Converter 
version 2.112150",
+   "license" : [
+      "perl_5"
+   ],
+   "meta-spec" : {
+      "url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec";,
+      "version" : "2"
+   },
+   "name" : "BerkeleyDB",
+   "no_index" : {
+      "directory" : [
+         "t",
+         "inc"
+      ]
+   },
+   "prereqs" : {
+      "build" : {
+         "requires" : {
+            "ExtUtils::MakeMaker" : 0
+         }
+      },
+      "configure" : {
+         "requires" : {
+            "ExtUtils::MakeMaker" : 0
+         }
+      },
+      "runtime" : {
+         "requires" : {}
+      }
+   },
+   "release_status" : "stable",
+   "version" : "0.51"
+}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/BerkeleyDB-0.50/META.yml new/BerkeleyDB-0.51/META.yml
--- old/BerkeleyDB-0.50/META.yml        2011-12-10 15:01:00.000000000 +0100
+++ new/BerkeleyDB-0.51/META.yml        2012-03-20 09:11:48.000000000 +0100
@@ -1,21 +1,21 @@
---- #YAML:1.0
-name:               BerkeleyDB
-version:            0.50
-abstract:           Perl extension for Berkeley DB version 2, 3, 4 or 5
+---
+abstract: 'Perl extension for Berkeley DB version 2, 3, 4 or 5'
 author:
-    - Paul Marquess <p...@cpan.org>
-license:            perl
-distribution_type:  module
-configure_requires:
-    ExtUtils::MakeMaker:  0
+  - 'Paul Marquess <p...@cpan.org>'
 build_requires:
-    ExtUtils::MakeMaker:  0
-requires:  {}
-no_index:
-    directory:
-        - t
-        - inc
-generated_by:       ExtUtils::MakeMaker version 6.57_05
+  ExtUtils::MakeMaker: 0
+configure_requires:
+  ExtUtils::MakeMaker: 0
+dynamic_config: 1
+generated_by: 'ExtUtils::MakeMaker version 6.62, CPAN::Meta::Converter version 
2.112150'
+license: perl
 meta-spec:
-    url:      http://module-build.sourceforge.net/META-spec-v1.4.html
-    version:  1.4
+  url: http://module-build.sourceforge.net/META-spec-v1.4.html
+  version: 1.4
+name: BerkeleyDB
+no_index:
+  directory:
+    - t
+    - inc
+requires: {}
+version: 0.51
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/BerkeleyDB-0.50/README new/BerkeleyDB-0.51/README
--- old/BerkeleyDB-0.50/README  2011-12-10 15:00:37.000000000 +0100
+++ new/BerkeleyDB-0.51/README  2012-03-20 09:10:01.000000000 +0100
@@ -1,11 +1,11 @@
                                 BerkeleyDB
 
-                               Version 0.50
+                               Version 0.51
 
-                            10th December 2011
+                              19th March 2012
                               
 
-     Copyright (c) 1997-2011 Paul Marquess. All rights reserved. This
+     Copyright (c) 1997-2012 Paul Marquess. All rights reserved. This
       program is free software; you can redistribute it and/or modify
                   it under the same terms as Perl itself.
 
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/BerkeleyDB-0.50/t/queue.t 
new/BerkeleyDB-0.51/t/queue.t
--- old/BerkeleyDB-0.50/t/queue.t       2011-04-02 10:59:27.000000000 +0200
+++ new/BerkeleyDB-0.51/t/queue.t       2012-03-11 17:33:25.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 => 257;
+plan tests => 260;
 
 
 my $Dfile = "dbhash.tmp";
@@ -867,6 +867,28 @@
     undef $db ;
     untie @array ;
 }
+
+{
+    # RT #75691: scalar(@array) returns incorrect value after shift() on tied 
array
+    my $lex = new LexFile $Dfile ;
+    my @array ;
+    my $db ;
+    $db = tie @array, 'BerkeleyDB::Queue', 
+                        -Flags  => DB_CREATE ,
+                                       -Len       => 2,
+                                               -Filename => $Dfile ;
+    isa_ok $db, 'BerkeleyDB::Queue';                        
+    $FA ? push @array,  "ab", "cd", "ef", "gh"
+        : $db->push("ab", "cd", "ef", "gh") ;
+    is scalar(@array), 4;
+
+    $FA ? shift @array : $db->shift() ;
+    is scalar(@array), 3;
+
+    undef $db;
+    untie @array ;
+
+}
 __END__
 
 
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/BerkeleyDB-0.50/t/recno.t 
new/BerkeleyDB-0.51/t/recno.t
--- old/BerkeleyDB-0.50/t/recno.t       2011-04-02 10:59:27.000000000 +0200
+++ new/BerkeleyDB-0.51/t/recno.t       2012-03-19 15:19:25.000000000 +0100
@@ -907,6 +907,32 @@
     untie @array ;
 
 }
+
+SKIP:
+if(0)
+{
+    # RT #75691: scalar(@array) returns incorrect value after shift() on tied 
array
+    skip "Test needs Berkeley DB 3.2 or better", 4 
+        if $BerkeleyDB::db_version < 3.3;
+
+    my $lex = new LexFile $Dfile ;
+    my @array ;
+    my $db ;
+    ok $db = tie @array, 'BerkeleyDB::Recno', 
+                        -Flags  => DB_CREATE ,
+                                               -Filename => $Dfile ;
+
+    isa_ok $db, 'BerkeleyDB::Recno';
+    $FA ? push @array,  7, 9, 11, 13
+        : $db->push(7, 9, 11, 13) ;
+    is scalar(@array), 4;
+    $FA ? shift @array : $db->shift() ;
+    is scalar(@array), 3;
+
+    undef $db;
+    untie @array ;
+
+}
 __END__
 
 

-- 
To unsubscribe, e-mail: opensuse-commit+unsubscr...@opensuse.org
For additional commands, e-mail: opensuse-commit+h...@opensuse.org

Reply via email to