diff options
| author | Mattia Barbon <mbarbon@dsi.unive.it> | 2002-03-10 23:10:15 +0100 |
|---|---|---|
| committer | Abhijit Menon-Sen <ams@wiw.org> | 2002-03-11 03:28:04 +0000 |
| commit | 0bd43963443f227c8bd1734af34fc6e6a7d2d54e (patch) | |
| tree | 701050df2fc495d35a783417494e92f699899f14 /lib/Net | |
| parent | 6686786d9838c86b02dc454606aff018ec114f7b (diff) | |
| download | perl-0bd43963443f227c8bd1734af34fc6e6a7d2d54e.tar.gz | |
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
Diffstat (limited to 'lib/Net')
| -rw-r--r-- | lib/Net/Ping/t/110_icmp_inst.t | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lib/Net/Ping/t/110_icmp_inst.t b/lib/Net/Ping/t/110_icmp_inst.t index bf27289163..41f8e155e5 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; |