# $Id$
package t::P4;
use strict;

use vars qw( @ISA );

@ISA = 'P1';

sub in4 {}

1;
__END__

$Log$