https://perl5.git.perl.org / perl5.git / blame_incremental
| Commit | Line | Data |
|---|---|---|
| 1 | #!./perl | |
| 2 | ||
| 3 | BEGIN { | |
| 4 | chdir '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 | $@ =~ s/\n/\n# /g; | |
| 15 | warn "# require failed with '$@'\n"; | |
| 16 | } | |
| 17 | print "ok - $module\n"; | |
| 18 | ||
| 19 |