From: Don Armstrong <don@donarmstrong.com>
Date: Tue, 17 Apr 2012 23:10:16 +0000 (-0700)
Subject: handle leading & in hole_var
X-Git-Tag: release/2.6.0~393
X-Git-Url: https://git.donarmstrong.com/?p=debbugs.git;a=commitdiff_plain;h=766d2cb615be7df9a8f420ec418ddfedb2b3fb1d

handle leading & in hole_var
---

diff --git a/Debbugs/Text.pm b/Debbugs/Text.pm
index 5c5cff8..f5ede9d 100644
--- a/Debbugs/Text.pm
+++ b/Debbugs/Text.pm
@@ -216,7 +216,8 @@ sub fill_in_template{
      my $ret = $tt->fill_in(#SAFE => $safe,
 			    PACKAGE => 'DTT',
 			    HASH => {%{$param{variables}//{}},
-				     %{$param{hole_var}//{}},
+				     (map {my $t = $_; $t =~ s/^\&//; ($t => $param{hole_var}{$_})}
+				      keys %{$param{hole_var}//{}}),
 				     include => \&Debbugs::Text::include,
 				     config  => \%config,
 				    },