1N/A#!./perl
1N/A
1N/ABEGIN {
1N/A chdir 't';
1N/A @INC = '../lib';
1N/A}
1N/A
1N/Amy $module = shift;
1N/A
1N/A# 'require open' confuses Perl, so we use instead.
1N/Aeval "use $module ();";
1N/Aif( $@ ) {
1N/A print "not ";
1N/A $@ =~ s/\n/\n# /g;
1N/A warn "# require failed with '$@'\n";
1N/A}
1N/Aprint "ok - $module\n";
1N/A
1N/A