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

diff --git a/t/op/filetest.t b/t/op/filetest.t
index 66eaa39..e00d5fb 100644 (file)
--- 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}) {