[Catalyst-commits] r13476 - in trunk/Config-Any: lib/Config/Any t

[bricas at dev.catalyst.perl.org]

Author: bricas
Date: 2010-08-05 21:00:10 +0100 (Thu, 05 Aug 2010)
New Revision: 13476

Modified:
   trunk/Config-Any/lib/Config/Any/General.pm
   trunk/Config-Any/t/10-branches.t
Log:
remove useless "use Carp", squash warning in test suite.

Modified: trunk/Config-Any/lib/Config/Any/General.pm
===================================================================
--- trunk/Config-Any/lib/Config/Any/General.pm	2010-08-05 19:41:54 UTC (rev 13475)
+++ trunk/Config-Any/lib/Config/Any/General.pm	2010-08-05 20:00:10 UTC (rev 13476)
@@ -2,7 +2,6 @@
 
 use strict;
 use warnings;
-use Carp;
 
 use base 'Config::Any::Base';
 

Modified: trunk/Config-Any/t/10-branches.t
===================================================================
--- trunk/Config-Any/t/10-branches.t	2010-08-05 19:41:54 UTC (rev 13475)
+++ trunk/Config-Any/t/10-branches.t	2010-08-05 20:00:10 UTC (rev 13476)
@@ -40,8 +40,13 @@
 }
 
 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 } ),