diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1998-11-08 21:13:07 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-11-08 21:13:07 +0000 |
| commit | dc9e4912b3381e3548a35c5aba633cc37261d318 (patch) | |
| tree | 4d881006b05d299a40b2a6cfec8aced0dd737710 /ext/IPC | |
| parent | 91500cfd5c426b5ce4db817d5b64c763d5b8822b (diff) | |
| download | perl-dc9e4912b3381e3548a35c5aba633cc37261d318.tar.gz | |
integrate changes#2120,2168,2218 from maint-5.005;
add new vtbls; s/\bvtbl_/PL_vtbl_/; remove trailing comma in
enum; make regen_headers
p4raw-link: @2218 on //depot/maint-5.005/perl: eadd311f94dcb5fe096743b61371bd2d48466304
p4raw-link: @2168 on //depot/maint-5.005/perl: fb1d2f1891787fe7d6df85205b85f0528294ffa8
p4raw-link: @2120 on //depot/maint-5.005/perl: f9caadc6ad025d4bf993ab5b737b9a99347a59e3
p4raw-id: //depot/perl@2220
Diffstat (limited to 'ext/IPC')
| -rw-r--r-- | ext/IPC/SysV/Msg.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ext/IPC/SysV/Msg.pm b/ext/IPC/SysV/Msg.pm index 93d2ae16ee..a739ca2367 100644 --- a/ext/IPC/SysV/Msg.pm +++ b/ext/IPC/SysV/Msg.pm @@ -84,7 +84,7 @@ sub remove { } sub rcv { - @_ == 5 || croak '$msg->rcv( BUF, LEN, TYPE, FLAGS )'; + @_ <= 5 && @_ >= 3 or croak '$msg->rcv( BUF, LEN, TYPE, FLAGS )'; my $self = shift; my $buf = ""; msgrcv($$self,$buf,$_[1],$_[2] || 0, $_[3] || 0) or @@ -95,7 +95,7 @@ sub rcv { } sub snd { - @_ == 4 || croak '$msg->snd( TYPE, BUF, FLAGS )'; + @_ <= 4 && @_ >= 3 or croak '$msg->snd( TYPE, BUF, FLAGS )'; my $self = shift; msgsnd($$self,pack("L a*",$_[0],$_[1]), $_[2] || 0); } |