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

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