From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Sat, 30 Aug 2003 15:20:48 +0000 (+0000)
Subject: Tweak XSLoader.t.
X-Git-Tag: accepted/trunk/20130322.191538~23169
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=dcccfb9b4e42c4efe169911b5a3b8b70317f0120;p=platform%2Fupstream%2Fperl.git

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
---

diff --git a/ext/DynaLoader/t/XSLoader.t b/ext/DynaLoader/t/XSLoader.t
index 6eb26af..073a6fd 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";