From: Vincent Pit <perl@profvince.com>
Date: Tue, 12 Jul 2016 15:41:51 +0000 (-0300)
Subject: Test indirect calls in babycart in heredocs
X-Git-Tag: v0.37~2
X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2Findirect.git;a=commitdiff_plain;h=b88a054e2ca91c186a420e015b3a383b406ff2d0

Test indirect calls in babycart in heredocs
---

diff --git a/MANIFEST b/MANIFEST
index 7f3d8d6..e0ee05b 100644
--- a/MANIFEST
+++ b/MANIFEST
@@ -52,6 +52,7 @@ t/lib/indirect/TestRequired5/c0.pm
 t/lib/indirect/TestRequired5/d0.pm
 t/lib/indirect/TestRequired6.pm
 t/lib/indirect/TestRequiredGlobal.pm
+t/testcases/babycart_in_heredoc.pl
 t/testcases/rt115392.pl
 xsh/caps.h
 xsh/debug.h
diff --git a/t/50-external.t b/t/50-external.t
index 60ed244..d34db9c 100644
--- a/t/50-external.t
+++ b/t/50-external.t
@@ -5,7 +5,7 @@ use warnings;
 
 use Config;
 
-use Test::More tests => 7;
+use Test::More tests => 8;
 
 use lib 't/lib';
 use VPIT::TestHelpers 'run_perl';
@@ -77,3 +77,9 @@ SKIP: {
  }
  is $status, 0, 'RT #115392';
 }
+
+SKIP: {
+ my $status = run_perl_file 't/testcases/babycart_in_heredoc.pl';
+ skip RUN_PERL_FAILED() => 1 unless defined $status;
+ is $status, 0, 'babycart in heredoc';
+}
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 }