Tweak XSLoader.t.

XSLoader is supposed to work even for extensions that
are statically linked. So only check that the extension we
test for is actually available. (This test is not supposed
to be run by miniperl.)

p4raw-id: //depot/perl@20952

1 files changed, 2 insertions, 7 deletions

diff --git a/ext/DynaLoader/t/XSLoader.t b/ext/DynaLoader/t/XSLoader.t
index 6eb26af64b..073a6fdfb6 100644
--- a/ext/DynaLoader/t/XSLoader.t
+++ b/ext/DynaLoader/t/XSLoader.t
@@ -1,13 +1,8 @@
-#!/usr/bin/perl -w
+#!./perl -w
 
 BEGIN {
-    chdir 't';
+    chdir 't' if -d 't';
     @INC = '../lib';
-    eval 'use Fcntl';
-    if ($@ =~ /dynamic loading not available/) {
-        print "1..0 # Skip: no dynamic loading\n";
-	exit;
-    }
     require Config; import Config;
     if (($Config{'extensions'} !~ /\bSDBM_File\b/) && ($^O ne 'VMS')){
 	print "1..0 # Skip: no SDBM_File\n";