handle leading & in hole_var

[debbugs.git] / Debbugs / Text.pm

diff --git a/Debbugs/Text.pm b/Debbugs/Text.pm
index 5c5cff8b9bc6a82a4179b8276a68d05f9ce57a1a..f5ede9d699f9791b086a49eb7f06c69445d52b70 100644 (file)
--- 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,
                                    },