Raw socket require privileged user on Win2k

   From: "Mattia Barbon" <mbarbon@dsi.unive.it>
   Message-Id: <3C8BD9C7.610.7398DD@localhost>

p4raw-id: //depot/perl@15158

diff --git a/lib/Net/Ping/t/110_icmp_inst.t b/lib/Net/Ping/t/110_icmp_inst.t
index bf27289..41f8e15 100644 (file)
--- a/lib/Net/Ping/t/110_icmp_inst.t
+++ b/lib/Net/Ping/t/110_icmp_inst.t
@@ -16,6 +16,8 @@ plan tests => 2;
 ok 1;
 
 if (($> and $^O ne 'VMS')
+    or ($^O eq 'MSWin32'
+        and Win32::IsWinNT())
     or ($^O eq 'VMS'
         and (`write sys\$output f\$privilege("SYSPRV")` =~ m/FALSE/))) {
   skip "icmp ping requires root privileges.", 1;