Stop the indexer from processing private modules

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 a38ee323d0..a080af778d 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 1a4bf31f7f..6ba09708cb 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";