summaryrefslogtreecommitdiff
path: root/lib/Net
diff options
context:
space:
mode:
authorCharles Bailey <bailey@newman.upenn.edu>1998-03-26 10:11:50 -0500
committerMalcolm Beattie <mbeattie@sable.ox.ac.uk>1998-04-02 16:03:37 +0000
commit17f28c40fa08b585b95d4a2531b1cd975d11e986 (patch)
treea3848d6befdc55f7cc1a326e0b4b19b31ad09869 /lib/Net
parentec2ab091f034a27dfbd7d815fad4e3e670b743e9 (diff)
downloadperl-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.pm2
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