From: Gurusamy Sarathy <gsar@cpan.org>
Date: Wed, 7 Jul 1999 18:55:45 +0000 (+0000)
Subject: filetest.t and ByteLoader build tweaks from Peter Prymmer
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=15fe5983b126b2ada551d336b1d5338492041e03;p=p5sagit%2Fp5-mst-13.2.git

filetest.t and ByteLoader build tweaks from Peter Prymmer
<pvhp@forte.com>

p4raw-id: //depot/perl@3655
---

diff --git a/ext/ByteLoader/Makefile.PL b/ext/ByteLoader/Makefile.PL
index 1facb5a..c3cfcc7 100644
--- a/ext/ByteLoader/Makefile.PL
+++ b/ext/ByteLoader/Makefile.PL
@@ -4,5 +4,6 @@ WriteMakefile(
     NAME		=> 'ByteLoader',
     VERSION_FROM	=> 'ByteLoader.pm',
     XSPROTOARG		=> '-noprototypes',
+    MAN3PODS		=> {},     # Pods will be built by installman.
     OBJECT		=> 'byterun$(OBJ_EXT) ByteLoader$(OBJ_EXT)',
 );
diff --git a/t/op/filetest.t b/t/op/filetest.t
index d03ff75..66eaa39 100755
--- a/t/op/filetest.t
+++ b/t/op/filetest.t
@@ -3,7 +3,6 @@
 # There are few filetest operators that are portable enough to test.
 # See pod/perlport.pod for details.
 
-use Config;
 BEGIN {
     chdir 't' if -d 't';
     unshift @INC, '../lib' if -d '../lib';
@@ -36,7 +35,10 @@ eval '$> = 1';		# so switch uid (may not be implemented)
 
 print "# oldeuid = $oldeuid, euid = $>\n";
 
-if ($bad_chmod) {
+if (!$Config{d_seteuid}) {
+    print "ok 6 #skipped, no seteuid\n";
+}
+elsif ($bad_chmod) {
     print "#[$@]\nok 6 #skipped\n";
 }
 else {