Commit | Line | Data |
---|---|---|
7200bc44 | 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 "; | |
14 | warn "require failed with '$@'\n"; | |
15 | } | |
16 | print "ok - $module\n"; | |
17 | ||
18 |