diff options
author | Abigail <abigail@abigail.be> | 2017-06-06 20:59:59 +0200 |
---|---|---|
committer | Abigail <abigail@abigail.be> | 2017-06-06 20:59:59 +0200 |
commit | d0d6d4ceec7b551df4a20f5eea6133da85eba732 (patch) | |
tree | d3ed9081f9328699b83260af56cddab9407cf5a6 /ext/B | |
parent | 02729eaba412e86edc1654b753afe2a2fc9de5d8 (diff) | |
download | perl-d0d6d4ceec7b551df4a20f5eea6133da85eba732.tar.gz |
Remove B::OP:terse
This method was deprecated, and, according to the comments, didn't
work correctly anyway.
Diffstat (limited to 'ext/B')
-rw-r--r-- | ext/B/B/Terse.pm | 8 |
1 files changed, 1 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); |