@@ -, +, @@ # add variables set via param to $vars for processing for my $k ( keys %{ $self->{VARS} } ) { $vars->{$k} = $self->{VARS}->{$k}; } $vars = { %$vars, %{ $self->{VARS} } }; Perl idiosyncratic way of merging hash, clearer, if not quicker (not verified) --- C4/Templates.pm | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) --- a/C4/Templates.pm +++ a/C4/Templates.pm @@ -112,9 +112,7 @@ sub output { C4::Context->preference('opaclayoutstylesheet'); # add variables set via param to $vars for processing - for my $k ( keys %{ $self->{VARS} } ) { - $vars->{$k} = $self->{VARS}->{$k}; - } + $vars = { %$vars, %{ $self->{VARS} } }; my $data; binmode( STDOUT, ":utf8" ); --