X-Git-Url: https://git.dogcows.com/gitweb?p=chaz%2Fp5-CGI-Ex;a=blobdiff_plain;f=lib%2FCGI%2FEx%2FConf.pm;h=ac551809d9fd76c339534dcbde0e0b22b6a9c785;hp=489c6b1fe7ed67b9931a8b2fc3bd34343beeab7b;hb=6c57b3331d84010b9e2031f8e3c8937c3117e8fc;hpb=83f0c6a9aaf9bc520cef93b958d51a5d85e8999c diff --git a/lib/CGI/Ex/Conf.pm b/lib/CGI/Ex/Conf.pm index 489c6b1..ac55180 100644 --- a/lib/CGI/Ex/Conf.pm +++ b/lib/CGI/Ex/Conf.pm @@ -7,7 +7,7 @@ CGI::Ex::Conf - Conf Reader/Writer for many different data format types =cut ###----------------------------------------------------------------### -# Copyright 2006 - Paul Seamons # +# Copyright 2007 - Paul Seamons # # Distributed under the Perl Artistic License without warranty # ###----------------------------------------------------------------### @@ -25,10 +25,11 @@ use vars qw($VERSION %CACHE $HTML_KEY @EXPORT_OK + $NO_WARN_ON_FAIL ); @EXPORT_OK = qw(conf_read conf_write in_cache); -$VERSION = '2.06'; +$VERSION = '2.11'; $DEFAULT_EXT = 'conf'; @@ -134,7 +135,7 @@ sub conf_read { ### don't die if the file is not found - do die otherwise if (! -e $file) { eval { die "Conf file $file not found" }; - warn "Conf file $file not found" if ! $args->{'no_warn_on_fail'}; + warn "Conf file $file not found" if ! $args->{'no_warn_on_fail'} && ! $NO_WARN_ON_FAIL; return; } @@ -803,7 +804,7 @@ conf_read and conf_write method calls. =head1 FUNCTIONS -=over4 +=over 4 =item conf_read