Searched refs:fooinc (Results 1 - 1 of 1) sorted by relevance

/opensolaris-onvv-gate/usr/src/cmd/perl/5.8.4/distrib/t/op/
H A Dinccode.t31 sub fooinc { subroutine
41 push @INC, \&fooinc;
51 is( $INC{'Foo.pm'}, \&fooinc, ' val Foo.pm is correct in %INC' );
58 is( $INC{'Foo1.pm'}, \&fooinc, ' val Foo1.pm is correct in %INC' );
65 is( $INC{'Foo2.pl'}, \&fooinc, ' val Foo2.pl is correct in %INC' );

Completed in 40 milliseconds