In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/601448c36688a16a07b133714522cd9f63a9ed03?hp=89e006ae4e39db68ad35c878eb6e6de83ebd8ec9>
- Log ----------------------------------------------------------------- commit 601448c36688a16a07b133714522cd9f63a9ed03 Author: David Mitchell <[email protected]> Date: Sun Mar 3 00:57:07 2013 +0000 deparse.t: mask STDERR noise on lex sub TODO test A Deparse TODO test which tries to deparse lexical subs, produce a bunch of "unexpected OP_CLONE" etc on STDERR (since it doesn't handle those new ops yet). Capture and skip those warnings for now. Also, add 'no warnings "experimental::lexical_subs"' to stop a warning about using an experimental feature. ----------------------------------------------------------------------- Summary of changes: dist/B-Deparse/t/deparse.t | 10 ++++++++++ 1 files changed, 10 insertions(+), 0 deletions(-) diff --git a/dist/B-Deparse/t/deparse.t b/dist/B-Deparse/t/deparse.t index df90124..dce0460 100644 --- a/dist/B-Deparse/t/deparse.t +++ b/dist/B-Deparse/t/deparse.t @@ -1372,6 +1372,16 @@ my($a, $b, $c) = @_; # SKIP ?$] < 5.017004 && "lexical subs not implemented on this Perl version" # TODO unimplemented in B::Deparse; RT #116553 # lexical subroutine + +# XXX remove this __WARN__ once the ops are correctly implemented +BEGIN { + $SIG{__WARN__} = sub { + return if $_[0] =~ /unexpected OP_(CLONE|INTRO|PAD)CV/; + print STDERR @_; + } +} + use feature 'lexical_subs'; +no warnings "experimental::lexical_subs"; my sub f {} print f(); -- Perl5 Master Repository
