From d004e91c5439c851e5768e1eb3435c2e91badbea Mon Sep 17 00:00:00 2001
From: Thomas von Dein <git@daemon.de>
Date: Mon, 19 Oct 2009 15:34:31 +0000
Subject: [PATCH] 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
---
 General/Interpolated.pm | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/General/Interpolated.pm b/General/Interpolated.pm
index 5284b01..67cd228 100644
--- a/General/Interpolated.pm
+++ b/General/Interpolated.pm
@@ -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