[perl5.git] / t / lib / compmod.pl

#!./perl

BEGIN {
    chdir '..' if -d '../pod' && -d '../t';
    @INC = 'lib';
}

my $module = shift;

# 'require open' confuses Perl, so we use instead.
eval "use $module ();";
if( $@ ) {
    print "not ";
    $@ =~ s/\n/\n# /g;
    warn "# require failed with '$@'\n";
}
print "ok - $module\n";
Commit	Line	Data
7200bc44 JH	1	#!./perl
	2
	3	BEGIN {
	4	chdir '..' if -d '../pod' && -d '../t';
	5	@INC = 'lib';
	6	}
	7
	8	my $module = shift;
	9
	10	# 'require open' confuses Perl, so we use instead.
	11	eval "use $module ();";
	12	if( $@ ) {
	13	print "not ";
b328b501 CB	14	$@ =~ s/\n/\n# /g;
b328b501 CB	15	warn "# require failed with '$@'\n";
7200bc44 JH	16	}
	17	print "ok - $module\n";
	18
	19