X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2Flib%2Findirect%2FTest4.pm;fp=t%2Flib%2Findirect%2FTest4.pm;h=baa0c1f8532e0e23ed6c330ce221307c77f28318;hb=f8f57e18d37518ed81956e1bdadb5757dec206d5;hp=0000000000000000000000000000000000000000;hpb=4e2370e14767646be62be5902c16580a75a55eed;p=perl%2Fmodules%2Findirect.git

diff --git a/t/lib/indirect/Test4.pm b/t/lib/indirect/Test4.pm
new file mode 100644
index 0000000..baa0c1f
--- /dev/null
+++ b/t/lib/indirect/Test4.pm
@@ -0,0 +1,9 @@
+no indirect ":fatal";
+my $x;
+if ($x) {
+my $y = qq{abcdef
+        @{[$x
+ ->new]}
+ };
+}
+1;