From: ivan <ivan>
Date: Wed, 16 Sep 2009 00:52:23 +0000 (+0000)
Subject: quiet warning: Subroutine Net::Ping::External::_ping_linux redefined
X-Git-Tag: root_of_svc_elec_features~858
X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;ds=sidebyside;h=df2b4d94d5eaef3e9635d7a519fa297d017d42ea;p=freeside.git

quiet warning: Subroutine Net::Ping::External::_ping_linux redefined
---

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;