1#!perl 2# 3# Test for RT Bug 29928 fix 4# https://rt.cpan.org/Public/Bug/Display.html?id=29928 5 6use strict; 7use warnings; 8use Test::More tests => 2; 9 10use_ok 'Text::Template::Preprocess' or exit 1; 11 12my $tin = q{The value of $foo is: {$foo}.}; 13 14sub tester { 15 1; # dummy preprocessor to cause the bug described. 16} 17 18my $tmpl1 = Text::Template::Preprocess->new(TYPE => 'STRING', SOURCE => $tin); 19 20$tmpl1->compile; 21 22my $t1 = $tmpl1->fill_in( 23 HASH => { foo => 'things' }, 24 PREPROCESSOR => \&tester); 25 26is $t1, 'The value of $foo is: things.'; 27