#!./perl
BEGIN {
- chdir '..' if -d '../pod' && -d '../t';
- @INC = 'lib';
+ chdir 't';
+ @INC = '../lib';
}
my $module = shift;
eval "use $module ();";
if( $@ ) {
print "not ";
- warn "require failed with '$@'\n";
+ $@ =~ s/\n/\n# /g;
+ warn "# require failed with '$@'\n";
}
print "ok - $module\n";