From df2b4d94d5eaef3e9635d7a519fa297d017d42ea Mon Sep 17 00:00:00 2001 From: ivan Date: Wed, 16 Sep 2009 00:52:23 +0000 Subject: [PATCH] quiet warning: Subroutine Net::Ping::External::_ping_linux redefined --- FS/FS/Mason.pm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/FS/FS/Mason.pm b/FS/FS/Mason.pm index 1918d9d36..877864eee 100644 --- a/FS/FS/Mason.pm +++ b/FS/FS/Mason.pm @@ -80,7 +80,9 @@ Initializes the Mason environment, loads all Freeside and RT libraries, etc. use NetAddr::IP; use Net::Ping; use Net::Ping::External; - #if CPAN #7815 ever gets fixed# if ( $Net::Ping::External::VERSION <= 0.12 ) { + #if CPAN #7815 ever gets fixed# if ( $Net::Ping::External::VERSION <= 0.12 ) + { + no warnings 'redefine'; eval 'sub Net::Ping::External::_ping_linux { my %args = @_; my $command = "ping -s $args{size} -c $args{count} -w $args{timeout} $args{host}"; @@ -88,7 +90,7 @@ Initializes the Mason environment, loads all Freeside and RT libraries, etc. } '; die $@ if $@; - #} + } use String::Approx qw(amatch); use Chart::LinesPoints; use Chart::Mountain; -- 2.11.0