Re: Another Subroutine Redefined Post

Two things you can try:

Start deleting lines of code until the warning disappears. I can not reproduce the warning with the code that you have posted.

Inspect %INC to make sure you are looking in all the modules you think you are looking in:

use Data::Dumper;
print Dumper(\%INC);
[download]

Update: Or try this hack:

for my $file (values %INC) {
    open my $fh, '<', $file;
    while (<$fh>) {
        print "$file: $_" if /\bsub\s+greater\b/
    }
}
[download]

Comment on Re: Another Subroutine Redefined Post Select or Download Code

Replies are listed 'Best First'.
Re^2: Another Subroutine Redefined Post by Heffstar (Acolyte) on Nov 10, 2009 at 18:30 UTC
Well, the code I provided was more of a "this is how I do it" in the case that I do it wrong, someone can point it out. That's a good idea though; I didn't think of %INC. I've checked out all of the included files in %INC, still nothing shows up. Any other suggestions?	[reply]
Re^3: Another Subroutine Redefined Post by toolic (Bishop) on Nov 10, 2009 at 18:48 UTC
Maybe Devel::Symdump can help you locate the duplicate subs: `use Data::Dumper; use Devel::Symdump; my $s = Devel::Symdump->new(); print Dumper($s->functions());` [download]	[reply] [d/l]