From: Mattia Barbon <mbarbon@dsi.unive.it>
Date: Sun, 10 Mar 2002 22:10:15 +0000 (+0100)
Subject: Raw socket require privileged user on Win2k
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0bd43963443f227c8bd1734af34fc6e6a7d2d54e;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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;