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