diff options
Diffstat (limited to 'lib/Net/Ping.pm')
-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 |