Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

next::method doesn't see UNIVERSAL superclasses #9837

Closed
p5pRT opened this issue Aug 18, 2009 · 9 comments
Closed

next::method doesn't see UNIVERSAL superclasses #9837

p5pRT opened this issue Aug 18, 2009 · 9 comments

Comments

@p5pRT
Copy link

@p5pRT p5pRT commented Aug 18, 2009

Migrated from rt.perl.org#68654 (status was 'open')

Searchable as RT68654$

@p5pRT
Copy link
Author

@p5pRT p5pRT commented Aug 18, 2009

From zefram@fysh.org

Created by zefram@fysh.org

Here's a simple use of next​::method​:

$ perl -Mmro -lwe '{ package U; sub foo { print "foo" } } { package M; @​ISA = qw(U); sub foo { $_[0]->next​::method } } M->foo'
foo

Here's something that should behave equivalently but doesn't​:

$ perl -Mmro -lwe '{ package UNIVERSAL; sub foo { print "foo" } } { package M; sub foo { $_[0]->next​::method } } M->foo'
No next​::method 'foo' found for M at /usr/share/perl/5.10/mro.pm line 26.

The inheritance pattern is the same here; the differences are that
class U has been replaced by UNIVERSAL, and M being a subclass of it is
now implicit. It can be made to work again by making M's inheritance
explicit​:

$ perl -Mmro -lwe '{ package UNIVERSAL; sub foo { print "foo" } } { package M; @​ISA = qw(UNIVERSAL); sub foo { $_[0]->next​::method } } M->foo'
foo

In the work where I ran into this, I'm not actually working with UNIVERSAL
directly, but attempting to combine methods in superclasses of UNIVERSAL.
The same problem occurs whenever the next method is located in UNIVERSAL
or any of its superclasses, even if the method invoking next​::method is
itself in such a universal class. But it does work if the invocant is
"UNIVERSAL" itself, or if the inheritance is made explicit. Apparently
next​::method doesn't consider any implicit superclass relationships when
deciding on the list of classes to look for methods in.

In my situation, where the code that calls next​::method is in a universal
superclass, I can work around the problem by doing UNIVERSAL->next​::can
and then using the returned code ref as a method on the original invocant.
Code that runs in a non-universal class would have more difficulty​:
it would have to try next​::can on the original invocant, and then if
that returns undef move on to UNIVERSAL->next​::can.

Perl Info

Flags:
    category=core
    severity=medium

Site configuration information for perl 5.10.0:

Configured by Debian Project at Thu Jan  1 12:43:38 UTC 2009.

Summary of my perl5 (revision 5 version 10 subversion 0) configuration:
  Platform:
    osname=linux, osvers=2.6.26-1-686, archname=i486-linux-gnu-thread-multi
    uname='linux rebekka 2.6.26-1-686 #1 smp mon dec 15 18:15:07 utc 2008 i686 gnulinux '
    config_args='-Dusethreads -Duselargefiles -Dccflags=-DDEBIAN -Dcccdlflags=-fPIC -Darchname=i486-linux-gnu -Dprefix=/usr -Dprivlib=/usr/share/perl/5.10 -Darchlib=/usr/lib/perl/5.10 -Dvendorprefix=/usr -Dvendorlib=/usr/share/perl5 -Dvendorarch=/usr/lib/perl5 -Dsiteprefix=/usr/local -Dsitelib=/usr/local/share/perl/5.10.0 -Dsitearch=/usr/local/lib/perl/5.10.0 -Dman1dir=/usr/share/man/man1 -Dman3dir=/usr/share/man/man3 -Dsiteman1dir=/usr/local/man/man1 -Dsiteman3dir=/usr/local/man/man3 -Dman1ext=1 -Dman3ext=3perl -Dpager=/usr/bin/sensible-pager -Uafs -Ud_csh -Ud_ualarm -Uusesfio -Uusenm -DDEBUGGING=-g -Doptimize=-O2 -Duseshrplib -Dlibperl=libperl.so.5.10.0 -Dd_dosuid -des'
    hint=recommended, useposix=true, d_sigaction=define
    useithreads=define, usemultiplicity=define
    useperlio=define, d_sfio=undef, uselargefiles=define, usesocks=undef
    use64bitint=undef, use64bitall=undef, uselongdouble=undef
    usemymalloc=n, bincompat5005=undef
  Compiler:
    cc='cc', ccflags ='-D_REENTRANT -D_GNU_SOURCE -DDEBIAN -fno-strict-aliasing -pipe -I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64',
    optimize='-O2 -g',
    cppflags='-D_REENTRANT -D_GNU_SOURCE -DDEBIAN -fno-strict-aliasing -pipe -I/usr/local/include'
    ccversion='', gccversion='4.3.2', gccosandvers=''
    intsize=4, longsize=4, ptrsize=4, doublesize=8, byteorder=1234
    d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=12
    ivtype='long', ivsize=4, nvtype='double', nvsize=8, Off_t='off_t', lseeksize=8
    alignbytes=4, prototype=define
  Linker and Libraries:
    ld='cc', ldflags =' -L/usr/local/lib'
    libpth=/usr/local/lib /lib /usr/lib /usr/lib64
    libs=-lgdbm -lgdbm_compat -ldb -ldl -lm -lpthread -lc -lcrypt
    perllibs=-ldl -lm -lpthread -lc -lcrypt
    libc=/lib/libc-2.7.so, so=so, useshrplib=true, libperl=libperl.so.5.10.0
    gnulibc_version='2.7'
  Dynamic Linking:
    dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-Wl,-E'
    cccdlflags='-fPIC', lddlflags='-shared -O2 -g -L/usr/local/lib'

Locally applied patches:
    


@INC for perl 5.10.0:
    /etc/perl
    /usr/local/lib/perl/5.10.0
    /usr/local/share/perl/5.10.0
    /usr/lib/perl5
    /usr/share/perl5
    /usr/lib/perl/5.10
    /usr/share/perl/5.10
    /usr/local/lib/site_perl
    .


Environment for perl 5.10.0:
    HOME=/home/zefram
    LANG (unset)
    LANGUAGE (unset)
    LD_LIBRARY_PATH (unset)
    LOGDIR (unset)
    PATH=/home/zefram/pub/i686-pc-linux-gnu/bin:/home/zefram/pub/common/bin:/usr/bin:/usr/X11R6/bin:/bin:/usr/local/bin:/usr/games
    PERL_BADLANG (unset)
    SHELL=/usr/bin/zsh

@p5pRT
Copy link
Author

@p5pRT p5pRT commented Sep 15, 2009

From anthony@derobert.net

Also happens when trying to, e.g., use next​::method inside of a isa
method. See also http​://bugs.debian.org/cgi-bin/bugreport.cgi?bug=545899

@p5pRT
Copy link
Author

@p5pRT p5pRT commented Sep 15, 2009

anthony@derobert.net - Status changed from 'new' to 'open'

@p5pRT
Copy link
Author

@p5pRT p5pRT commented Sep 15, 2009

anthony@derobert.net - Status changed from 'open' to 'new'

@p5pRT
Copy link
Author

@p5pRT p5pRT commented Nov 11, 2009

alecclews@gmail.com - Status changed from 'new' to 'open'

@p5pRT
Copy link
Author

@p5pRT p5pRT commented Dec 1, 2010

From @cpansprout

Now fixed as of a5cd004.

@p5pRT
Copy link
Author

@p5pRT p5pRT commented Dec 1, 2010

@cpansprout - Status changed from 'open' to 'resolved'

@p5pRT p5pRT closed this Dec 1, 2010
@p5pRT
Copy link
Author

@p5pRT p5pRT commented Jan 3, 2011

From @cpansprout

On Wed Dec 01 05​:24​:03 2010, sprout wrote​:

Now fixed as of a5cd004.

That change caused more problems. See ticket #81098. So I’ve reverted it
and am re-opening this ticket. It will have to wait until after 5.14.

@p5pRT
Copy link
Author

@p5pRT p5pRT commented Jan 3, 2011

@cpansprout - Status changed from 'resolved' to 'open'

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
Projects
None yet
Linked pull requests

Successfully merging a pull request may close this issue.

None yet
1 participant