integrate cfgperl contents into mainline

[perl5.git] / t / op / filetest.t

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