1#!/usr/bin/perl -w 2 3# Regression test some quirky behavior of base.pm. 4 5use strict; 6use Test::More tests => 1; 7 8{ 9 package Parent; 10 11 sub foo { 42 } 12 13 package Middle; 14 15 use base qw(Parent); 16 17 package Child; 18 19 base->import(qw(Middle Parent)); 20} 21 22is_deeply [@Child::ISA], [qw(Middle)], 23 'base.pm will not add to @ISA if you already are-a'; 24