A test was failing rather than skipping due to insufficient privileges.

rcaputo · Oct 14, 2009 · 65682a4 · 65682a4
1 parent 850b00f
commit 65682a4
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 1 deletion.
diff --git a/lib/POE/Component/Client/Ping.pm b/lib/POE/Component/Client/Ping.pm
@@ -24,7 +24,7 @@ use vars qw(@ISA @EXPORT_OK %EXPORT_TAGS);
 );
 
 use vars qw($VERSION $PKTSIZE);
-$VERSION = '1.161';
+$VERSION = '1.162';
 $PKTSIZE = $^O eq 'linux' ? 3_000 : 100;
 
 use Carp qw(croak);

diff --git a/t/04_timeout_retry.t b/t/04_timeout_retry.t
@@ -6,6 +6,15 @@
 
 use warnings;
 use strict;
+
+BEGIN {
+  $| = 1;
+  if ($> and ($^O ne 'VMS')) {
+    print "1..0 # skipped: ICMP ping requires root privilege\n";
+    exit 0;
+  }
+};
+
 use POE qw(Component::Client::Ping);
 
 use Test::More tests => 2;