Skip to content
Browse files

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

  • Loading branch information...
1 parent 850b00f commit 65682a45ea5d0ecd93625389e4fe2372334bd3f7 @rcaputo committed Oct 14, 2009
Showing with 10 additions and 1 deletion.
  1. +1 −1 lib/POE/Component/Client/Ping.pm
  2. +9 −0 t/04_timeout_retry.t
View
2 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);
View
9 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;

0 comments on commit 65682a4

Please sign in to comment.
Something went wrong with that request. Please try again.