From: François Désarménien <desar@club-internet.fr>
Date: Tue, 27 Jul 1999 22:54:05 +0000 (+0200)
Subject: The op/filetest.t failed subtest 7 if testing as root.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=fd1e013efb606b51dc27fba846b1bedb38910a76;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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}) {