X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=p5sagit%2FConfig-Any.git;a=blobdiff_plain;f=lib%2FConfig%2FAny%2FYAML.pm;h=a12c74f4d97fbd18449cd8f9ac7a42c379263e9f;hp=8efee7754572e9ddab9c17169178b763b78ea12f;hb=e7be073ac39914776ae469d6d1b51b666f6210d5;hpb=e9573b61762479262c7f6d6ea5345024a9f2eb30 diff --git a/lib/Config/Any/YAML.pm b/lib/Config/Any/YAML.pm index 8efee77..a12c74f 100644 --- a/lib/Config/Any/YAML.pm +++ b/lib/Config/Any/YAML.pm @@ -41,6 +41,8 @@ Attempts to load C<$file> as a YAML file. =cut +our $NO_YAML_XS_WARNING; + sub load { my $class = shift; my $file = shift; @@ -52,7 +54,8 @@ sub load { Carp::carp 'Use of YAML::Syck or YAML to parse config files is DEPRECATED. ' - . 'Please install YAML::XS for proper YAML support'; + . 'Please install YAML::XS for proper YAML support' + unless $NO_YAML_XS_WARNING; eval { require YAML::Syck; YAML::Syck->VERSION( '0.70' ) }; unless ( $@ ) {