diff options
| author | François Désarménien <desar@club-internet.fr> | 1999-07-28 00:54:05 +0200 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-08-03 21:11:11 +0000 |
| commit | fd1e013efb606b51dc27fba846b1bedb38910a76 (patch) | |
| tree | f832d901bdb870831b8e7679256644c1ab9f8f70 /t/op/filetest.t | |
| parent | a20bf0c3d4388ee237405eea459c5f4080c80cef (diff) | |
| download | perl-fd1e013efb606b51dc27fba846b1bedb38910a76.tar.gz | |
The op/filetest.t failed subtest 7 if testing as root.
To: perl5-porters@perl.org
Subject: [ID 19990727.039] Not OK: perl 5.00558 on i386-sco 3.2v5.0.4
Message-Id: <379E1C6D.626DC765@club-internet.fr>
p4raw-id: //depot/cfgperl@3914
Diffstat (limited to 't/op/filetest.t')
| -rw-r--r-- | 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 66eaa3933d..e00d5fb7b0 100644 --- a/t/op/filetest.t +++ b/t/op/filetest.t @@ -48,11 +48,13 @@ else { # Scripts are not -x everywhere so cannot test that. +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 -r 'op'; print "ok 7\n"; -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...) if ($Config{d_seteuid}) { |