diff options
author | Charles Bailey <bailey@newman.upenn.edu> | 1998-03-26 10:11:50 -0500 |
---|---|---|
committer | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1998-04-02 16:03:37 +0000 |
commit | 17f28c40fa08b585b95d4a2531b1cd975d11e986 (patch) | |
tree | a3848d6befdc55f7cc1a326e0b4b19b31ad09869 /lib/Net | |
parent | ec2ab091f034a27dfbd7d815fad4e3e670b743e9 (diff) | |
download | perl-17f28c40fa08b585b95d4a2531b1cd975d11e986.tar.gz |
Next wave of _63 VMS patches
p4raw-id: //depot/perl@854
Diffstat (limited to 'lib/Net')
-rw-r--r-- | lib/Net/Ping.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Net/Ping.pm b/lib/Net/Ping.pm index 91077ddad1..495b82f95b 100644 --- a/lib/Net/Ping.pm +++ b/lib/Net/Ping.pm @@ -106,7 +106,7 @@ sub new } elsif ($self->{"proto"} eq "icmp") { - croak("icmp ping requires root privilege") if $>; + croak("icmp ping requires root privilege") if ($> and $^O ne 'VMS'); $self->{"proto_num"} = (getprotobyname('icmp'))[2] || croak("Can't get icmp protocol by name"); $self->{"pid"} = $$ & 0xffff; # Save lower 16 bits of pid |