From: Father Chrysostomos <sprout@cpan.org>
Date: Fri, 9 Dec 2011 06:21:51 +0000 (-0800)
Subject: Test out-of-bounds warning with lv substr
X-Git-Tag: accepted/trunk/20130322.191538~1805
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=f378d2d318c166a0a71d4cb0c3648facaa7c62ea;p=platform%2Fupstream%2Fperl.git

Test out-of-bounds warning with lv substr
---

diff --git a/t/op/substr.t b/t/op/substr.t
index f93b64c..ceacdf6 100644
--- a/t/op/substr.t
+++ b/t/op/substr.t
@@ -23,7 +23,7 @@ $SIG{__WARN__} = sub {
 
 BEGIN { require './test.pl'; }
 
-plan(380);
+plan(381);
 
 run_tests() unless caller;
 
@@ -42,6 +42,8 @@ eval{substr($a,999,999) = "" ; };# P R Q S
 like ($@, $FATAL_MSG);
 is(substr($a,0,-6), 'abc');  # P=Q R S
 is(substr($a,-3,1), 'x');    # P Q R S
+sub{$b = shift}->(substr($a,999,999));
+is ($w--, 1, 'boundless lvalue substr only warns on fetch');
 
 substr($a,3,3) = 'XYZ';
 is($a, 'abcXYZxyz' );