This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
skip unreadable directory test when running as root
authorGurusamy Sarathy <gsar@cpan.org>
Wed, 20 Oct 1999 00:37:46 +0000 (00:37 +0000)
committerGurusamy Sarathy <gsar@cpan.org>
Wed, 20 Oct 1999 00:37:46 +0000 (00:37 +0000)
p4raw-id: //depot/perl@4414

t/lib/glob-basic.t

index e3e53fe..dde8773 100755 (executable)
@@ -68,16 +68,20 @@ print "ok 5\n";
 
 # check bad protections
 # should return an empty list, and set ERROR
 
 # check bad protections
 # should return an empty list, and set ERROR
-$dir = "PtEeRsLt.dir";
-mkdir $dir, 0;
-@a = File::Glob::glob("$dir/*", GLOB_ERR);
-#print "\@a = ", array(@a);
-rmdir $dir;
-if (scalar(@a) != 0 || (($^O ne 'MSWin32' and $^O ne 'os2')
-                       && GLOB_ERROR == 0)) {
-    print "not ";
+if ($^O eq 'MSWin32' or $^O eq 'os2' or not $>) {
+    print "ok 6 # skipped\n";
+}
+else {
+    $dir = "PtEeRsLt.dir";
+    mkdir $dir, 0;
+    @a = File::Glob::glob("$dir/*", GLOB_ERR);
+    #print "\@a = ", array(@a);
+    rmdir $dir;
+    if (scalar(@a) != 0 || GLOB_ERROR == 0) {
+       print "not ";
+    }
+    print "ok 6\n";
 }
 }
-print "ok 6\n";
 
 # check for csh style globbing
 @a = File::Glob::glob('{a,b}', GLOB_BRACE | GLOB_NOMAGIC);
 
 # check for csh style globbing
 @a = File::Glob::glob('{a,b}', GLOB_BRACE | GLOB_NOMAGIC);