mirror of
https://codeberg.org/scip/Config-General.git
synced 2025-12-16 20:21:01 +01:00
fixed rt.cpan.org#50329, don't try to interpolate on undefined values.
git-svn-id: http://dev.catalyst.perl.org/repos/Config-General/trunk@71 be1acefe-a474-0410-9a34-9b3221f2030f
This commit is contained in:
@@ -66,6 +66,12 @@ sub _interpolate {
|
||||
#
|
||||
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
|
||||
# we remove all quotes and replace them with unique random literals,
|
||||
# which will be replaced after interpolation with the original quotes
|
||||
|
||||
Reference in New Issue
Block a user