1 files changed, 17 insertions, 0 deletions
diff --git a/external/perl/Text-Template-1.56/t/inline-comment.t b/external/perl/Text-Template-1.56/t/inline-comment.t
new file mode 100755
index 0000000000..bf7a227a51
--- /dev/null
+++ b/external/perl/Text-Template-1.56/t/inline-comment.t
@@ -0,0 +1,17 @@
+#!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';