In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/4d97b3cc28cd777c5607474f9a98679b04f88a55?hp=9c2058001cf5b160808756ea260d7340523ca1be>
- Log ----------------------------------------------------------------- commit 4d97b3cc28cd777c5607474f9a98679b04f88a55 Author: Florian Ragwitz <[email protected]> Date: Wed Feb 29 15:33:05 2012 +0200 Stop the indexer from processing private modules ----------------------------------------------------------------------- Summary of changes: dist/B-Lint/lib/B/Lint.pm | 2 +- dist/B-Lint/lib/B/Lint/Debug.pm | 17 +++++++++++------ 2 files changed, 12 insertions(+), 7 deletions(-) diff --git a/dist/B-Lint/lib/B/Lint.pm b/dist/B-Lint/lib/B/Lint.pm index a38ee32..a080af7 100644 --- a/dist/B-Lint/lib/B/Lint.pm +++ b/dist/B-Lint/lib/B/Lint.pm @@ -1,6 +1,6 @@ package B::Lint; -our $VERSION = '1.13'; ## no critic +our $VERSION = '1.14'; ## no critic =head1 NAME diff --git a/dist/B-Lint/lib/B/Lint/Debug.pm b/dist/B-Lint/lib/B/Lint/Debug.pm index 1a4bf31..6ba0970 100644 --- a/dist/B-Lint/lib/B/Lint/Debug.pm +++ b/dist/B-Lint/lib/B/Lint/Debug.pm @@ -1,6 +1,6 @@ package B::Lint::Debug; -our $VERSION = '1.12'; +our $VERSION = '1.14'; =head1 NAME @@ -13,13 +13,15 @@ should not be loaded unless you're debugging. =cut -package B::SPECIAL; +package # hide from PAUSE + B::SPECIAL; use overload '""' => sub { my $self = shift @_; "SPECIAL($$self)"; }; -package B::OP; +package # hide from PAUSE + B::OP; use overload '""' => sub { my $self = shift @_; my $class = ref $self; @@ -28,7 +30,8 @@ use overload '""' => sub { "$class($name)"; }; -package B::SVOP; +package # hide from PAUSE + B::SVOP; use overload '""' => sub { my $self = shift @_; my $class = ref $self; @@ -37,7 +40,8 @@ use overload '""' => sub { "$class($name," . $self->sv . "," . $self->gv . ")"; }; -package B::SPECIAL; +package # hide from PAUSE + B::SPECIAL; sub DESTROY { } our $AUTOLOAD; @@ -45,7 +49,8 @@ sub AUTOLOAD { my $cx = 0; print "AUTOLOAD $AUTOLOAD\n"; - package DB; + package # hide from PAUSE + DB; while ( my @stuff = caller $cx ) { print "$cx: [@DB::args] [@stuff]\n"; -- Perl5 Master Repository
