Test #7678

This was fixed in 9bf12eaf4, but apparently never tested.

It used to crash, so no is() is necessary.

diff --git a/t/op/substr.t b/t/op/substr.t
index fd4f5d2..4fb4f96 100644 (file)
--- a/t/op/substr.t
+++ b/t/op/substr.t
@@ -855,3 +855,6 @@ $refee = bless ["\x{100}"], o::;
 $o::count = 0;
 () = substr $refee, 0;
 is $o::count, 1, 'rvalue substr calls overloading once on utf8 target';
+
+# [perl #7678] core dump with substr reference and localisation
+{$b="abcde"; local $k; *k=\substr($b, 2, 1);}