diff options
author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-22 21:15:32 +0000 |
---|---|---|
committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-22 21:15:32 +0000 |
commit | 24342b8387ac3da8c05c3a4fcf388a29ce690b32 (patch) | |
tree | 5d4fd366de19cc307923bf0b1de9701897ed918d /ext/IPC | |
parent | f8006fac4b79af7235a98c165d6a9d5dc0436015 (diff) | |
download | perl-24342b8387ac3da8c05c3a4fcf388a29ce690b32.tar.gz |
The packs must be done in native shorts, fix from Mark P. Lutz.
p4raw-id: //depot/perl@10839
Diffstat (limited to 'ext/IPC')
-rw-r--r-- | ext/IPC/SysV/Semaphore.pm | 6 |
1 files changed, 3 insertions, 3 deletions
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); } |