Test #7678
authorFather Chrysostomos <sprout@cpan.org>
Sun, 30 Sep 2012 07:06:46 +0000 (00:06 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Mon, 1 Oct 2012 19:51:57 +0000 (12:51 -0700)
This was fixed in 9bf12eaf4, but apparently never tested.

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

t/op/substr.t

index fd4f5d2..4fb4f96 100644 (file)
@@ -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);}