From: Brian Cassidy Date: Thu, 5 Aug 2010 20:00:10 +0000 (+0000) Subject: remove useless "use Carp", squash warning in test suite. X-Git-Tag: v0.20~1 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=p5sagit%2FConfig-Any.git;a=commitdiff_plain;h=26e3cdf4bbd7a8956984b64fe4f2ea9213a00e58 remove useless "use Carp", squash warning in test suite. --- diff --git a/lib/Config/Any/General.pm b/lib/Config/Any/General.pm index 609d914..469ec81 100644 --- a/lib/Config/Any/General.pm +++ b/lib/Config/Any/General.pm @@ -2,7 +2,6 @@ package Config::Any::General; use strict; use warnings; -use Carp; use base 'Config::Any::Base'; diff --git a/t/10-branches.t b/t/10-branches.t index f82303b..d00377b 100644 --- a/t/10-branches.t +++ b/t/10-branches.t @@ -40,8 +40,13 @@ use_ok( 'Config::Any' ); } my @files = glob( "t/supported/conf.*" ); -ok( Config::Any->load_files( { files => \@files, use_ext => 0 } ), - "use_ext 0 works" ); +{ + require Config::Any::General; + local $SIG{ __WARN__ } = sub { } + if Config::Any::General->is_supported; + ok( Config::Any->load_files( { files => \@files, use_ext => 0 } ), + "use_ext 0 works" ); +} my $filter = sub { return }; ok( Config::Any->load_files( { files => \@files, use_ext => 1 } ),