From: Craig A. Berry <craigberry@mac.com>
Date: Thu, 2 Apr 2009 17:30:54 +0000 (-0500)
Subject: Skip bug in new File::stat test.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e9fd6cc75e3a6bbac72b6b457dc1d06afe6eaf95;p=p5sagit%2Fp5-mst-13.2.git

Skip bug in new File::stat test.

-- index returns -1, not false when substring not found.

-- 2 tests in the block, not 1.
---

diff --git a/lib/File/stat.t b/lib/File/stat.t
index b1c4b9f..b53c9e9 100644
--- a/lib/File/stat.t
+++ b/lib/File/stat.t
@@ -58,8 +58,8 @@ is( $stat->blocks, $stat[12], "number of blocks in position 12" );
 
 for (split //, "rwxoRWXOezsfdlpSbcugkMCA") {
     SKIP: {
-        $^O eq "VMS" and index "rwxRWX", $_
-            and skip "File::stat ignores VMS ACLs", 1;
+        $^O eq "VMS" and index("rwxRWX", $_) >= 0
+            and skip "File::stat ignores VMS ACLs", 2;
 
         my $rv = eval "-$_ \$stat";
         ok( !$@,                            "-$_ overload succeeds" )