From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Fri, 22 Jun 2001 21:15:32 +0000 (+0000)
Subject: The packs must be done in native shorts, fix from Mark P. Lutz.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=24342b8387ac3da8c05c3a4fcf388a29ce690b32;p=p5sagit%2Fp5-mst-13.2.git

The packs must be done in native shorts, fix from Mark P. Lutz.

p4raw-id: //depot/perl@10839
---

diff --git a/ext/IPC/SysV/Semaphore.pm b/ext/IPC/SysV/Semaphore.pm
index 1dac5dc..641ab4b 100644
--- a/ext/IPC/SysV/Semaphore.pm
+++ b/ext/IPC/SysV/Semaphore.pm
@@ -88,7 +88,7 @@ sub op {
     @_ >= 4 || croak '$sem->op( OPLIST )';
     my $self = shift;
     croak 'Bad arg count' if @_ % 3;
-    my $data = pack("s*",@_);
+    my $data = pack("s!*",@_);
     semop($$self,$data);
 }
 
@@ -126,12 +126,12 @@ sub getall {
     my $data = "";
     semctl($$self,0,GETALL,$data)
 	or return ();
-    (unpack("s*",$data));
+    (unpack("s!*",$data));
 }
 
 sub setall {
     my $self = shift;
-    my $data = pack("s*",@_);
+    my $data = pack("s!*",@_);
     semctl($$self,0,SETALL,$data);
 }