diff options
| author | Charles Bailey <bailey@newman.upenn.edu> | 1999-04-24 16:12:43 -0400 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-05-10 04:07:07 +0000 |
| commit | 3eeba6fb8b434fcb27f601771baa0ea98f44d487 (patch) | |
| tree | 0cdd318a0eb41e39117ecfe361e8c0b0088e2d3a /t/op/filetest.t | |
| parent | b295d1132eed0f33e5e8fda2cd65ee1297fdabdb (diff) | |
| download | perl-3eeba6fb8b434fcb27f601771baa0ea98f44d487.tar.gz | |
applied suggested patch, modulo already applied parts
Message-id: <01JAF9UAV9XG002O0W@mail.newman.upenn.edu>
Subject: [Patch 5.005_56] VMS consolidated patch #2
p4raw-id: //depot/perl@3357
Diffstat (limited to 't/op/filetest.t')
| -rwxr-xr-x | t/op/filetest.t | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/t/op/filetest.t b/t/op/filetest.t index 9228b5730b..7e03c42949 100755 --- a/t/op/filetest.t +++ b/t/op/filetest.t @@ -3,6 +3,7 @@ # 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'; } @@ -50,8 +51,12 @@ eval '$> = $oldeuid'; # switch uid back (may not be implemented) # this would fail for the euid 1 # (unless we have unpacked the source code as uid 1...) -print "not " unless -w 'op'; -print "ok 8\n"; +if ($Config{d_seteuid}) { + print "not " unless -w 'op'; + print "ok 8\n"; +} else { + print "ok 8 #skipped, no seteuid\n"; +} print "not " unless -x 'op'; # Hohum. Are directories -x everywhere? print "ok 9\n"; |