diff options
| author | Ilmari Karonen <iltzu@sci.fi> | 2002-04-05 04:35:08 +0300 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-04-04 22:28:32 +0000 |
| commit | e189a56d832d31da4b6bb0fcf7dfde76e1fc4b24 (patch) | |
| tree | 290bc6b9dcfe2bba19cd69e7bab20c443d36f81f /t/op/method.t | |
| parent | d2c6a9c992e9b88df38dd76d2e704ace83a46bdc (diff) | |
| download | perl-e189a56d832d31da4b6bb0fcf7dfde76e1fc4b24.tar.gz | |
Re: [ID 20020305.025] PACKAGE::SUPER doesn't work anymore
Message-ID: <Pine.SOL.3.96.1020405004632.9372C-100000@simpukka>
p4raw-id: //depot/perl@15737
Diffstat (limited to 't/op/method.t')
| -rwxr-xr-x | t/op/method.t | 20 |
1 files changed, 19 insertions, 1 deletions
diff --git a/t/op/method.t b/t/op/method.t index 16a927aa06..46c111946a 100755 --- a/t/op/method.t +++ b/t/op/method.t @@ -10,7 +10,7 @@ BEGIN { require "test.pl"; } -print "1..74\n"; +print "1..75\n"; @A::ISA = 'B'; @B::ISA = 'C'; @@ -259,3 +259,21 @@ is( is($w, ''); } +# [ID 20020305.025] PACKAGE::SUPER doesn't work anymore + +package main; +our @X; +package Amajor; +sub test { + push @main::X, 'Amajor', @_; +} +package Bminor; +use base qw(Amajor); +package main; +sub Bminor::test { + $_[0]->Bminor::SUPER::test('x', 'y'); + push @main::X, 'Bminor', @_; +} +Bminor->test('y', 'z'); +is("@X", "Amajor Bminor x y Bminor Bminor y z"); + |