Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Test out-of-bounds warning with lv substr

  • Loading branch information...
commit f378d2d318c166a0a71d4cb0c3648facaa7c62ea 1 parent 6600848
Father Chrysostomos authored
Showing with 3 additions and 1 deletion.
  1. +3 −1 t/op/substr.t
View
4 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' );

0 comments on commit f378d2d

Please sign in to comment.
Something went wrong with that request. Please try again.