Hello community, here is the log from the commit of package perl-Cache-Cache for openSUSE:Factory checked in at 2015-04-18 10:40:43 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-Cache-Cache (Old) and /work/SRC/openSUSE:Factory/.perl-Cache-Cache.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Cache-Cache" Changes: -------- --- /work/SRC/openSUSE:Factory/perl-Cache-Cache/perl-Cache-Cache.changes 2014-09-23 10:42:47.000000000 +0200 +++ /work/SRC/openSUSE:Factory/.perl-Cache-Cache.new/perl-Cache-Cache.changes 2015-04-18 10:40:44.000000000 +0200 @@ -1,0 +2,10 @@ +Fri Apr 17 08:13:24 UTC 2015 - [email protected] + +- updated to 1.08 + see /usr/share/doc/packages/perl-Cache-Cache/CHANGES + + 1.08 2015-01-22 + - try to avoid some race conditions (thanks, Petr Písař) + - typo fixes (thanks, David Steinbrunner) + +------------------------------------------------------------------- Old: ---- Cache-Cache-1.07.tar.gz New: ---- Cache-Cache-1.08.tar.gz cpanspec.yml ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Cache-Cache.spec ++++++ --- /var/tmp/diff_new_pack.hZ0gxX/_old 2015-04-18 10:40:44.000000000 +0200 +++ /var/tmp/diff_new_pack.hZ0gxX/_new 2015-04-18 10:40:44.000000000 +0200 @@ -1,7 +1,7 @@ # # spec file for package perl-Cache-Cache # -# 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,14 +17,16 @@ Name: perl-Cache-Cache -Version: 1.07 +Version: 1.08 Release: 0 +#Upstream: CHECK(GPL-1.0+ or Artistic-1.0) %define cpan_name Cache-Cache -Summary: The Cache::Cache cache interface +Summary: The Cache Interface License: GPL-1.0+ or Artistic-1.0 Group: Development/Libraries/Perl Url: http://search.cpan.org/dist/Cache-Cache/ -Source: http://www.cpan.org/authors/id/R/RJ/RJBS/%{cpan_name}-%{version}.tar.gz +Source0: http://www.cpan.org/authors/id/R/RJ/RJBS/%{cpan_name}-%{version}.tar.gz +Source1: cpanspec.yml BuildArch: noarch BuildRoot: %{_tmppath}/%{name}-%{version}-build BuildRequires: perl @@ -38,17 +40,17 @@ %{perl_requires} %description -The Cache modules are designed to assist a developer in persisting data for a -specified period of time. Often these modules are used in web applications to -store data locally to save repeated and redundant expensive calls to remote -machines or databases. People have also been known to use Cache::Cache for its -straightforward interface in sharing data between runs of an application or -invocations of a CGI-style script or simply as an easy to use abstraction of -the filesystem or shared memory. - -The Cache::Cache interface is implemented by classes that support the get, set, -remove, size, purge, and clear instance methods and their corresponding static -methods for persisting data across method calls. +The Cache modules are designed to assist a developer in persisting data for +a specified period of time. Often these modules are used in web +applications to store data locally to save repeated and redundant expensive +calls to remote machines or databases. People have also been known to use +Cache::Cache for its straightforward interface in sharing data between runs +of an application or invocations of a CGI-style script or simply as an easy +to use abstraction of the filesystem or shared memory. + +The Cache::Cache interface is implemented by classes that support the get, +set, remove, size, purge, and clear instance methods and their +corresponding static methods for persisting data across method calls. %prep %setup -q -n %{cpan_name}-%{version} @@ -67,6 +69,6 @@ %files -f %{name}.files %defattr(-,root,root,755) -%doc CHANGES README COPYING +%doc CHANGES COPYING CREDITS DISCLAIMER README STYLE %changelog ++++++ Cache-Cache-1.07.tar.gz -> Cache-Cache-1.08.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Cache-Cache-1.07/CHANGES new/Cache-Cache-1.08/CHANGES --- old/Cache-Cache-1.07/CHANGES 2014-09-17 15:58:18.000000000 +0200 +++ new/Cache-Cache-1.08/CHANGES 2015-01-22 17:09:36.000000000 +0100 @@ -1,5 +1,9 @@ Revision history for Cache +1.08 2015-01-22 + - try to avoid some race conditions (thanks, Petr Písař) + - typo fixes (thanks, David Steinbrunner) + 1.07 2014-09-17 - fix a bug where we checked @$ instead of $@ after eval diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Cache-Cache-1.07/META.json new/Cache-Cache-1.08/META.json --- old/Cache-Cache-1.07/META.json 2014-09-17 16:01:28.000000000 +0200 +++ new/Cache-Cache-1.08/META.json 2015-01-22 17:12:18.000000000 +0100 @@ -4,7 +4,7 @@ "unknown" ], "dynamic_config" : 1, - "generated_by" : "ExtUtils::MakeMaker version 6.98, CPAN::Meta::Converter version 2.142060", + "generated_by" : "ExtUtils::MakeMaker version 7.04, CPAN::Meta::Converter version 2.143240", "license" : [ "unknown" ], @@ -41,5 +41,5 @@ } }, "release_status" : "stable", - "version" : "1.07" + "version" : "1.08" } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Cache-Cache-1.07/META.yml new/Cache-Cache-1.08/META.yml --- old/Cache-Cache-1.07/META.yml 2014-09-17 16:01:28.000000000 +0200 +++ new/Cache-Cache-1.08/META.yml 2015-01-22 17:12:17.000000000 +0100 @@ -7,7 +7,7 @@ configure_requires: ExtUtils::MakeMaker: '0' dynamic_config: 1 -generated_by: 'ExtUtils::MakeMaker version 6.98, CPAN::Meta::Converter version 2.142060' +generated_by: 'ExtUtils::MakeMaker version 7.04, CPAN::Meta::Converter version 2.143240' license: unknown meta-spec: url: http://module-build.sourceforge.net/META-spec-v1.4.html @@ -23,4 +23,4 @@ File::Spec: '0.82' IPC::ShareLite: '0.09' Storable: '1.014' -version: '1.07' +version: '1.08' diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Cache-Cache-1.07/lib/Cache/BaseCache.pm new/Cache-Cache-1.08/lib/Cache/BaseCache.pm --- old/Cache-Cache-1.07/lib/Cache/BaseCache.pm 2014-09-17 15:44:20.000000000 +0200 +++ new/Cache-Cache-1.08/lib/Cache/BaseCache.pm 2015-01-22 16:58:21.000000000 +0100 @@ -680,7 +680,7 @@ =head1 DESCRIPTION BaseCache provides functionality common to all instances of a cache. -It differes from the CacheUtils package insofar as it is designed to +It differs from the CacheUtils package insofar as it is designed to be used as superclass for cache implementations. =head1 SYNOPSIS @@ -688,8 +688,8 @@ Cache::BaseCache is to be used as a superclass for cache implementations. The most effective way to use BaseCache is to use the protected _set_backend method, which will be used to retrieve the -persistance mechanism. The subclass can then inherit the BaseCache's -implentation of get, set, etc. However, due to the difficulty +persistence mechanism. The subclass can then inherit the BaseCache's +implementation of get, set, etc. However, due to the difficulty inheriting static methods in Perl, the subclass will likely need to explicitly implement Clear, Purge, and Size. Also, a factory pattern should be used to invoke the _complete_initialization routine after diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Cache-Cache-1.07/lib/Cache/BaseCacheTester.pm new/Cache-Cache-1.08/lib/Cache/BaseCacheTester.pm --- old/Cache-Cache-1.07/lib/Cache/BaseCacheTester.pm 2014-09-17 15:44:20.000000000 +0200 +++ new/Cache-Cache-1.08/lib/Cache/BaseCacheTester.pm 2015-01-22 16:58:40.000000000 +0100 @@ -131,17 +131,17 @@ =item B<ok( )> Print a message to stdout in the form "ok $test_count" and -incremements the test count. +increments the test count. =item B<not_ok( $message )> Print a message to stdout in the form "not ok $test_count # I<$message> " -and incremements the test count. +and increments the test count. =item B<skip( $message )> Print a message to stdout in the form "ok $test_count # skipped I<$message> " -and incremements the test count. +and increments the test count. =back diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Cache-Cache-1.07/lib/Cache/Cache.pm new/Cache-Cache-1.08/lib/Cache/Cache.pm --- old/Cache-Cache-1.07/lib/Cache/Cache.pm 2014-09-17 15:55:50.000000000 +0200 +++ new/Cache-Cache-1.08/lib/Cache/Cache.pm 2015-01-22 17:08:56.000000000 +0100 @@ -20,7 +20,7 @@ @EXPORT_OK = qw( $VERSION $EXPIRES_NOW $EXPIRES_NEVER ); -$VERSION = "1.07"; +$VERSION = "1.08"; $EXPIRES_NOW = 'now'; $EXPIRES_NEVER = 'never'; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Cache-Cache-1.07/lib/Cache/CacheMetaData.pm new/Cache-Cache-1.08/lib/Cache/CacheMetaData.pm --- old/Cache-Cache-1.07/lib/Cache/CacheMetaData.pm 2014-09-17 15:44:20.000000000 +0200 +++ new/Cache-Cache-1.08/lib/Cache/CacheMetaData.pm 2015-01-22 16:58:57.000000000 +0100 @@ -187,8 +187,8 @@ =head1 DESCRIPTION The CacheMetaData object is used by size aware caches to keep track of -the state of the cache and effeciently return information such as an -objects size or an ordered list of indentifiers to be removed when a +the state of the cache and efficiently return information such as an +objects size or an ordered list of identifiers to be removed when a cache size is being limited. End users will not normally use CacheMetaData directly. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Cache-Cache-1.07/lib/Cache/CacheSizer.pm new/Cache-Cache-1.08/lib/Cache/CacheSizer.pm --- old/Cache-Cache-1.07/lib/Cache/CacheSizer.pm 2014-09-17 15:44:20.000000000 +0200 +++ new/Cache-Cache-1.08/lib/Cache/CacheSizer.pm 2015-01-22 16:59:12.000000000 +0100 @@ -153,7 +153,7 @@ =head1 NAME -Cache::CacheSizer -- component object for mamanging the size of caches +Cache::CacheSizer -- component object for managing the size of caches =head1 DESCRIPTION diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Cache-Cache-1.07/lib/Cache/CacheTester.pm new/Cache-Cache-1.08/lib/Cache/CacheTester.pm --- old/Cache-Cache-1.07/lib/Cache/CacheTester.pm 2014-09-17 15:51:34.000000000 +0200 +++ new/Cache-Cache-1.08/lib/Cache/CacheTester.pm 2015-01-22 15:38:48.000000000 +0100 @@ -168,12 +168,18 @@ my $value = 'Test Value'; + my $start = time; $cache->set( $key, $value, $expires_in ); my $fetched_value = $cache->get( $key ); - ( $fetched_value eq $value ) ? - $self->ok( ) : $self->not_ok( '$fetched_value eq $value' ); + if (time - $start < $expires_in) { + ( $fetched_value eq $value ) ? + $self->ok( ) : $self->not_ok( '$fetched_value eq $value' ); + } else { + $self->skip( '$fetched_value eq $value (not finished in ' . + $expires_in . ' s)' ); + } sleep( $EXPIRES_DELAY + 1 ); @@ -460,12 +466,18 @@ my $value = 'Test Value'; + my $start = time; $cache->set( $key, $value, $expires_in ); my $fetched_value = $cache->get( $key ); - ( $fetched_value eq $value ) ? - $self->ok( ) : $self->not_ok( '$fetched_value eq $value' ); + if (time - $start < $expires_in) { + ( $fetched_value eq $value ) ? + $self->ok( ) : $self->not_ok( '$fetched_value eq $value' ); + } else { + $self->skip( '$fetched_value eq $value (not finished in ' . + $expires_in . ' s)' ); + } sleep( $EXPIRES_DELAY + 1 ); @@ -525,12 +537,18 @@ my $value = 'Test Value'; + my $start = time; $cache->set( $key, $value, $expires_in ); my $fetched_value = $cache->get( $key ); - ( $fetched_value eq $value ) ? - $self->ok( ) : $self->not_ok( '$fetched_value eq $value' ); + if (time - $start < $expires_in) { + ( $fetched_value eq $value ) ? + $self->ok( ) : $self->not_ok( '$fetched_value eq $value' ); + } else { + $self->skip( '$fetched_value eq $value (not finished in ' . + $expires_in . ' s)' ); + } sleep( $EXPIRES_DELAY + 1 ); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Cache-Cache-1.07/lib/Cache/FileBackend.pm new/Cache-Cache-1.08/lib/Cache/FileBackend.pm --- old/Cache-Cache-1.07/lib/Cache/FileBackend.pm 2014-09-17 15:44:20.000000000 +0200 +++ new/Cache-Cache-1.08/lib/Cache/FileBackend.pm 2015-01-22 16:59:26.000000000 +0100 @@ -692,7 +692,7 @@ =head1 NAME -Cache::FileBackend -- a filesystem based persistance mechanism +Cache::FileBackend -- a filesystem based persistence mechanism =head1 DESCRIPTION diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Cache-Cache-1.07/lib/Cache/MemoryBackend.pm new/Cache-Cache-1.08/lib/Cache/MemoryBackend.pm --- old/Cache-Cache-1.07/lib/Cache/MemoryBackend.pm 2014-09-17 15:44:20.000000000 +0200 +++ new/Cache-Cache-1.08/lib/Cache/MemoryBackend.pm 2015-01-22 16:59:36.000000000 +0100 @@ -125,7 +125,7 @@ =head1 NAME -Cache::MemoryBackend -- a memory based persistance mechanism +Cache::MemoryBackend -- a memory based persistence mechanism =head1 DESCRIPTION diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Cache-Cache-1.07/lib/Cache/Object.pm new/Cache-Cache-1.08/lib/Cache/Object.pm --- old/Cache-Cache-1.07/lib/Cache/Object.pm 2014-09-17 15:44:20.000000000 +0200 +++ new/Cache-Cache-1.08/lib/Cache/Object.pm 2015-01-22 16:59:46.000000000 +0100 @@ -187,7 +187,7 @@ The time at which the object was last accessed. Various cache implementations will use the accessed_at property to store information -for LRU algorithms. There is no guarentee that all caches will update +for LRU algorithms. There is no guarantee that all caches will update this field, however. =item B<(get|set)_created_at> diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Cache-Cache-1.07/lib/Cache/SharedMemoryBackend.pm new/Cache-Cache-1.08/lib/Cache/SharedMemoryBackend.pm --- old/Cache-Cache-1.07/lib/Cache/SharedMemoryBackend.pm 2014-09-17 15:44:20.000000000 +0200 +++ new/Cache-Cache-1.08/lib/Cache/SharedMemoryBackend.pm 2015-01-22 17:00:12.000000000 +0100 @@ -107,7 +107,7 @@ # this method uses the shared created by Instantiate_Share to # transparently retrieve a reference to a shared hash structure, and -# additionally exlusively locks the share +# additionally exclusively locks the share sub _Restore_Shared_Hash_Ref_With_Lock { @@ -197,7 +197,7 @@ =head1 NAME -Cache::SharedMemoryBackend -- a shared memory based persistance mechanism +Cache::SharedMemoryBackend -- a shared memory based persistence mechanism =head1 DESCRIPTION diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Cache-Cache-1.07/lib/Cache/SizeAwareCache.pm new/Cache-Cache-1.08/lib/Cache/SizeAwareCache.pm --- old/Cache-Cache-1.07/lib/Cache/SizeAwareCache.pm 2014-09-17 15:44:20.000000000 +0200 +++ new/Cache-Cache-1.08/lib/Cache/SizeAwareCache.pm 2015-01-22 17:00:33.000000000 +0100 @@ -56,7 +56,7 @@ 1) objects that have expired 2) objects that are least recently accessed - 3) objects that that expire next + 3) objects that expire next =head1 SYNOPSIS @@ -90,7 +90,7 @@ that the cache should be limited to. Note that this is only a one time adjustment. To maintain the cache size, consider using the I<max_size> option, although it is considered very expensive, and can -often be better achieved by peridocally calling I<limit_size>. +often be better achieved by periodically calling I<limit_size>. =back diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Cache-Cache-1.07/lib/Cache/SizeAwareCacheTester.pm new/Cache-Cache-1.08/lib/Cache/SizeAwareCacheTester.pm --- old/Cache-Cache-1.07/lib/Cache/SizeAwareCacheTester.pm 2014-09-17 15:44:20.000000000 +0200 +++ new/Cache-Cache-1.08/lib/Cache/SizeAwareCacheTester.pm 2015-01-22 15:38:48.000000000 +0100 @@ -110,6 +110,7 @@ my $first_expires_in = 20; + my $start = time; $cache->set( $first_key, $value, $first_expires_in ); my $first_size = $cache->size( ); @@ -129,11 +130,17 @@ $cache->set( $key, $value, $second_expires_in ); } + my $second_inserted = time; my $second_size = $cache->size( ); - ( $second_size > $first_size ) ? - $self->ok( ) : $self->not_ok( '$second_size > $first_size' ); + if (time - $start < $first_expires_in ) { + ( $second_size > $first_size ) ? + $self->ok( ) : $self->not_ok( '$second_size > $first_size' ); + } else { + $self->skip( '$second_size > $first_size (not finished in ' . + $first_expires_in . ' s)'); + } my $size_limit = $first_size; @@ -146,8 +153,18 @@ my $first_value = $cache->get( $first_key ); - ( $first_value eq $value ) ? - $self->ok( ) : $self->not_ok( '$first_value eq $value' ); + if (time - $start >= $first_expires_in) { + $self->skip( '$first_value eq $value (not finished in ' . + $first_expires_in . ' s)'); + } elsif ($second_inserted + $second_expires_in >= + $start + $first_expires_in) { + $self->skip( '$first_value eq $value (second key insterted to late, ' . + 'so first key had expiration time before the second one, ' . + 'thus the first key was removed when limit cache size'); + } else { + ( $first_value eq $value ) ? + $self->ok( ) : $self->not_ok( '$first_value eq $value' ); + } } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Cache-Cache-1.07/lib/Cache/SizeAwareFileCache.pm new/Cache-Cache-1.08/lib/Cache/SizeAwareFileCache.pm --- old/Cache-Cache-1.07/lib/Cache/SizeAwareFileCache.pm 2014-09-17 15:44:20.000000000 +0200 +++ new/Cache-Cache-1.08/lib/Cache/SizeAwareFileCache.pm 2015-01-22 17:00:43.000000000 +0100 @@ -187,7 +187,7 @@ Original author: DeWitt Clinton <[email protected]> Also: Portions of this code are a rewrite of David Coppit's excellent -extentions to the original File::Cache +extensions to the original File::Cache Last author: $Author: dclinton $ ++++++ 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: GPL-1.0+ or Artistic-1.0 #skip_noarch: 1 #custom_build: - #./Build build flags=%{?_smp_mflags} --myflag
