Bug#545899: $self->next::method can't find UNIVERSAL

[Anthony DeRobertis]

Package: perl-modules
Version: 5.10.0-25
Severity: normal
File: /usr/share/perl/5.10.0/mro.pm

Example code:

	$ cat /tmp/t2.pl ; echo '####'; perl /tmp/t2.pl
	my $f = bless {}, 'Foo';
	$f->isa('Foo');

	package Foo;
	use mro;

	sub isa {
			my $self = shift;
			$self->next::method(@_);
	}

	1;
	####
	No next::method 'isa' found for Foo at /usr/share/perl/5.10/mro.pm line 26.

It seems like that really ought to work. It does work if you use
$self->SUPER::isa instead.

-- System Information:
Debian Release: squeeze/sid
  APT prefers testing
  APT policy: (500, 'testing'), (500, 'stable'), (100, 'unstable')
Architecture: i386 (i686)

Kernel: Linux 2.6.30-1-686 (SMP w/2 CPU cores)
Locale: LANG=en_US.UTF-8, LC_CTYPE=en_US.UTF-8 (charmap=UTF-8)
Shell: /bin/sh linked to /bin/bash

Versions of packages perl-modules depends on:
ii  perl                          5.10.0-25  Larry Wall's Practical Extraction 

perl-modules recommends no packages.

perl-modules suggests no packages.

-- no debconf information