Permalink
Browse files

[rt.cpan.org 74189] Merge Debian patch to skip a regression test unle…

…ss root.
  • Loading branch information...
1 parent 0a82763 commit ef46396c4d15e9a3a3324445f6a7b7481f212f3c @gregoa gregoa committed with Mar 7, 2012
Showing with 9 additions and 1 deletion.
  1. +1 −1 lib/POE/Component/Client/Ping.pm
  2. +8 −0 t/zz_rt_72055.t
@@ -24,7 +24,7 @@ use vars qw(@ISA @EXPORT_OK %EXPORT_TAGS);
);
use vars qw($VERSION $PKTSIZE);
-$VERSION = '1.170';
+$VERSION = '1.171';
$PKTSIZE = $^O eq 'linux' ? 3_000 : 100;
use Carp qw(croak);
View
@@ -20,6 +20,14 @@
use strict;
use warnings;
+BEGIN {
+ $| = 1;
+ if ($> and ($^O ne 'VMS')) {
+ print "1..0 # skipped: ICMP ping requires root privilege\n";
+ exit 0;
+ }
+};
+
use Test::More tests => 2;
use POE qw( Component::Client::Ping );

0 comments on commit ef46396

Please sign in to comment.