scip/Config-General
1
0
Fork 0
mirror of https://codeberg.org/scip/Config-General.git synced 2025-12-16 20:21:01 +01:00
Code Issues Packages Projects Releases Wiki Activity

fixed rt.cpan.org#50329, don't try to interpolate on undefined values.

Browse Source 
git-svn-id: http://dev.catalyst.perl.org/repos/Config-General/trunk@71 be1acefe-a474-0410-9a34-9b3221f2030f
This commit is contained in:
Thomas von Dein
2009-10-19 15:34:31 +00:00
parent e60803efda
commit d004e91c54
1 changed files with 6 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
General/Interpolated.pm
View File

@@ -66,6 +66,12 @@ sub _interpolate {
# #
my ($this, $config, $key, $value) = @_; my ($this, $config, $key, $value) = @_;
if (! defined($value)) {
# bugfix rt.cpan.org#50329
# nothing to do here
return $value;
}
# some dirty trick to circumvent single quoted vars to be interpolated # some dirty trick to circumvent single quoted vars to be interpolated
# we remove all quotes and replace them with unique random literals, # we remove all quotes and replace them with unique random literals,
# which will be replaced after interpolation with the original quotes # which will be replaced after interpolation with the original quotes