This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
RE: [PATCH] lib/Net/Ping/t/500_ping_icmp.t requires admin
authorJan Dubois <jand@activestate.com>
Mon, 2 Jul 2007 14:21:06 +0000 (07:21 -0700)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Wed, 4 Jul 2007 13:32:06 +0000 (13:32 +0000)
From: "Jan Dubois" <jand@activestate.com>
Message-ID: <007901c7bcee$e7b5d400$b7217c00$@com>

p4raw-id: //depot/perl@31529

lib/Net/Ping/t/500_ping_icmp.t

index a4612b2..db20ac9 100644 (file)
@@ -15,8 +15,8 @@ plan tests => 2;
 # Everything loaded fine
 ok 1;
 
-if (($> and $^O ne 'VMS' and $^O ne 'cygwin')
-    or ($^O eq 'MSWin32'
+if (($> and $^O ne 'VMS')
+    or (($^O eq 'MSWin32' or $^O eq 'cygwin')
         and !IsAdminUser())
     or ($^O eq 'VMS'
         and (`write sys\$output f\$privilege("SYSPRV")` =~ m/FALSE/))) {
@@ -29,7 +29,7 @@ if (($> and $^O ne 'VMS' and $^O ne 'cygwin')
 }
 
 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();