Gentoo Archives: gentoo-commits

From:	"Torsten Veller (tove)" <tove@g.o>
To:	gentoo-commits@l.g.o
Subject:	[gentoo-commits] gentoo-x86 commit in dev-perl/IPC-Shareable/files: fix_perl_5.10_compat.patch
Date:	Tue, 28 Apr 2009 09:08:47
Message-Id:	`E1LyjIx-00055d-PJ@stork.gentoo.org`

1	tove 09/04/28 09:08:43
2
3	Added: fix_perl_5.10_compat.patch
4	Log:
5	Make it work with 5.10. Add to perl herd
6	(Portage version: 2.2_rc31/cvs/Linux i686)
7
8	Revision Changes Path
9	1.1 dev-perl/IPC-Shareable/files/fix_perl_5.10_compat.patch
10
11	file : http://sources.gentoo.org/viewcvs.py/gentoo-x86/dev-perl/IPC-Shareable/files/fix_perl_5.10_compat.patch?rev=1.1&view=markup
12	plain: http://sources.gentoo.org/viewcvs.py/gentoo-x86/dev-perl/IPC-Shareable/files/fix_perl_5.10_compat.patch?rev=1.1&content-type=text/plain
13
14	Index: fix_perl_5.10_compat.patch
15	===================================================================
16	http://rt.cpan.org/Public/Bug/Display.html?id=41401
17	http://bugs.debian.org/507657
18	# Getting $# of an already-dereferenced-arrayref is a no-go in Perl 5.10
19	Index: libipc-shareable-perl/lib/IPC/Shareable.pm
20	===================================================================
21	--- libipc-shareable-perl.orig/lib/IPC/Shareable.pm 2008-12-03 10:51:27.000000000 -0600
22	+++ libipc-shareable-perl/lib/IPC/Shareable.pm 2008-12-03 10:51:46.000000000 -0600
23	@@ -452,7 +452,7 @@
24	my $n = shift;
25
26	$self->{_data} = _thaw($self->{_shm}) unless $self->{_lock};
27	- $#{@{$self->{_data}}} = $n - 1;
28	+ $#{$self->{_data}} = $n - 1;
29	if ($self->{_lock} & LOCK_EX) {
30	$self->{_was_changed} = 1;
31	} else {