mirror of
https://github.com/openssl/openssl.git
synced 2024-12-21 06:09:35 +08:00
05c9c7b02d
Fixes #9287 Reviewed-by: Matt Caswell <matt@openssl.org> (Merged from https://github.com/openssl/openssl/pull/9828)
18 lines
322 B
Perl
Executable File
18 lines
322 B
Perl
Executable File
#!perl
|
|
#
|
|
# Test for comments within an inline code block
|
|
|
|
use strict;
|
|
use warnings;
|
|
use Test::More tests => 2;
|
|
|
|
use_ok 'Text::Template' or exit 1;
|
|
|
|
my $tmpl = Text::Template->new(
|
|
TYPE => 'STRING',
|
|
SOURCE => "Hello {\$name#comment}");
|
|
|
|
my $vars = { name => 'Bob' };
|
|
|
|
is $tmpl->fill_in(HASH => $vars), 'Hello Bob';
|