rpms/perl-IPC-Shareable/devel perl-IPC-Shareable-fixtest38.patch, NONE, 1.1 perl-IPC-Shareable-nostrictrefs.patch, 1.1, 1.2 perl-IPC-Shareable.spec, 1.5, 1.6

[Tom Callaway (spot)]

Author: spot

Update of /cvs/pkgs/rpms/perl-IPC-Shareable/devel
In directory cvs-int.fedora.redhat.com:/tmp/cvs-serv18249

Modified Files:
	perl-IPC-Shareable-nostrictrefs.patch perl-IPC-Shareable.spec 
Added Files:
	perl-IPC-Shareable-fixtest38.patch 
Log Message:

fix STORESIZE
fix test38 so it doesn't run forever


perl-IPC-Shareable-fixtest38.patch:

--- NEW FILE perl-IPC-Shareable-fixtest38.patch ---
diff -up IPC-Shareable-0.60/t/38ipchv.t.BAD IPC-Shareable-0.60/t/38ipchv.t
--- IPC-Shareable-0.60/t/38ipchv.t.BAD	2008-02-04 10:52:10.000000000 -0500
+++ IPC-Shareable-0.60/t/38ipchv.t	2008-02-04 10:52:25.000000000 -0500
@@ -70,6 +70,7 @@ if ($pid == 0) {
     });
     %hv = ();
     kill ALRM => $pid;
+    sleep 1; # Allow time for child to process the signal before next ALRM comes in
     
     for (qw(eenie meenie minie moe)) {
 	$ipch->shlock();

perl-IPC-Shareable-nostrictrefs.patch:

Index: perl-IPC-Shareable-nostrictrefs.patch
===================================================================
RCS file: /cvs/pkgs/rpms/perl-IPC-Shareable/devel/perl-IPC-Shareable-nostrictrefs.patch,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- perl-IPC-Shareable-nostrictrefs.patch	3 Feb 2008 16:17:19 -0000	1.1
+++ perl-IPC-Shareable-nostrictrefs.patch	4 Feb 2008 18:16:02 -0000	1.2
@@ -9,3 +9,15 @@
  use IPC::Semaphore;
  use IPC::Shareable::SharedMem;
  use IPC::SysV qw(
+diff -up IPC-Shareable-0.60/lib/IPC/Shareable.pm.BAD IPC-Shareable-0.60/lib/IPC/Shareable.pm
+--- IPC-Shareable-0.60/lib/IPC/Shareable.pm.BAD	2008-02-04 13:11:24.000000000 -0500
++++ IPC-Shareable-0.60/lib/IPC/Shareable.pm	2008-02-04 13:11:35.000000000 -0500
+@@ -453,7 +453,7 @@ sub STORESIZE {
+     my $n    = shift;
+ 
+     $self->{_data} = _thaw($self->{_shm}) unless $self->{_lock};
+-    $#{@{$self->{_data}}} = $n - 1;
++    $#{$self->{_data}} = $n - 1;
+     if ($self->{_lock} & LOCK_EX) {
+         $self->{_was_changed} = 1;
+     } else {


Index: perl-IPC-Shareable.spec
===================================================================
RCS file: /cvs/pkgs/rpms/perl-IPC-Shareable/devel/perl-IPC-Shareable.spec,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -r1.5 -r1.6
--- perl-IPC-Shareable.spec	3 Feb 2008 16:17:19 -0000	1.5
+++ perl-IPC-Shareable.spec	4 Feb 2008 18:16:02 -0000	1.6
@@ -1,6 +1,6 @@
 Name:           perl-IPC-Shareable
 Version:        0.60
-Release:        5%{?dist}
+Release:        6%{?dist}
 Summary:        Share Perl variables between processes
 
 Group:          Development/Libraries
@@ -9,6 +9,7 @@
 Source0:        http://www.cpan.org/authors/id/B/BS/BSUGARS/IPC-Shareable-%{version}.tar.gz
 BuildRoot:      %{_tmppath}/%{name}-%{version}-%{release}-root-%(%{__id_u} -n)
 Patch0:         perl-IPC-Shareable-nostrictrefs.patch
+Patch1:		perl-IPC-Shareable-fixtest38.patch
 
 BuildArch:      noarch
 BuildRequires:  perl(Storable)
@@ -25,6 +26,7 @@
 %prep
 %setup -q -n IPC-Shareable-%{version}
 %patch0 -p1
+%patch1 -p1
 find eg -type f | xargs chmod -c 644
 
 
@@ -57,6 +59,10 @@
 
 
 %changelog
+* Mon Feb  4 2008 Tom "spot" Callaway <tcallawa at redhat.com> - 0.60-6
+- fix test38 so it doesn't hang forever
+- fix IPC::Shareable STORESIZE
+
 * Sun Feb  3 2008 Tom "spot" Callaway <tcallawa at redhat.com> - 0.60-5
 - patch for new perl, don't use strict 'refs'