# Root access is required to actually perform icmp testing.
BEGIN {
- unless (eval "require Socket") {
- print "1..0 # Skip: no Socket\n";
- exit;
- }
+ unless (eval "require Socket") {
+ print "1..0 \# Skip: no Socket\n";
+ exit;
+ }
}
use Test;
# Everything loaded fine
ok 1;
-my $p = new Net::Ping "tcp";
-ok !!$p;
+if (($> and $^O ne 'VMS')
+ or ($^O eq 'VMS'
+ and (`write sys\$output f\$privilege("SYSPRV")` =~ m/FALSE/))) {
+ skip "icmp ping requires root privileges.", 1;
+} else {
+ my $p = new Net::Ping "icmp";
+ ok !!$p;
+}