Save some repeated strlen()s in Perl_swash_init
[p5sagit/p5-mst-13.2.git] / t / lib / compmod.pl
CommitLineData
7200bc44 1#!./perl
2
3BEGIN {
dc459aad 4 chdir 't';
5 @INC = '../lib';
7200bc44 6}
7
8my $module = shift;
9
10# 'require open' confuses Perl, so we use instead.
11eval "use $module ();";
12if( $@ ) {
13 print "not ";
b328b501 14 $@ =~ s/\n/\n# /g;
15 warn "# require failed with '$@'\n";
7200bc44 16}
17print "ok - $module\n";
18
19