diff options
| author | Abigail <abigail@abigail.be> | 2017-01-13 22:36:47 +0100 |
|---|---|---|
| committer | Abigail <abigail@abigail.be> | 2017-01-16 19:18:15 +0100 |
| commit | 30b17cc1e1a4683734a35a2fc7416f1ef34f4e5d (patch) | |
| tree | 627ee30c522313258a715151a3874475d6407248 /t/lib | |
| parent | bfdc8cd3d5a81ab176f7d530d2e692897463c97d (diff) | |
| download | perl-30b17cc1e1a4683734a35a2fc7416f1ef34f4e5d.tar.gz | |
Deprecation of an unqualified dump() to mean CORE::dump().
This will no longer be allowed in 5.30.
Diffstat (limited to 't/lib')
| -rw-r--r-- | t/lib/croak/pp_ctl | 3 | ||||
| -rw-r--r-- | t/lib/warnings/toke | 19 |
2 files changed, 20 insertions, 2 deletions
diff --git a/t/lib/croak/pp_ctl b/t/lib/croak/pp_ctl index ee1edbaffa..ec664138e0 100644 --- a/t/lib/croak/pp_ctl +++ b/t/lib/croak/pp_ctl @@ -1,9 +1,10 @@ __END__ # NAME dump with computed label +no warnings 'deprecated'; my $label = "foo"; dump $label; EXPECT -Can't find label foo at - line 2. +Can't find label foo at - line 3. ######## # NAME when outside given use 5.01; no warnings 'experimental::smartmatch'; diff --git a/t/lib/warnings/toke b/t/lib/warnings/toke index 3d5044d363..95b7bfa84d 100644 --- a/t/lib/warnings/toke +++ b/t/lib/warnings/toke @@ -1078,11 +1078,28 @@ Integer overflow in octal number at - line 11. ######## # toke.c BEGIN { $^C = 1; } +dump; +CORE::dump; +EXPECT +dump() better written as CORE::dump(). dump() will no longer be available in Perl 5.30 at - line 3. +- syntax OK +######## +# toke.c +BEGIN { $^C = 1; } +no warnings 'deprecated'; +dump; +CORE::dump; +EXPECT +- syntax OK +######## +# toke.c +BEGIN { $^C = 1; } +no warnings 'deprecated'; use warnings 'misc'; dump; CORE::dump; EXPECT -dump() better written as CORE::dump() at - line 4. +dump() better written as CORE::dump(). dump() will no longer be available in Perl 5.30 at - line 5. - syntax OK ######## # toke.c |