diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-07-07 18:55:45 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-07-07 18:55:45 +0000 |
| commit | 15fe5983b126b2ada551d336b1d5338492041e03 (patch) | |
| tree | 835120ee256b98531bdd52fdb91afb5fdc39dfb4 /t | |
| parent | d9fde92e0874aabf610d52680de462a0e0165d23 (diff) | |
| download | perl-15fe5983b126b2ada551d336b1d5338492041e03.tar.gz | |
filetest.t and ByteLoader build tweaks from Peter Prymmer
<pvhp@forte.com>
p4raw-id: //depot/perl@3655
Diffstat (limited to 't')
| -rwxr-xr-x | t/op/filetest.t | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/t/op/filetest.t b/t/op/filetest.t index d03ff75b04..66eaa3933d 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 { |