In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/d0d6d4ceec7b551df4a20f5eea6133da85eba732?hp=02729eaba412e86edc1654b753afe2a2fc9de5d8>
- Log ----------------------------------------------------------------- commit d0d6d4ceec7b551df4a20f5eea6133da85eba732 Author: Abigail <[email protected]> Date: Tue Jun 6 20:59:59 2017 +0200 Remove B::OP:terse This method was deprecated, and, according to the comments, didn't work correctly anyway. ----------------------------------------------------------------------- Summary of changes: ext/B/B/Terse.pm | 8 +------- pod/perldelta.pod | 4 ++++ 2 files changed, 5 insertions(+), 7 deletions(-) diff --git a/ext/B/B/Terse.pm b/ext/B/B/Terse.pm index 1749f326a1..681112e904 100644 --- a/ext/B/B/Terse.pm +++ b/ext/B/B/Terse.pm @@ -1,6 +1,6 @@ package B::Terse; -our $VERSION = '1.07'; +our $VERSION = '1.08'; use strict; use B qw(class @specialsv_name); @@ -30,12 +30,6 @@ sub indent { return " " x $level; } -# Don't use this, at least on OPs in subroutines: it has no way of -# getting to the pad, and will give wrong answers or crash. -sub B::OP::terse { - carp "B::OP::terse is deprecated and will go away in Perl 5.28; use B::Concise instead"; - B::Concise::b_terse(@_); -} sub B::SV::terse { my($sv, $level) = (@_, 0); diff --git a/pod/perldelta.pod b/pod/perldelta.pod index 9b930a6079..3dd94cce21 100644 --- a/pod/perldelta.pod +++ b/pod/perldelta.pod @@ -83,6 +83,10 @@ since Perl 5.20. This was deprecated since Perl 5.24. +=head2 C<B::OP::terse> no longer exists. + +Use C<B::Concise::b_terse> instead. + =head1 Deprecations XXX Any deprecated features, syntax, modules etc. should be listed here. -- Perl5 Master Repository
