This queue is for tickets about the NEXT CPAN distribution.

Report information
The Basics
Id:
3212
Status:
resolved
Priority:
Low/Low
Queue:

People
Owner:
Nobody in particular
Requestors:
natg [...] shore.net
Cc:
AdminCc:

BugTracker
Severity:
Normal
Broken in:
(no value)
Fixed in:
0.60



Subject: NEXT::DISTINCT not skipping seen classes
The example code in the NEXT documentation isn't working. This is on Red Hat 7 and 8, I think. Here's the program (copied and pasted from the docs with an extra print statement) followed by its output. use NEXT; package A; sub foo { print "called A::foo\n"; shift->NEXT::DISTINCT::foo() } package B; sub foo { print "called B::foo\n"; shift->NEXT::DISTINCT::foo() } package C; @ISA = qw( A ); sub foo { print "called C::foo\n"; shift->NEXT::DISTINCT::foo() } package D; @ISA = qw(A B); sub foo { print "called D::foo\n"; shift->NEXT::DISTINCT::foo() } package E; @ISA = qw(C D); sub foo { print "called E::foo\n"; shift->NEXT::DISTINCT::foo() } print "\$NEXT::VERSION=$NEXT::VERSION\n"; E->foo();
Show quoted text
> perl next.pl
$NEXT::VERSION=0.52 called E::foo called C::foo called A::foo called D::foo called A::foo called B::foo Note the second call to A::foo. Many thanks, Nat
[guest - Mon Aug 11 12:02:09 2003]:
Show quoted text
> Note the second call to A::foo.
This was patched in a later version. The latest version is 0.6. You will find that it does work correctly in that version.


This service runs on Request Tracker, is sponsored by The Perl Foundation, and maintained by Best Practical Solutions.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.