From 24342b8387ac3da8c05c3a4fcf388a29ce690b32 Mon Sep 17 00:00:00 2001 From: Jarkko Hietaniemi Date: Fri, 22 Jun 2001 21:15:32 +0000 Subject: The packs must be done in native shorts, fix from Mark P. Lutz. p4raw-id: //depot/perl@10839 --- ext/IPC/SysV/Semaphore.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'ext/IPC') diff --git a/ext/IPC/SysV/Semaphore.pm b/ext/IPC/SysV/Semaphore.pm index 1dac5dcdae..641ab4bdae 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); } -- cgit v1.2.1