From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Tue, 5 Mar 2002 22:51:18 +0000 (+0100)
Subject: B::Lint doesn't work
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b0a2b4f5d11a46676e755e10a5905ed77204b20d;p=p5sagit%2Fp5-mst-13.2.git

B::Lint doesn't work
Message-ID: <20020305225118.C733@rafael>

p4raw-id: //depot/perl@15055
---

diff --git a/ext/B/B/Lint.pm b/ext/B/B/Lint.pm
index 35378ef..81e0f0e 100644
--- a/ext/B/B/Lint.pm
+++ b/ext/B/B/Lint.pm
@@ -118,7 +118,7 @@ Malcolm Beattie, mbeattie@sable.ox.ac.uk.
 =cut
 
 use strict;
-use B qw(walkoptree main_root walksymtable svref_2object parents
+use B qw(walkoptree_slow main_root walksymtable svref_2object parents
          OPf_WANT_LIST OPf_WANT OPf_STACKED G_ARRAY
         );
 
@@ -279,12 +279,12 @@ sub B::GV::lintcv {
     return if !$$cv || $done_cv{$$cv}++;
     my $root = $cv->ROOT;
     #warn "    root = $root (0x$$root)\n";#debug
-    walkoptree($root, "lint") if $$root;
+    walkoptree_slow($root, "lint") if $$root;
 }
 
 sub do_lint {
     my %search_pack;
-    walkoptree(main_root, "lint") if ${main_root()};
+    walkoptree_slow(main_root, "lint") if ${main_root()};
     
     # Now do subs in main
     no strict qw(vars refs);