This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Net-Ping: creating an icmp socket requires admin access on recent cygwin
[perl5.git] / dist / Net-Ping / t / 110_icmp_inst.t
index 7840657..b36d32f 100644 (file)
@@ -16,7 +16,7 @@ BEGIN {use_ok('Net::Ping')};
 SKIP: {
   skip "icmp ping requires root privileges.", 1
     if ($> and $^O ne 'VMS' and $^O ne 'cygwin')
-      or ($^O eq 'MSWin32'
+      or (($^O eq 'MSWin32' or $^O eq 'cygwin')
          and !IsAdminUser())
        or ($^O eq 'VMS'
            and (`write sys\$output f\$privilege("SYSPRV")` =~ m/FALSE/));
@@ -25,7 +25,7 @@ SKIP: {
 }
 
 sub IsAdminUser {
-  return unless $^O eq 'MSWin32';
+  return unless $^O eq 'MSWin32' or $^O eq 'cygwin';
   return unless eval { require Win32 };
   return unless defined &Win32::IsAdminUser;
   return Win32::IsAdminUser();