diff options
Diffstat (limited to 'gnu/usr.bin/perl/t/lib/warnings/pp')
| -rw-r--r-- | gnu/usr.bin/perl/t/lib/warnings/pp | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/gnu/usr.bin/perl/t/lib/warnings/pp b/gnu/usr.bin/perl/t/lib/warnings/pp index 89ebcbcbc47..ab8f9516518 100644 --- a/gnu/usr.bin/perl/t/lib/warnings/pp +++ b/gnu/usr.bin/perl/t/lib/warnings/pp @@ -37,10 +37,16 @@ use warnings 'substr' ; $a = "ab" ; $b = \$a ; substr($b, 1,1) = "ab" ; +$b = \$a; +substr($b, 1,1) = "\x{100}" ; no warnings 'substr' ; +$b = \$a; substr($b, 1,1) = "ab" ; +$b = \$a; +substr($b, 1,1) = "\x{100}" ; EXPECT Attempt to use reference as lvalue in substr at - line 5. +Attempt to use reference as lvalue in substr at - line 7. ######## # pp.c use warnings 'misc' ; |