Hello community, here is the log from the commit of package perl-DBM-Deep for openSUSE:Factory checked in at 2015-06-23 11:59:53 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 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 2014-03-19 08:02:09.000000000 +0100 +++ /work/SRC/openSUSE:Factory/.perl-DBM-Deep.new/perl-DBM-Deep.changes 2015-06-23 11:59:54.000000000 +0200 @@ -1,0 +2,9 @@ +Mon Jun 22 08:16:08 UTC 2015 - [email protected] + +- updated to 2.0012 + see /usr/share/doc/packages/perl-DBM-Deep/Changes + + 2.0012 Jun 17 20:30:00 2015 PDT + - Improved transaction validation and warnings (GH#12) + +------------------------------------------------------------------- Old: ---- DBM-Deep-2.0011.tar.gz New: ---- DBM-Deep-2.0012.tar.gz cpanspec.yml ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-DBM-Deep.spec ++++++ --- /var/tmp/diff_new_pack.K0EvpP/_old 2015-06-23 11:59:55.000000000 +0200 +++ /var/tmp/diff_new_pack.K0EvpP/_new 2015-06-23 11:59:55.000000000 +0200 @@ -1,7 +1,7 @@ # # spec file for package perl-DBM-Deep # -# Copyright (c) 2014 SUSE LINUX Products GmbH, Nuernberg, Germany. +# Copyright (c) 2015 SUSE LINUX GmbH, Nuernberg, Germany. # # All modifications and additions to the file contributed by third parties # remain the property of their copyright owners, unless otherwise agreed @@ -17,27 +17,25 @@ Name: perl-DBM-Deep -Version: 2.0011 +Version: 2.0012 Release: 0 %define cpan_name DBM-Deep -Summary: A pure perl multi-level hash/array DBM that supports transactions +Summary: Pure Perl Multi-Level Hash/Array Dbm That Supports Transactions License: Artistic-1.0 or GPL-1.0+ Group: Development/Libraries/Perl Url: http://search.cpan.org/dist/DBM-Deep/ -Source: http://www.cpan.org/authors/id/R/RK/RKINYON/%{cpan_name}-%{version}.tar.gz +Source0: http://www.cpan.org/authors/id/R/RK/RKINYON/%{cpan_name}-%{version}.tar.gz +Source1: cpanspec.yml BuildArch: noarch BuildRoot: %{_tmppath}/%{name}-%{version}-build BuildRequires: perl BuildRequires: perl-macros -BuildRequires: perl(Module::Build) >= 0.4200 +BuildRequires: perl(Module::Build) >= 0.420000 BuildRequires: perl(Test::Deep) >= 0.095 -BuildRequires: perl(Test::Exception) >= 0.21 +BuildRequires: perl(Test::Exception) >= 0.210000 BuildRequires: perl(Test::More) >= 0.88 BuildRequires: perl(Test::Warn) >= 0.08 %{perl_requires} -# MANUAL -BuildRequires: perl(DBD::SQLite) -BuildRequires: perl(DBD::mysql) %description A unique flat-file database module, written in pure perl. True multi-level ++++++ DBM-Deep-2.0011.tar.gz -> DBM-Deep-2.0012.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBM-Deep-2.0011/Changes new/DBM-Deep-2.0012/Changes --- old/DBM-Deep-2.0011/Changes 2014-01-13 03:05:20.000000000 +0100 +++ new/DBM-Deep-2.0012/Changes 2015-06-17 06:15:50.000000000 +0200 @@ -1,5 +1,8 @@ Revision history for DBM::Deep (ordered by revision number). +2.0012 Jun 17 20:30:00 2015 PDT + - Improved transaction validation and warnings (GH#12) + 2.0011 Jan 12 16:00:00 2013 PDT - POD fixes by H. Merijn Brandt (The X<> tag - Thanks!) diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBM-Deep-2.0011/META.json new/DBM-Deep-2.0012/META.json --- old/DBM-Deep-2.0011/META.json 2014-01-13 03:05:20.000000000 +0100 +++ new/DBM-Deep-2.0012/META.json 2015-06-17 06:15:50.000000000 +0200 @@ -1,8 +1,10 @@ { "abstract" : "A pure perl multi-level hash/array DBM that supports transactions", - "author" : [], + "author" : [ + "unknown" + ], "dynamic_config" : 1, - "generated_by" : "Module::Build version 0.4203", + "generated_by" : "Module::Build version 0.4214", "license" : [ "perl_5" ], @@ -45,7 +47,7 @@ "provides" : { "DBM::Deep" : { "file" : "lib/DBM/Deep.pm", - "version" : "2.0011" + "version" : "2.0012" }, "DBM::Deep::Array" : { "file" : "lib/DBM/Deep/Array.pm" @@ -132,5 +134,5 @@ "url" : "https://github.com/robkinyon/dbm-deep"; } }, - "version" : "2.0011" + "version" : "2.0012" } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBM-Deep-2.0011/META.yml new/DBM-Deep-2.0012/META.yml --- old/DBM-Deep-2.0011/META.yml 2014-01-13 03:05:20.000000000 +0100 +++ new/DBM-Deep-2.0012/META.yml 2015-06-17 06:15:50.000000000 +0200 @@ -3,21 +3,21 @@ author: - unknown build_requires: - File::Path: 0.01 - File::Temp: 0.01 - Pod::Usage: 1.3 - Test::Deep: 0.095 - Test::Exception: 0.21 - Test::More: 0.88 - Test::Warn: 0.08 + File::Path: '0.01' + File::Temp: '0.01' + Pod::Usage: '1.3' + Test::Deep: '0.095' + Test::Exception: '0.21' + Test::More: '0.88' + Test::Warn: '0.08' configure_requires: - Module::Build: 0.42 + Module::Build: '0.42' dynamic_config: 1 -generated_by: 'Module::Build version 0.4203, CPAN::Meta::Converter version 2.120351' +generated_by: 'Module::Build version 0.4214, CPAN::Meta::Converter version 2.150001' license: perl meta-spec: url: http://module-build.sourceforge.net/META-spec-v1.4.html - version: 1.4 + version: '1.4' name: DBM-Deep no_index: directory: @@ -25,88 +25,63 @@ provides: DBM::Deep: file: lib/DBM/Deep.pm - version: 2.0011 + version: '2.0012' DBM::Deep::Array: file: lib/DBM/Deep/Array.pm - version: 0 DBM::Deep::Engine: file: lib/DBM/Deep/Engine.pm - version: 0 DBM::Deep::Engine::DBI: file: lib/DBM/Deep/Engine/DBI.pm - version: 0 DBM::Deep::Engine::File: file: lib/DBM/Deep/Engine/File.pm - version: 0 DBM::Deep::Hash: file: lib/DBM/Deep/Hash.pm - version: 0 DBM::Deep::Iterator: file: lib/DBM/Deep/Iterator.pm - version: 0 DBM::Deep::Iterator::DBI: file: lib/DBM/Deep/Iterator/DBI.pm - version: 0 DBM::Deep::Iterator::File: file: lib/DBM/Deep/Iterator/File.pm - version: 0 DBM::Deep::Iterator::File::BucketList: file: lib/DBM/Deep/Iterator/File/BucketList.pm - version: 0 DBM::Deep::Iterator::File::Index: file: lib/DBM/Deep/Iterator/File/Index.pm - version: 0 DBM::Deep::Null: file: lib/DBM/Deep/Null.pm - version: 0 DBM::Deep::Sector: file: lib/DBM/Deep/Sector.pm - version: 0 DBM::Deep::Sector::DBI: file: lib/DBM/Deep/Sector/DBI.pm - version: 0 DBM::Deep::Sector::DBI::Reference: file: lib/DBM/Deep/Sector/DBI/Reference.pm - version: 0 DBM::Deep::Sector::DBI::Scalar: file: lib/DBM/Deep/Sector/DBI/Scalar.pm - version: 0 DBM::Deep::Sector::File: file: lib/DBM/Deep/Sector/File.pm - version: 0 DBM::Deep::Sector::File::BucketList: file: lib/DBM/Deep/Sector/File/BucketList.pm - version: 0 DBM::Deep::Sector::File::Data: file: lib/DBM/Deep/Sector/File/Data.pm - version: 0 DBM::Deep::Sector::File::Index: file: lib/DBM/Deep/Sector/File/Index.pm - version: 0 DBM::Deep::Sector::File::Null: file: lib/DBM/Deep/Sector/File/Null.pm - version: 0 DBM::Deep::Sector::File::Reference: file: lib/DBM/Deep/Sector/File/Reference.pm - version: 0 DBM::Deep::Sector::File::Scalar: file: lib/DBM/Deep/Sector/File/Scalar.pm - version: 0 DBM::Deep::Storage: file: lib/DBM/Deep/Storage.pm - version: 0 DBM::Deep::Storage::DBI: file: lib/DBM/Deep/Storage/DBI.pm - version: 0 DBM::Deep::Storage::File: file: lib/DBM/Deep/Storage/File.pm - version: 0 requires: - Digest::MD5: 1.00 - Fcntl: 0.01 - Scalar::Util: 1.14 + Digest::MD5: '1.00' + Fcntl: '0.01' + Scalar::Util: '1.14' perl: 5.008_004 resources: license: http://dev.perl.org/licenses/ repository: https://github.com/robkinyon/dbm-deep -version: 2.0011 +version: '2.0012' diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBM-Deep-2.0011/Makefile.PL new/DBM-Deep-2.0012/Makefile.PL --- old/DBM-Deep-2.0011/Makefile.PL 2014-01-13 03:05:20.000000000 +0100 +++ new/DBM-Deep-2.0012/Makefile.PL 2015-06-17 06:15:50.000000000 +0200 @@ -1,24 +1,24 @@ -# Note: this file was auto-generated by Module::Build::Compat version 0.4203 +# Note: this file was auto-generated by Module::Build::Compat version 0.4214 require 5.008_004; use ExtUtils::MakeMaker; WriteMakefile ( - 'PL_FILES' => {}, - 'INSTALLDIRS' => 'site', 'NAME' => 'DBM::Deep', - 'EXE_FILES' => [], - 'VERSION_FROM' => 'lib/DBM/Deep.pm', 'PREREQ_PM' => { - 'Scalar::Util' => '1.14', - 'Test::Exception' => '0.21', 'Pod::Usage' => '1.3', - 'Fcntl' => '0.01', - 'Test::More' => '0.88', 'Test::Warn' => '0.08', - 'File::Temp' => '0.01', 'Digest::MD5' => '1.00', + 'Scalar::Util' => '1.14', + 'Test::More' => '0.88', + 'Test::Exception' => '0.21', + 'Fcntl' => '0.01', 'File::Path' => '0.01', + 'File::Temp' => '0.01', 'Test::Deep' => '0.095' - } + }, + 'PL_FILES' => {}, + 'VERSION_FROM' => 'lib/DBM/Deep.pm', + 'EXE_FILES' => [], + 'INSTALLDIRS' => 'site' ) ; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBM-Deep-2.0011/lib/DBM/Deep/Engine/File.pm new/DBM-Deep-2.0012/lib/DBM/Deep/Engine/File.pm --- old/DBM-Deep-2.0011/lib/DBM/Deep/Engine/File.pm 2014-01-13 03:05:20.000000000 +0100 +++ new/DBM-Deep-2.0012/lib/DBM/Deep/Engine/File.pm 2015-06-17 06:15:50.000000000 +0200 @@ -420,6 +420,10 @@ my $self = shift; my ($obj) = @_; + unless ($self->supports('transactions')) { + DBM::Deep->_throw_error( "Cannot begin_work unless transactions are supported" ); + } + if ( $self->trans_id ) { DBM::Deep->_throw_error( "Cannot begin_work within an active transaction" ); } @@ -450,6 +454,10 @@ my $self = shift; my ($obj) = @_; + unless ($self->supports('transactions')) { + DBM::Deep->_throw_error( "Cannot rollback unless transactions are supported" ); + } + if ( !$self->trans_id ) { DBM::Deep->_throw_error( "Cannot rollback without an active transaction" ); } @@ -488,6 +496,10 @@ my $self = shift; my ($obj) = @_; + unless ($self->supports('transactions')) { + DBM::Deep->_throw_error( "Cannot commit unless transactions are supported" ); + } + if ( !$self->trans_id ) { DBM::Deep->_throw_error( "Cannot commit without an active transaction" ); } @@ -805,6 +817,10 @@ DBM::Deep->_throw_error("Corrupted file - bad header"); } + if ($values[3] != $self->{num_txns}) { + warn "num_txns ($self->{num_txns}) is different from the file ($values[3])\n"; + } + #XXX Add warnings if values weren't set right @{$self}{qw(byte_size max_buckets data_sector_size num_txns)} = @values; @@ -1031,10 +1047,14 @@ sub set_chains_loc { $_[0]{chains_loc} = $_[1] } sub supports { - shift; + my $self = shift; my ($feature) = @_; - return 1 if $feature =~ /^(?:(?:transacti|singlet)ons|unicode)\z/; + if ( $feature eq 'transactions' ) { + return $self->num_txns > 1; + } + return 1 if $feature eq 'singletons'; + return 1 if $feature eq 'unicode'; return; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBM-Deep-2.0011/lib/DBM/Deep.pm new/DBM-Deep-2.0012/lib/DBM/Deep.pm --- old/DBM-Deep-2.0011/lib/DBM/Deep.pm 2014-01-13 03:05:20.000000000 +0100 +++ new/DBM-Deep-2.0012/lib/DBM/Deep.pm 2015-06-17 06:15:50.000000000 +0200 @@ -6,7 +6,7 @@ use warnings FATAL => 'all'; no warnings 'recursion'; -our $VERSION = q(2.0011); +our $VERSION = q(2.0012); use Scalar::Util (); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBM-Deep-2.0011/t/06_error.t new/DBM-Deep-2.0012/t/06_error.t --- old/DBM-Deep-2.0011/t/06_error.t 2014-01-13 03:05:20.000000000 +0100 +++ new/DBM-Deep-2.0012/t/06_error.t 2015-06-17 06:15:50.000000000 +0200 @@ -145,14 +145,4 @@ } qr/ at gneen line 1\b/, "File name in error message is correct"; } -{ - # Too many transactions. - my ($fh, $filename) = new_fh(); - - throws_ok { - new DBM::Deep $filename =>-> begin_work; - } qr/^DBM::Deep: Cannot allocate transaction ID at/, - "Error when starting transaction in database with only 1 txn"; -} - done_testing; ++++++ cpanspec.yml ++++++ --- #description_paragraphs: 3 #no_testing: broken upstream #sources: # - source1 # - source2 #patches: # foo.patch: -p1 # bar.patch: #preamble: |- # BuildRequires: gcc-c++ #post_prep: |- # hunspell=`pkg-config --libs hunspell | sed -e 's,-l,,; s, *,,g'` # sed -i -e "s,hunspell-X,$hunspell," t/00-prereq.t Makefile.PL #post_install: |- # sed on %{name}.files #license: SUSE-NonFree #skip_noarch: 1 #custom_build: |- #./Build build flags=%{?_smp_mflags} --myflag #custom_test: |- #startserver && make test #ignore_requires: Bizarre::Module
