r24411 - in /trunk/libipc-pubsub-perl: ./ debian/ inc/Module/ inc/Module/Install/ lib/IPC/ lib/IPC/PubSub/Cache/
yvesago-guest at users.alioth.debian.org
yvesago-guest at users.alioth.debian.org
Mon Aug 18 08:37:16 UTC 2008
Author: yvesago-guest
Date: Mon Aug 18 08:37:14 2008
New Revision: 24411
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=24411
Log:
* new upstream release
* bump Standards-Version to 3.8.0, no change
* update copyright to proposal format rev 102
* add copyright for M::I inc directory
* TODO: keep unreleased until there's a DBM::Deep package to add a new DBM::Deep backend
Modified:
trunk/libipc-pubsub-perl/Changes
trunk/libipc-pubsub-perl/META.yml
trunk/libipc-pubsub-perl/Makefile.PL
trunk/libipc-pubsub-perl/SIGNATURE
trunk/libipc-pubsub-perl/debian/changelog
trunk/libipc-pubsub-perl/debian/control
trunk/libipc-pubsub-perl/debian/copyright
trunk/libipc-pubsub-perl/inc/Module/Install.pm
trunk/libipc-pubsub-perl/inc/Module/Install/Base.pm
trunk/libipc-pubsub-perl/inc/Module/Install/Can.pm
trunk/libipc-pubsub-perl/inc/Module/Install/Fetch.pm
trunk/libipc-pubsub-perl/inc/Module/Install/Makefile.pm
trunk/libipc-pubsub-perl/inc/Module/Install/Metadata.pm
trunk/libipc-pubsub-perl/inc/Module/Install/Win32.pm
trunk/libipc-pubsub-perl/inc/Module/Install/WriteAll.pm
trunk/libipc-pubsub-perl/lib/IPC/PubSub.pm
trunk/libipc-pubsub-perl/lib/IPC/PubSub/Cache/DBM_Deep.pm
Modified: trunk/libipc-pubsub-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libipc-pubsub-perl/Changes?rev=24411&op=diff
==============================================================================
--- trunk/libipc-pubsub-perl/Changes (original)
+++ trunk/libipc-pubsub-perl/Changes Mon Aug 18 08:37:14 2008
@@ -1,3 +1,11 @@
+[Changes for 0.28 - 2008-08-15]
+
+* We now require DBM::Deep 1.00 or later.
+
+* Improved data consistency in DBM::Deep backend so it won't sometimes
+ die with a "not an ARRAY reference" message.
+ Reported by: Matthew Pitts
+
[Changes for 0.27 - 2007-10-09]
* Adjust tests so it no longer fails with newer versions of DBM::Deep.
Modified: trunk/libipc-pubsub-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libipc-pubsub-perl/META.yml?rev=24411&op=diff
==============================================================================
--- trunk/libipc-pubsub-perl/META.yml (original)
+++ trunk/libipc-pubsub-perl/META.yml Mon Aug 18 08:37:14 2008
@@ -1,8 +1,9 @@
---
abstract: Interprocess Publish/Subscribe channels
-author: Audrey Tang <cpan at audreyt.org>
+author:
+ - Audrey Tang <cpan at audreyt.org>
distribution_type: module
-generated_by: Module::Install version 0.67
+generated_by: Module::Install version 0.68
license: MIT
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.3.html
@@ -14,8 +15,9 @@
- t
requires:
Class::Accessor::Fast: 0
- DBM::Deep: 0
+ DBM::Deep: 1.00
Data::UUID: 0
+ Storable: 0
Time::HiRes: 0
perl: 5.6.0
-version: 0.27
+version: 0.28
Modified: trunk/libipc-pubsub-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libipc-pubsub-perl/Makefile.PL?rev=24411&op=diff
==============================================================================
--- trunk/libipc-pubsub-perl/Makefile.PL (original)
+++ trunk/libipc-pubsub-perl/Makefile.PL Mon Aug 18 08:37:14 2008
@@ -5,8 +5,9 @@
license 'MIT';
all_from 'lib/IPC/PubSub.pm';
+requires 'Storable';
requires 'Time::HiRes';
-requires 'DBM::Deep';
+requires 'DBM::Deep' => '1.00';
requires 'Data::UUID';
requires 'Class::Accessor::Fast';
Modified: trunk/libipc-pubsub-perl/SIGNATURE
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libipc-pubsub-perl/SIGNATURE?rev=24411&op=diff
==============================================================================
--- trunk/libipc-pubsub-perl/SIGNATURE (original)
+++ trunk/libipc-pubsub-perl/SIGNATURE Mon Aug 18 08:37:14 2008
@@ -14,22 +14,22 @@
-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1
-SHA1 9d2cd06a76b890aa4de33fda2761aaa5bddce6b6 Changes
+SHA1 8dab1d7a3df4b31edcb70b9c1f389e16694ad214 Changes
SHA1 86de90f247630310db0c9d7677f3dc7248400928 MANIFEST
-SHA1 5f5cd97cb12e8fa44d24a1f76077d30d79e2b43b META.yml
-SHA1 41614b2a3cd5f97787cfa46aa79f65d81b25f70f Makefile.PL
+SHA1 2be74a66af16824ef189ea5a4647ec8f96d475a7 META.yml
+SHA1 1efb0dda270171a9accec4db6643c6d9b81d6e78 Makefile.PL
SHA1 7edc5bba981fd5d734a9a095b3bddfed8d1acda0 README
-SHA1 78edb89a439463e44c33a72bbee84c54d0dc8aaf inc/Module/Install.pm
-SHA1 8ea4e37df83fd0c1c050be5c8da75545c3828d9b inc/Module/Install/Base.pm
-SHA1 1da6031583c32f0d1ec073b8376102fc51427dcc inc/Module/Install/Can.pm
-SHA1 b779375b90c16af2f31f38a1dd2b5df223c7f2fb inc/Module/Install/Fetch.pm
-SHA1 2054450e1e9c1dd8056362bf4a64ae70d5d71476 inc/Module/Install/Makefile.pm
-SHA1 5d6189b2cad15cf9932a28faafd55130c8247e83 inc/Module/Install/Metadata.pm
-SHA1 02af973fae2ac3531fa6b704574b2b8cb2a08148 inc/Module/Install/Win32.pm
-SHA1 3a2eab96e91cca8d99938cda7791759ae9d97b3a inc/Module/Install/WriteAll.pm
-SHA1 a284fa09ad3457bf03e9efdb28d00821c5218285 lib/IPC/PubSub.pm
+SHA1 7e2cfa1b9efe0d502ee57717649c90ba4bd28ba9 inc/Module/Install.pm
+SHA1 6e1392d80a0f239eecd5664f7f21f922cedb9329 inc/Module/Install/Base.pm
+SHA1 f69417fe831d9cc22a78f00a617afadceade4d81 inc/Module/Install/Can.pm
+SHA1 c61d02895330310048bf388881b5e2e064031561 inc/Module/Install/Fetch.pm
+SHA1 54fcbed19232ec959bb17cfb4410599afc7f0779 inc/Module/Install/Makefile.pm
+SHA1 7d3be9b158e37b2b2c22084740099955623b1d56 inc/Module/Install/Metadata.pm
+SHA1 0a8b66180229ba2f9deaea1fedd0aacf7a7ace6b inc/Module/Install/Win32.pm
+SHA1 d3352eb33fe43a5f3ead513f645224fe34d73bc9 inc/Module/Install/WriteAll.pm
+SHA1 05f8adad5cad991d73499ee9dbcfba3fa59bbe56 lib/IPC/PubSub.pm
SHA1 0ed23d984f0dc09d76ed50c16a2b0aeaa71c8648 lib/IPC/PubSub/Cache.pm
-SHA1 fde1bf31e8ce2fd3b8d7eb419af0e360d4280e32 lib/IPC/PubSub/Cache/DBM_Deep.pm
+SHA1 80b988a5d95ecb1689d58052cb139cf54ff482a4 lib/IPC/PubSub/Cache/DBM_Deep.pm
SHA1 4a865e5f6443b2fc2cd44e4b1e9aa9aba110b9c0 lib/IPC/PubSub/Cache/JiftyDBI.pm
SHA1 a6f3aee0362d3e8e9f7d063f5e40bbd8c6f0815e lib/IPC/PubSub/Cache/JiftyDBI/Stash.pm
SHA1 3b270ac2da87b439cde2a2755d1bea3b2a578a05 lib/IPC/PubSub/Cache/JiftyDBI/Stash/Item.pm
@@ -43,7 +43,7 @@
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.4.3 (Darwin)
-iD8DBQFHCy7TtLPdNzw1AaARAiomAJ9Bd0sF0LhdRYAceqh12KDWkjqgHwCfd1k4
-tB2iKTfjcZa3oZ3vD5bYD90=
-=Hy40
+iD8DBQFIpGHStLPdNzw1AaARAmzGAJwJldKSqMxjF8efMJ1IevlLndtToQCbBCh4
+tfkBv8DNKEVKzESDSzJJAcw=
+=RTp8
-----END PGP SIGNATURE-----
Modified: trunk/libipc-pubsub-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libipc-pubsub-perl/debian/changelog?rev=24411&op=diff
==============================================================================
--- trunk/libipc-pubsub-perl/debian/changelog (original)
+++ trunk/libipc-pubsub-perl/debian/changelog Mon Aug 18 08:37:14 2008
@@ -1,3 +1,13 @@
+libipc-pubsub-perl (0.28-1) UNRELEASED; urgency=low
+
+ * new upstream release
+ * bump Standards-Version to 3.8.0, no change
+ * update copyright to proposal format rev 102
+ * add copyright for M::I inc directory
+ * TODO: keep unreleased until there's a DBM::Deep package to add a new DBM::Deep backend
+
+ -- AGOSTINI Yves <agostini at univ-metz.fr> Mon, 18 Aug 2008 10:13:28 +0200
+
libipc-pubsub-perl (0.27-1) unstable; urgency=low
* Initial Release (Closes: #476743)
Modified: trunk/libipc-pubsub-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libipc-pubsub-perl/debian/control?rev=24411&op=diff
==============================================================================
--- trunk/libipc-pubsub-perl/debian/control (original)
+++ trunk/libipc-pubsub-perl/debian/control Mon Aug 18 08:37:14 2008
@@ -5,7 +5,7 @@
Build-Depends-Indep: perl (>= 5.6.0), libossp-uuid-perl, libclass-accessor-perl
Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
Uploaders: AGOSTINI Yves <agostini at univ-metz.fr>
-Standards-Version: 3.7.3
+Standards-Version: 3.8.0
Homepage: http://search.cpan.org/dist/IPC-PubSub/
Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/libipc-pubsub-perl/
Vcs-Browser: http://svn.debian.org/wsvn/pkg-perl/trunk/libipc-pubsub-perl/
Modified: trunk/libipc-pubsub-perl/debian/copyright
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libipc-pubsub-perl/debian/copyright?rev=24411&op=diff
==============================================================================
--- trunk/libipc-pubsub-perl/debian/copyright (original)
+++ trunk/libipc-pubsub-perl/debian/copyright Mon Aug 18 08:37:14 2008
@@ -1,15 +1,29 @@
-This is the debian package for the IPC-PubSub module.
+Format-Specification: http://wiki.debian.org/Proposals/CopyrightFormat?action=recall&rev=102
+Debianized-By: AGOSTINI Yves <agostini at univ-metz.fr>
+Debianized-Date: Mon, 18 Aug 2008 10:13:28 +0200
+Original-Source-Location: http://search.cpan.org/dist/IPC-PubSub/
+Upstream-Author: Audrey Tang <cpan at audreyt.org>
-It was downloaded from http://search.cpan.org/dist/IPC-PubSub/
+Files: *
+Copyright: Copyright 2006, 2007 by Audrey Tang <cpan at audreyt.org>.
+License: MIT
+ This software is released under the MIT license cited below.
-The upstream author is:
+Files: inc/*
+Copyright: Copyright 2002 - 2008 by Brian Ingerson, Audrey Tang and Adam Kennedy.
+License: GPL-1+ | Artistic
+ This program is free software; you can redistribute it and/or modify it under
+ the same terms as Perl itself.
-Audrey Tang <cpan at audreyt.org>.
+Files: debian/*
+Copyright: Copyright 2008 Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
+License: MIT
+ The Debian packaging is put under the same terms as the module itself.
-
-Copyright 2006, 2007 by Audrey Tang <cpan at audreyt.org>.
-
-This software is released under the MIT license cited below.
+Perl is distributed under your choice of the GNU General Public License or
+the Artistic License. On Debian GNU/Linux systems, the complete text of the
+GNU General Public License can be found in `/usr/share/common-licenses/GPL'
+and the Artistic Licence in `/usr/share/common-licenses/Artistic'.
MIT License:
@@ -30,7 +44,3 @@
LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER
DEALINGS IN THE SOFTWARE.
-
-The Debian packaging is (C) 2008, Debian Perl Group
-<pkg-perl-maintainers at lists.alioth.debian.org> and
-is licensed under the same terms as the software itself (see above).
Modified: trunk/libipc-pubsub-perl/inc/Module/Install.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libipc-pubsub-perl/inc/Module/Install.pm?rev=24411&op=diff
==============================================================================
--- trunk/libipc-pubsub-perl/inc/Module/Install.pm (original)
+++ trunk/libipc-pubsub-perl/inc/Module/Install.pm Mon Aug 18 08:37:14 2008
@@ -28,7 +28,7 @@
# This is not enforced yet, but will be some time in the next few
# releases once we can make sure it won't clash with custom
# Module::Install extensions.
- $VERSION = '0.67';
+ $VERSION = '0.68';
}
# Whether or not inc::Module::Install is actually loaded, the
Modified: trunk/libipc-pubsub-perl/inc/Module/Install/Base.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libipc-pubsub-perl/inc/Module/Install/Base.pm?rev=24411&op=diff
==============================================================================
--- trunk/libipc-pubsub-perl/inc/Module/Install/Base.pm (original)
+++ trunk/libipc-pubsub-perl/inc/Module/Install/Base.pm Mon Aug 18 08:37:14 2008
@@ -1,7 +1,7 @@
#line 1
package Module::Install::Base;
-$VERSION = '0.67';
+$VERSION = '0.68';
# Suspend handler for "redefined" warnings
BEGIN {
Modified: trunk/libipc-pubsub-perl/inc/Module/Install/Can.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libipc-pubsub-perl/inc/Module/Install/Can.pm?rev=24411&op=diff
==============================================================================
--- trunk/libipc-pubsub-perl/inc/Module/Install/Can.pm (original)
+++ trunk/libipc-pubsub-perl/inc/Module/Install/Can.pm Mon Aug 18 08:37:14 2008
@@ -11,7 +11,7 @@
use vars qw{$VERSION $ISCORE @ISA};
BEGIN {
- $VERSION = '0.67';
+ $VERSION = '0.68';
$ISCORE = 1;
@ISA = qw{Module::Install::Base};
}
Modified: trunk/libipc-pubsub-perl/inc/Module/Install/Fetch.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libipc-pubsub-perl/inc/Module/Install/Fetch.pm?rev=24411&op=diff
==============================================================================
--- trunk/libipc-pubsub-perl/inc/Module/Install/Fetch.pm (original)
+++ trunk/libipc-pubsub-perl/inc/Module/Install/Fetch.pm Mon Aug 18 08:37:14 2008
@@ -6,7 +6,7 @@
use vars qw{$VERSION $ISCORE @ISA};
BEGIN {
- $VERSION = '0.67';
+ $VERSION = '0.68';
$ISCORE = 1;
@ISA = qw{Module::Install::Base};
}
Modified: trunk/libipc-pubsub-perl/inc/Module/Install/Makefile.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libipc-pubsub-perl/inc/Module/Install/Makefile.pm?rev=24411&op=diff
==============================================================================
--- trunk/libipc-pubsub-perl/inc/Module/Install/Makefile.pm (original)
+++ trunk/libipc-pubsub-perl/inc/Module/Install/Makefile.pm Mon Aug 18 08:37:14 2008
@@ -7,7 +7,7 @@
use vars qw{$VERSION $ISCORE @ISA};
BEGIN {
- $VERSION = '0.67';
+ $VERSION = '0.68';
$ISCORE = 1;
@ISA = qw{Module::Install::Base};
}
Modified: trunk/libipc-pubsub-perl/inc/Module/Install/Metadata.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libipc-pubsub-perl/inc/Module/Install/Metadata.pm?rev=24411&op=diff
==============================================================================
--- trunk/libipc-pubsub-perl/inc/Module/Install/Metadata.pm (original)
+++ trunk/libipc-pubsub-perl/inc/Module/Install/Metadata.pm Mon Aug 18 08:37:14 2008
@@ -6,7 +6,7 @@
use vars qw{$VERSION $ISCORE @ISA};
BEGIN {
- $VERSION = '0.67';
+ $VERSION = '0.68';
$ISCORE = 1;
@ISA = qw{Module::Install::Base};
}
Modified: trunk/libipc-pubsub-perl/inc/Module/Install/Win32.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libipc-pubsub-perl/inc/Module/Install/Win32.pm?rev=24411&op=diff
==============================================================================
--- trunk/libipc-pubsub-perl/inc/Module/Install/Win32.pm (original)
+++ trunk/libipc-pubsub-perl/inc/Module/Install/Win32.pm Mon Aug 18 08:37:14 2008
@@ -6,7 +6,7 @@
use vars qw{$VERSION $ISCORE @ISA};
BEGIN {
- $VERSION = '0.67';
+ $VERSION = '0.68';
$ISCORE = 1;
@ISA = qw{Module::Install::Base};
}
Modified: trunk/libipc-pubsub-perl/inc/Module/Install/WriteAll.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libipc-pubsub-perl/inc/Module/Install/WriteAll.pm?rev=24411&op=diff
==============================================================================
--- trunk/libipc-pubsub-perl/inc/Module/Install/WriteAll.pm (original)
+++ trunk/libipc-pubsub-perl/inc/Module/Install/WriteAll.pm Mon Aug 18 08:37:14 2008
@@ -6,7 +6,7 @@
use vars qw{$VERSION $ISCORE @ISA};
BEGIN {
- $VERSION = '0.67';
+ $VERSION = '0.68';
$ISCORE = 1;
@ISA = qw{Module::Install::Base};
}
Modified: trunk/libipc-pubsub-perl/lib/IPC/PubSub.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libipc-pubsub-perl/lib/IPC/PubSub.pm?rev=24411&op=diff
==============================================================================
--- trunk/libipc-pubsub-perl/lib/IPC/PubSub.pm (original)
+++ trunk/libipc-pubsub-perl/lib/IPC/PubSub.pm Mon Aug 18 08:37:14 2008
@@ -1,5 +1,5 @@
package IPC::PubSub;
-$IPC::PubSub::VERSION = '0.27';
+$IPC::PubSub::VERSION = '0.28';
use 5.006;
use strict;
Modified: trunk/libipc-pubsub-perl/lib/IPC/PubSub/Cache/DBM_Deep.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libipc-pubsub-perl/lib/IPC/PubSub/Cache/DBM_Deep.pm?rev=24411&op=diff
==============================================================================
--- trunk/libipc-pubsub-perl/lib/IPC/PubSub/Cache/DBM_Deep.pm (original)
+++ trunk/libipc-pubsub-perl/lib/IPC/PubSub/Cache/DBM_Deep.pm Mon Aug 18 08:37:14 2008
@@ -2,13 +2,18 @@
use strict;
use warnings;
use base 'IPC::PubSub::Cache';
+use Storable qw/ nfreeze thaw /;
use DBM::Deep;
use File::Temp qw/ tempfile /;
sub new {
my $class = shift;
my $file = shift;
- my $mem = DBM::Deep->new($file || $class->default_config);
+ my $mem = DBM::Deep->new(
+ file => ((defined $file and length $file) ? $file : $class->default_config),
+ locking => 1,
+ autoflush => 1,
+ );
bless(\$mem, $class);
}
@@ -19,12 +24,12 @@
sub fetch {
my $self = shift;
- map { $$self->get($_) } @_;
+ return map { thaw($$self->get($_)) } @_;
}
sub store {
my ($self, $key, $val, $time, $expiry) = @_;
- $$self->put($key, [$time, $val]);
+ $$self->put($key => nfreeze([$time, $val]));
}
sub publisher_indices {
More information about the Pkg-perl-cvs-commits
mailing list