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=65ce4ec9e6c1a242f30cdbf082f3231c7151485b;hb=e7be073ac39914776ae469d6d1b51b666f6210d5;hpb=f07b7a174347e4d35f8b80f3f68024aa974e1343 diff --git a/lib/Config/Any/YAML.pm b/lib/Config/Any/YAML.pm index 65ce4ec..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 ( $@ ) { @@ -81,7 +84,7 @@ Brian Cassidy Ebricas@cpan.orgE =head1 COPYRIGHT AND LICENSE -Copyright 2006-2010 by Brian Cassidy +Copyright 2006-2011 by Brian Cassidy This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.