Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse code

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

…ss root.
  • Loading branch information...
commit ef46396c4d15e9a3a3324445f6a7b7481f212f3c 1 parent 0a82763
gregor herrmann authored March 06, 2012 rcaputo committed March 06, 2012
2  lib/POE/Component/Client/Ping.pm
@@ -24,7 +24,7 @@ use vars qw(@ISA @EXPORT_OK %EXPORT_TAGS);
24 24
 );
25 25
 
26 26
 use vars qw($VERSION $PKTSIZE);
27  
-$VERSION = '1.170';
  27
+$VERSION = '1.171';
28 28
 $PKTSIZE = $^O eq 'linux' ? 3_000 : 100;
29 29
 
30 30
 use Carp qw(croak);
8  t/zz_rt_72055.t
@@ -20,6 +20,14 @@
20 20
 use strict;
21 21
 use warnings;
22 22
 
  23
+BEGIN {
  24
+  $| = 1;
  25
+  if ($> and ($^O ne 'VMS')) {
  26
+    print "1..0 # skipped: ICMP ping requires root privilege\n";
  27
+    exit 0;
  28
+  }
  29
+};
  30
+
23 31
 use Test::More tests => 2;
24 32
 
25 33
 use POE qw( Component::Client::Ping );

0 notes on commit ef46396

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