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 (file)
--- 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 (executable)
--- 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 {