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 (file)
--- 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" )