[p5sagit/p5-mst-13.2.git] / t / lib / sample-tests / inc_taint

#!/usr/bin/perl -Tw

BEGIN {
    if ( $ENV{PERL_CORE} ) {
        unshift @INC, '../lib';
    }
    else {
        unshift @INC, 't/lib';
    }
}

use Test::More tests => 1;

ok( grep( /examples/, @INC ) );
Commit	Line	Data
e4fc8a1e	1	#!/usr/bin/perl -Tw
e4fc8a1e	2
5e727a3e	3	BEGIN {
	4	if ( $ENV{PERL_CORE} ) {
	5	unshift @INC, '../lib';
	6	}
	7	else {
	8	unshift @INC, 't/lib';
	9	}
	10	}
	11
e4fc8a1e	12	use Test::More tests => 1;
e4fc8a1e	13
b965d173	14	ok( grep( /examples/, @INC ) );
e4fc8a1e	15