In string-like envs, take the position to the beginning of the string

[perl/modules/indirect.git] / t / lib / indirect / Test4.pm

diff --git a/t/lib/indirect/Test4.pm b/t/lib/indirect/Test4.pm
new file mode 100644 (file)
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;