Skip Menu |
 

This queue is for tickets about the NEXT CPAN distribution.

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

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

Bug Information
Severity: Normal
Broken in: (no value)
Fixed in: 0.60



Subject: NEXT::DISTINCT not skipping seen classes
Download (untitled) / with headers
text/plain 912b
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
Download (untitled) / with headers
text/plain 201b
[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 is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

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