diff options
| -rwxr-xr-x | t/op/goto_xs.t | 19 |
1 files changed, 11 insertions, 8 deletions
diff --git a/t/op/goto_xs.t b/t/op/goto_xs.t index b775e3d1ba..2c95139b14 100755 --- a/t/op/goto_xs.t +++ b/t/op/goto_xs.t @@ -9,17 +9,20 @@ # guessing that if all of these work correctly, the bad ones will # break correctly as well. -chdir 't' if -d 't'; -@INC = '../lib'; -$ENV{PERL5LIB} = "../lib"; +BEGIN { $| = 1; } +BEGIN { + chdir 't' if -d 't'; + @INC = '../lib'; + $ENV{PERL5LIB} = "../lib"; # turn warnings into fatal errors -$SIG{__WARN__} = sub { die "WARNING: @_" } ; - -BEGIN { $| = 1; } -eval 'require Fcntl' - or do { print "1..0\n# Fcntl unavailable, can't test XS goto.\n"; exit 0 }; + $SIG{__WARN__} = sub { die "WARNING: @_" } ; + foreach (qw(Fcntl XS::APItest)) { + eval "require $_" + or do { print "1..0\n# $_ unavailable, can't test XS goto.\n"; exit 0 } + } +} print "1..11\n"; # We don't know what symbols are defined in platform X's system headers. |