X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=p5sagit%2FConfig-Any.git;a=blobdiff_plain;f=t%2F20-parse.t;h=bd834badfd21e6fd14591940e52407782cd28c8c;hp=47d38e7080613dce676008247d3deced8698431b;hb=82410e22b11e82191fa54ba974cdaac68a8c5454;hpb=92a04e78451078b33f75e7c44d247b024c27b4f7

diff --git a/t/20-parse.t b/t/20-parse.t
index 47d38e7..bd834ba 100644
--- a/t/20-parse.t
+++ b/t/20-parse.t
@@ -1,6 +1,7 @@
 package MockApp;
 use strict;
 use warnings;
+no warnings 'once';
 
 $|++;
 use Test::More tests => 54;
@@ -28,12 +29,7 @@ sub load_parser_for {
 
     my ( $ext ) = $f =~ m{ \. ( [^\.]+ ) \z }xms;
     my $mod = $ext_map{ $ext };
-    my $mod_load_result;
-    eval {
-        $mod_load_result = $mod->load( $f );
-        delete $INC{ $f } if $ext eq 'pl';
-    };
-    return $@ ? ( 1, $mod ) : ( 0, $mod );
+    return !$mod->is_supported ? ( 1, $mod ) : ( 0, $mod );
 }
 
 for my $f ( map { "t/conf/conf.$_" } keys %ext_map ) {