- fixed rt.cpan.org#63487 documentation error.

- fixed rt.cpan.org#61302, now croak if the config file
          parameter is a directory and directory include is not
          turned on.

        - fixed rt.cpan.org#60429 META.yml typo

        - added new option -AllowSingleQuoteInterpolation, which
          turns on interpolation for variables inside single quotes.

        - added test case for the new option



git-svn-id: http://dev.catalyst.perl.org/repos/Config-General/trunk@91 be1acefe-a474-0410-9a34-9b3221f2030f
This commit is contained in:
Thomas von Dein
2010-12-01 10:42:39 +00:00
parent 643107150c
commit 90f215d98c
6 changed files with 48 additions and 14 deletions

View File

@@ -8,7 +8,7 @@
#
package Config::General::Interpolated;
$Config::General::Interpolated::VERSION = "2.13";
$Config::General::Interpolated::VERSION = "2.14";
use strict;
use Carp;
@@ -72,11 +72,14 @@ sub _interpolate {
# which will be replaced after interpolation with the original quotes
# fixes bug rt#35766
my %quotes;
$value =~ s/(\'[^\']+?\')/
my $key = "QUOTE" . ($quote_counter++) . "QUOTE";
$quotes{ $key } = $1;
$key;
/gex;
if(! $this->{AllowSingleQuoteInterpolation} ) {
$value =~ s/(\'[^\']+?\')/
my $key = "QUOTE" . ($quote_counter++) . "QUOTE";
$quotes{ $key } = $1;
$key;
/gex;
}
$value =~ s{$this->{regex}}{
my $con = $1;
@@ -347,7 +350,7 @@ See L<http://www.perl.com/perl/misc/Artistic.html>
=head1 VERSION
2.13
2.14
=cut