X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=p5sagit%2FConfig-Any.git;a=blobdiff_plain;f=t%2F54-xml.t;h=e2badee400cf7174eecb5cccf083c89c843dd155;hp=41376aca7254e025ff4769e94330fb4f8c50bfdc;hb=dcfb1d1d1a544d27a82cb174168df23abc539acb;hpb=4198bf8c36c5f90c71845bd2505d953d3422037e diff --git a/t/54-xml.t b/t/54-xml.t index 41376ac..e2badee 100644 --- a/t/54-xml.t +++ b/t/54-xml.t @@ -19,13 +19,14 @@ else { # test invalid config SKIP: { - my $broken_libxml = eval { require XML::LibXML; XML::LibXML->VERSION lt '1.59'; }; + my $broken_libxml + = eval { require XML::LibXML; XML::LibXML->VERSION lt '1.59'; }; skip 'XML::LibXML < 1.58 has issues', 2 if $broken_libxml; - local $SIG{__WARN__} = sub {}; # squash warnings from XML::Simple + local $SIG{ __WARN__ } = sub { }; # squash warnings from XML::Simple my $file = 't/invalid/conf.xml'; my $config = eval { Config::Any::XML->load( $file ) }; ok( !$config, 'config load failed' ); - ok( $@, "error thrown ($@)" ); + ok( $@, "error thrown ($@)" ); }