From 766d2cb615be7df9a8f420ec418ddfedb2b3fb1d Mon Sep 17 00:00:00 2001 From: Don Armstrong Date: Tue, 17 Apr 2012 16:10:16 -0700 Subject: [PATCH] handle leading & in hole_var --- Debbugs/Text.pm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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, }, -- 2.39.2