X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FNet%2FPing.pm;h=54540601d3b4e0be6bfa564b8ebaed9de0e2cbc8;hb=eb64745eccc492010733ac012342c6cacc81e103;hp=91077ddad1c5494ecaf32ac0d79eb5106194979f;hpb=a3b937379002b6cdebf8b709a243e9491dac49a1;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/lib/Net/Ping.pm b/lib/Net/Ping.pm
index 91077dd..5454060 100644
--- a/lib/Net/Ping.pm
+++ b/lib/Net/Ping.pm
@@ -4,7 +4,7 @@ package Net::Ping;
 #
 # Authors of the original pingecho():
 #           karrer@bernina.ethz.ch (Andreas Karrer)
-#           pmarquess@bfsec.bt.co.uk (Paul Marquess)
+#           Paul.Marquess@btinternet.com (Paul Marquess)
 #
 # Copyright (c) 1996 Russell Mosemann.  All rights reserved.  This
 # program is free software; you may redistribute it and/or modify it
@@ -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