debian/0000755000000000000000000000000012231170332007160 5ustar debian/watch0000644000000000000000000000013312010301263010200 0ustar version=3 http://search.cpan.org/dist/IPC-ShareLite/ \ .*/IPC-ShareLite-v?(\d.*)\.tar\.gz debian/rules0000755000000000000000000000003612010301263010231 0ustar #!/usr/bin/make -f %: dh $@ debian/copyright0000644000000000000000000000403412010301263011106 0ustar Format: http://www.debian.org/doc/packaging-manuals/copyright-format/1.0/ Source: http://search.cpan.org/dist/IPC-ShareLite/. Upstream-Name: IPC-ShareLite Upstream-Contact: Maurice Aubrey Files: * Copyright: © 1998-2002 Maurice Aubrey © 2008-2009 Andy Armstrong Copyright 1998-2002, Maurice Aubrey . All rights reserved. This release by Andy Armstrong . . Data point: the "This release by..." statement appeared in 0.10, released in 2008, and is there at least until 0.17, released in 2009. License: Artistic or GPL-1+ Files: inc/Devel/CheckLib.pm Copyright: © 2007 David Cantrell. © 2007 David Golden. License: Artistic or GPL-1+ Files: inc/IO/CaptureOutput.pm Copyright: © 2004, 2005 Simon Flack. © 2007 David Golden. Portions copyright 2004, 2005 Simon Flack. Portions copyright 2007 David Golden. All rights reserved. License: Artistic or GPL-1+ Files: debian/* Copyright: © 2008 Debian Perl Group © 2004 Jay Bonci © 2000-2002 Christopher C. Chimelis © 2009 Krzysztof Krzyżaniak (eloy) License: other It is assumed that the previous maintainers did choose a license compatible with the software. License: Artistic This program is free software; you can redistribute it and/or modify it under the terms of the Artistic License, which comes with Perl. . On Debian systems, the complete text of the Artistic License can be found in `/usr/share/common-licenses/Artistic'. License: GPL-1+ This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 1, or (at your option) any later version. . On Debian systems, the complete text of version 1 of the GNU General Public License can be found in `/usr/share/common-licenses/GPL-1'. debian/source/0000755000000000000000000000000012010301263010452 5ustar debian/source/format0000644000000000000000000000001412010301263011660 0ustar 3.0 (quilt) debian/patches/0000755000000000000000000000000012010301263010601 5ustar debian/patches/fix-checklib-fail.patch0000644000000000000000000000066012010301263015065 0ustar Description: Trigger build failure when a compiler is not found Origin: vendor Forwarded: not-needed Author: Alessandro Ghedini Reviewed-by: Alessandro Ghedini Last-Update: 2012-08-07 --- a/Makefile.PL +++ b/Makefile.PL @@ -18,7 +18,7 @@ } # Check that we have a C compiler -check_lib_or_exit(); +assert_lib(); my %mm_args = ( ( MM->can( 'signature_target' ) ? ( SIGN => 1 ) : () ), debian/patches/Disable-t-sharelite.t-Closes-625828.patch0000644000000000000000000001072212010301263017652 0ustar From: intrigeri Date: Fri, 29 Jun 2012 17:25:02 +0200 Subject: Disable t/sharelite.t (Closes: #625828). According to Ben Hutchings, "Mapping the same shared memory twice in one process is stupid, anyway." (Message #99 on bug #679449). --- t/sharelite.t | 88 ------------------------------------------------ t/sharelite.t.disabled | 88 ++++++++++++++++++++++++++++++++++++++++++++++++ 2 files changed, 88 insertions(+), 88 deletions(-) delete mode 100644 t/sharelite.t create mode 100644 t/sharelite.t.disabled diff --git a/t/sharelite.t b/t/sharelite.t deleted file mode 100644 index b2d02b5..0000000 --- a/t/sharelite.t +++ /dev/null @@ -1,88 +0,0 @@ -use strict; -use warnings; -use Test::More tests => 14; -use File::Spec; - -my $log_file = $ENV{IPC_SHARELITE_LOG} - = File::Spec->catfile( 't', "sl-$$.log" ); - -use_ok 'IPC::ShareLite', qw( LOCK_EX LOCK_SH LOCK_UN LOCK_NB ); - -######################### End of black magic. - -# If a semaphore or shared memory segment already uses this -# key, all tests will fail -my $KEY = 192; - -# Test object construction -ok my $share = IPC::ShareLite->new( - -key => $KEY, - -create => 'yes', - -destroy => 'yes', - -size => 100 - ), - 'new'; - -isa_ok $share, 'IPC::ShareLite'; - -is $share->version, 1, 'version'; - -# Store value -ok $share->store( 'maurice' ), 'store'; - -is $share->version, 2, 'version inc'; - -# Retrieve value -is $share->fetch, 'maurice', 'fetch'; - -# Fragmented store -ok $share->store( "X" x 200 ), 'frag store'; - -is $share->version, 3, 'version inc'; - -# Check number of segments -is $share->num_segments, 3, 'num_segments'; - -# Fragmented fetch -is $share->fetch, ( 'X' x 200 ), 'frag fetch'; - -$share->store( 0 ); - -is $share->version, 4, 'version inc'; - -my $pid = fork; -defined $pid or die $!; -if ( $pid == 0 ) { - $share->destroy( 0 ); - for ( 1 .. 1000 ) { - $share->lock( LOCK_EX() ) or die $!; - my $val = $share->fetch; - $share->store( ++$val ) or die $!; - $share->unlock or die $!; - } - exit; -} -else { - for ( 1 .. 1000 ) { - $share->lock( LOCK_EX() ) or die $!; - my $val = $share->fetch; - $share->store( ++$val ) or die $!; - $share->unlock or die $!; - } - wait; -} - -is $share->fetch, 2000, 'lock'; -is $share->version, 2004, 'version inc'; - -if ( -f $log_file ) { - if ( -s $log_file ) { - open my $lh, '<', $log_file or die "Can't read $log_file ($!)\n"; - while ( <$lh> ) { - chomp; - diag $_; - } - } - unlink $log_file; -} - diff --git a/t/sharelite.t.disabled b/t/sharelite.t.disabled new file mode 100644 index 0000000..b2d02b5 --- /dev/null +++ b/t/sharelite.t.disabled @@ -0,0 +1,88 @@ +use strict; +use warnings; +use Test::More tests => 14; +use File::Spec; + +my $log_file = $ENV{IPC_SHARELITE_LOG} + = File::Spec->catfile( 't', "sl-$$.log" ); + +use_ok 'IPC::ShareLite', qw( LOCK_EX LOCK_SH LOCK_UN LOCK_NB ); + +######################### End of black magic. + +# If a semaphore or shared memory segment already uses this +# key, all tests will fail +my $KEY = 192; + +# Test object construction +ok my $share = IPC::ShareLite->new( + -key => $KEY, + -create => 'yes', + -destroy => 'yes', + -size => 100 + ), + 'new'; + +isa_ok $share, 'IPC::ShareLite'; + +is $share->version, 1, 'version'; + +# Store value +ok $share->store( 'maurice' ), 'store'; + +is $share->version, 2, 'version inc'; + +# Retrieve value +is $share->fetch, 'maurice', 'fetch'; + +# Fragmented store +ok $share->store( "X" x 200 ), 'frag store'; + +is $share->version, 3, 'version inc'; + +# Check number of segments +is $share->num_segments, 3, 'num_segments'; + +# Fragmented fetch +is $share->fetch, ( 'X' x 200 ), 'frag fetch'; + +$share->store( 0 ); + +is $share->version, 4, 'version inc'; + +my $pid = fork; +defined $pid or die $!; +if ( $pid == 0 ) { + $share->destroy( 0 ); + for ( 1 .. 1000 ) { + $share->lock( LOCK_EX() ) or die $!; + my $val = $share->fetch; + $share->store( ++$val ) or die $!; + $share->unlock or die $!; + } + exit; +} +else { + for ( 1 .. 1000 ) { + $share->lock( LOCK_EX() ) or die $!; + my $val = $share->fetch; + $share->store( ++$val ) or die $!; + $share->unlock or die $!; + } + wait; +} + +is $share->fetch, 2000, 'lock'; +is $share->version, 2004, 'version inc'; + +if ( -f $log_file ) { + if ( -s $log_file ) { + open my $lh, '<', $log_file or die "Can't read $log_file ($!)\n"; + while ( <$lh> ) { + chomp; + diag $_; + } + } + unlink $log_file; +} + debian/patches/series0000644000000000000000000000010212010301263012007 0ustar Disable-t-sharelite.t-Closes-625828.patch fix-checklib-fail.patch debian/compat0000644000000000000000000000000212010301263010350 0ustar 9 debian/control0000644000000000000000000000174412010301263010563 0ustar Source: libipc-sharelite-perl Maintainer: Debian Perl Group Uploaders: Jay Bonci , Martín Ferrari , Krzysztof Krzyżaniak (eloy) Section: perl Priority: optional Standards-Version: 3.9.3 Homepage: http://search.cpan.org/dist/IPC-ShareLite/ Vcs-Git: git://git.debian.org/pkg-perl/packages/libipc-sharelite-perl.git Vcs-Browser: http://anonscm.debian.org/gitweb/?p=pkg-perl/packages/libipc-sharelite-perl.git Build-Depends: perl, debhelper (>= 9), libtest-pod-perl Package: libipc-sharelite-perl Architecture: any Depends: ${misc:Depends}, ${perl:Depends}, ${shlibs:Depends} Description: Perl module that provides a simple interface to shared memory IPC::ShareLite provides a simple interface to shared memory, allowing data to be efficiently communicated between processes. Your operating system must support SysV IPC (shared memory and semaphores) in order to use this module. debian/changelog0000644000000000000000000001166512231170332011043 0ustar libipc-sharelite-perl (0.17-3build1) trusty; urgency=low * Rebuild for Perl 5.18. -- Colin Watson Mon, 21 Oct 2013 10:16:10 +0100 libipc-sharelite-perl (0.17-3) unstable; urgency=low * Team upload * Add fix-checklib-fail.patch -- Alessandro Ghedini Tue, 07 Aug 2012 23:00:05 +0200 libipc-sharelite-perl (0.17-2) unstable; urgency=low * Team upload. [ Ansgar Burchardt ] * debian/control: Convert Vcs-* fields to Git. [ intrigeri ] * Delete Old_changes_in_diffgz.patch, that has never been enabled after Sarge. * Convert debian/copyright to copyright format 1.0. * Don't version dependency on perl, that is satisfied at least since Lenny. * New patch: Disable-t-sharelite.t-Closes-625828.patch (Closes: #625828) * Bump compatibility level to dh 9. * Migrate to tiny dh9 debian/rules. * Bumped Standards-Version to 3.9.3, no change required. -- intrigeri Fri, 29 Jun 2012 17:27:29 +0200 libipc-sharelite-perl (0.17-1) unstable; urgency=low [ Krzysztof Krzyżaniak (eloy) ] * New upstream release * debian/control: Added me to Uploaders, Standards-Version updated to 3.8.1 (no changes), debhelper dependency updated to >= 7 * debian/rules: use debhelper7 simple example * Old_changes_in_diffgz.patch still disabled [ Martín Ferrari ] * Updating my email address [ gregor herrmann ] * debian/control: Changed: Switched Vcs-Browser field to ViewSVN (source stanza). * debian/control: Added: ${misc:Depends} to Depends: field. -- Krzysztof Krzyżaniak (eloy) Thu, 12 Mar 2009 10:36:48 +0100 libipc-sharelite-perl (0.13-1) unstable; urgency=low * New upstream release (minor fixes that we don't care about). -- Martín Ferrari Sat, 15 Mar 2008 02:00:16 -0200 libipc-sharelite-perl (0.12-1) unstable; urgency=low [ gregor herrmann ] * debian/control: Added: Vcs-Svn field (source stanza); Vcs-Browser field (source stanza); Homepage field (source stanza). * Set Maintainer to Debian Perl Group. * Use dist-based URL in debian/watch. * debian/rules: delete /usr/share/perl5 only if it exists. [ Martín Ferrari ] * Moving source changes to a proper patch file (disabled, kept for documentation). * New upstream version. * Bumbed debhelper version to 5. * debian/control: added myself to Uploaders, bumped Standards-Version (no changes), added libtest-pod-perl to B-D to enable POD tests. * debian/copyright: updated CP info, new format. * debian/watch: make it accept v-style versions. * debian/rules: remade from templates. -- Martín Ferrari Mon, 03 Mar 2008 20:57:39 -0200 libipc-sharelite-perl (0.09-3) unstable; urgency=low * Adds debian/watch so uscan actually works -- Jay Bonci Sun, 12 Sep 2004 04:02:45 -0400 libipc-sharelite-perl (0.09-2) unstable; urgency=low * Fix to typemap as supplied by Colin Watson (Closes: #249886) -- Jay Bonci Wed, 14 Jul 2004 16:23:28 -0400 libipc-sharelite-perl (0.09-1) unstable; urgency=low * New upstream version (Closes: #215105) * New maintainer (Closes: #235636) * Section change from interpreters to perl * Standards version bump from 3.5.6.0 to 3.6.1.0 (no other changes) * Changed dependancy on debhelper to be version >= 4.0 * Added debian/compat file per debhelper best practices * Moved over to my standard rules template * Specifically clarified license -- Jay Bonci Thu, 4 Mar 2004 00:06:19 -0500 libipc-sharelite-perl (0.08-5) unstable; urgency=low * Fix copyright notice problem (closes: Bug#157601) * Built for perl 5.8. -- Christopher C. Chimelis Wed, 27 Aug 2002 02:58:02 -0400 libipc-sharelite-perl (0.08-4) unstable; urgency=low * Updated build-depends. * Updated standards and perl policy versions. -- Christopher C. Chimelis Wed, 13 Feb 2002 17:42:09 -0500 libipc-sharelite-perl (0.08-3) unstable; urgency=low * Updated to current perl policy. * Fixed build-depends. * Changed maintainer email address. * Added md5sum generation finally. * Closes old dependency bug (closes: Bug#80680) -- Christopher C. Chimelis Sat, 4 Mar 2001 23:46:55 -0500 libipc-sharelite-perl (0.08-2) unstable; urgency=low * Forgot build-depends... (closes: Bug#72960) -- Christopher C. Chimelis Mon, 2 Oct 2000 10:46:02 -0400 libipc-sharelite-perl (0.08-1) unstable; urgency=low * New upstream release. -- Christopher C. Chimelis Sat, 30 Sep 2000 04:09:44 -0400 libipc-sharelite-perl (0.07a-1) unstable; urgency=low * New upstream release. -- Christopher C. Chimelis Sat, 8 Jul 2000 09:18:22 -0400 libipc-sharelite-perl (0.05-1) unstable; urgency=low * First release. -- Christopher C. Chimelis Thu, 6 Jan 2000 20:12:55 -0500