2.39

- fixed rt.cpan.org#35122. This one was one of the most
	  intriguing bugs I've ever observed in my own code. The
	  internal temporary __stack hashref were copied from one
	  subhash to another to enable inheritance of variables.
	  However, the hashes were copied by reference, so once a
	  value changed later, that value were overwritten because
	  the __stack in question were just a reference. I introduced
	  a simple function _copy() which copies the contents of
	  the __stack by value, which solved the bug.
	  Conclusion: beware of perl hash refs!

	- fixed rt.cpan.org#36607, accept whitespaces in heredoc
	  names if split delimiter is gues (equalsign or whitespace)

	- fixed rt.cpan.org#34080 (typo)

	- fixed rt.cpan.org#35766. Variables inside single quoted
	  strings will no more interpolated (as the docu states).
	  Also added test case for this.

	- fixed bug rt.cpan.org#33766. Checking for defined not true
	  in ::Extended::AUTOLOAD().

	- added -UTF8 flag, which opens files in utf8 mode
	  (suggested by KAORU, rt.cpan.org#35583)
	  I decided not to add a test case for this, since perls
	  utf8 support is not stable with all versions.


git-svn-id: http://dev.catalyst.perl.org/repos/Config-General/trunk@65 be1acefe-a474-0410-9a34-9b3221f2030f

General/Interpolated.pm

@@ -66,6 +66,17 @@ sub _interpolate  {
   #
   my ($this, $config, $key, $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
+  # fixes bug rt#35766
+  my %quotes;
+  $value =~ s/(\'[^\']+?\')/
+    my $key = "QUOTE" . int(rand(1000)) . "QUOTE";
+    $quotes{ $key } = $1;
+    $key;
+  /gex;
+
   $value =~ s{$this->{regex}}{
     my $con = $1;
     my $var = $3;
@@ -94,6 +105,12 @@ sub _interpolate  {
     }
   }egx;
 
+  # re-insert unaltered quotes
+  # fixes bug rt#35766
+  foreach my $quote (keys %quotes) {
+    $value =~ s/$quote/$quotes{$quote}/;
+  }
+
   return $value;
 };
 
@@ -170,6 +187,7 @@ sub _clean_stack {
   # recursively empty the variable stack
   #
   my ($this, $config) = @_;
+  #return $config; # DEBUG
   foreach my $key (keys %{$config}) {
     if ($key eq "__stack") {
       delete $config->{__stack};