From b0a2b4f5d11a46676e755e10a5905ed77204b20d Mon Sep 17 00:00:00 2001 From: Rafael Garcia-Suarez Date: Tue, 5 Mar 2002 23:51:18 +0100 Subject: [PATCH] B::Lint doesn't work Message-ID: <20020305225118.C733@rafael> p4raw-id: //depot/perl@15055 --- ext/B/B/Lint.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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); -- 2.7.4