diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2002-03-05 23:51:18 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-03-06 00:35:22 +0000 |
| commit | b0a2b4f5d11a46676e755e10a5905ed77204b20d (patch) | |
| tree | e6cb53e417a526a67d94887e6e9fc216ee4c56b3 /ext | |
| parent | 4e3399f9b267135d193509ba5240514af04e9fec (diff) | |
| download | perl-b0a2b4f5d11a46676e755e10a5905ed77204b20d.tar.gz | |
B::Lint doesn't work
Message-ID: <20020305225118.C733@rafael>
p4raw-id: //depot/perl@15055
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/B/B/Lint.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/ext/B/B/Lint.pm b/ext/B/B/Lint.pm index 35378efa42..81e0f0eaa4 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); |