diff options
| author | Abigail <abigail@abigail.be> | 2016-11-18 14:52:18 +0100 |
|---|---|---|
| committer | Abigail <abigail@abigail.be> | 2017-01-16 19:18:12 +0100 |
| commit | d8940893299cd62dcdb1164f85c67ac6279f10b5 (patch) | |
| tree | 25ec6e8c5d52a5cb4fa281a1a2c4317334504185 /t/lib | |
| parent | 122d6c09702a0437a06efd713ba57d17175289bb (diff) | |
| download | perl-d8940893299cd62dcdb1164f85c67ac6279f10b5.tar.gz | |
$/ = \-1 will be fatal in Perl 5.28.
Setting $/ to a reference of a non-positive integer has been deprecated
since 5.20, in which it was special cased to act like you had set to
$/ to undef.
In Perl 5.28, setting $/ to a reference to a non-positive integer will
be a fatal error.
Diffstat (limited to 't/lib')
| -rw-r--r-- | t/lib/warnings/9uninit | 2 | ||||
| -rw-r--r-- | t/lib/warnings/mg | 8 |
2 files changed, 5 insertions, 5 deletions
diff --git a/t/lib/warnings/9uninit b/t/lib/warnings/9uninit index 77a93ced69..1dc71397b6 100644 --- a/t/lib/warnings/9uninit +++ b/t/lib/warnings/9uninit @@ -411,7 +411,7 @@ chomp ($x, $y); chop ($x, $y); EXPECT Use of uninitialized value $m1 in scalar assignment at - line 4. Use of uninitialized value $m1 in scalar assignment at - line 4. -Setting $/ to a reference to zero as a form of slurp is deprecated, treating as undef at - line 4. +Setting $/ to a reference to zero as a form of slurp is deprecated, treating as undef. This will be fatal in Perl 5.28 at - line 4. Use of uninitialized value $y in chop at - line 8. ######## use warnings 'uninitialized'; diff --git a/t/lib/warnings/mg b/t/lib/warnings/mg index a4231bf98f..7fdefc26b3 100644 --- a/t/lib/warnings/mg +++ b/t/lib/warnings/mg @@ -3,7 +3,7 @@ No such signal: SIG%s $SIG{FRED} = sub {} - Setting $/ to a reference to zero as a form of slurp is deprecated, treating as undef + Setting $/ to a reference to zero as a form of slurp is deprecated, treating as undef. This will be fatal in Perl 5.28 SIG%s handler \"%s\" not defined. $SIG{"INT"} = "ok3"; kill "INT",$$; @@ -25,19 +25,19 @@ EXPECT # warnable code, warnings enabled via command line switch $/ = \0; EXPECT -Setting $/ to a reference to zero as a form of slurp is deprecated, treating as undef at - line 3. +Setting $/ to a reference to zero as a form of slurp is deprecated, treating as undef. This will be fatal in Perl 5.28 at - line 3. ######## -w # warnable code, warnings enabled via command line switch $/ = \-1; EXPECT -Setting $/ to a reference to a negative integer as a form of slurp is deprecated, treating as undef at - line 3. +Setting $/ to a reference to a negative integer as a form of slurp is deprecated, treating as undef. This will be fatal in Perl 5.28 at - line 3. ######## $/ = \-1; no warnings 'deprecated'; $/ = \-1; EXPECT -Setting $/ to a reference to a negative integer as a form of slurp is deprecated, treating as undef at - line 1. +Setting $/ to a reference to a negative integer as a form of slurp is deprecated, treating as undef. This will be fatal in Perl 5.28 at - line 1. ######## # mg.c use warnings 'signal' ; |