X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2Findirect.git;a=blobdiff_plain;f=t%2Ftestcases%2Fbabycart_in_heredoc.pl;fp=t%2Ftestcases%2Fbabycart_in_heredoc.pl;h=4db3c2f8fcdcc665af2ed160b7eee6fdd9f26b8d;hp=0000000000000000000000000000000000000000;hb=b88a054e2ca91c186a420e015b3a383b406ff2d0;hpb=bde376117bfa1b3cc6b40bfe28e19ef120ba3ae0

diff --git a/t/testcases/babycart_in_heredoc.pl b/t/testcases/babycart_in_heredoc.pl
new file mode 100644
index 0000000..4db3c2f
--- /dev/null
+++ b/t/testcases/babycart_in_heredoc.pl
@@ -0,0 +1,5 @@
+no indirect hook => sub { exit("$_[0] $_[1]" eq "X new" ? 0 : 1) };
+<<"FOO";
+abc @{[ new X ]} def
+FOO
+BEGIN { exit 2 }