X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalystX%2FHelpText%2FFinder%2FTemplateToolkit.pm;fp=lib%2FCatalystX%2FHelpText%2FFinder%2FTemplateToolkit.pm;h=7c5d4b656b2f66f5351256b2e91de94ab043b2e4;hb=8137c236d4d7a7cf1fb9e0d11ef0b9e1dde1b9fa;hp=07fcc8b88db648e1e3eff44537418f1bf3c6ddee;hpb=22c77d41d24b3bf39a57e6dbaef3cb209310010a;p=catagits%2FCatalystX-HelpText.git diff --git a/lib/CatalystX/HelpText/Finder/TemplateToolkit.pm b/lib/CatalystX/HelpText/Finder/TemplateToolkit.pm index 07fcc8b..7c5d4b6 100644 --- a/lib/CatalystX/HelpText/Finder/TemplateToolkit.pm +++ b/lib/CatalystX/HelpText/Finder/TemplateToolkit.pm @@ -19,7 +19,7 @@ sub find_helptext_keys_in_fn { ABSOLUTE => 1, }); my $out; - $t->process($fn, { help_text => sub { push @keys, shift } }, \$out); + $t->process($fn, { help_text => sub { my $key = shift; push @keys, $key if ($key) } }, \$out); return [ uniq @keys ]; }