diff options
Diffstat (limited to 'gnu/usr.bin/perl/t/lib/warnings/pp')
| -rw-r--r-- | gnu/usr.bin/perl/t/lib/warnings/pp | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/gnu/usr.bin/perl/t/lib/warnings/pp b/gnu/usr.bin/perl/t/lib/warnings/pp index 3324ccc5638..d94a480a991 100644 --- a/gnu/usr.bin/perl/t/lib/warnings/pp +++ b/gnu/usr.bin/perl/t/lib/warnings/pp @@ -21,6 +21,8 @@ Constant subroutine (anonymous) undefined $foo = sub () { 3 }; undef &$foo; + Invalid negative number (%s) in chr + __END__ # pp.c use warnings 'substr' ; @@ -129,10 +131,8 @@ $_ = "\x80 \xff" ; reverse ; EXPECT ######## -# NAME deprecation of complement with above ff code points -$_ = ~ "\xff"; -$_ = ~ "\x{100}"; +# NAME chr -1 +use warnings 'utf8'; +my $chr = chr(-1); EXPECT -OPTION regex -Use of strings with code points over 0xFF as arguments to 1's complement \(~\) operator is deprecated at - line \d+. -Use of code point 0xFF+EFF is deprecated; the permissible max is 0x7F+ at - line \d+. +Invalid negative number (-1) in chr at - line 2. |