From: Yves Orton <demerphq@gmail.com>
Date: Sat, 19 Feb 2005 11:04:00 +0000 (+0100)
Subject: (blead patch) Skip a torture test under blead, and skip certain torture tests under... 
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0d37d45345b4719e886fa62871a35dd0db1987b7;p=p5sagit%2Fp5-mst-13.2.git

(blead patch) Skip a torture test under blead, and skip certain torture tests under Win32.
Message-ID: <9b18b3110502190204641e103c@mail.gmail.com

p4raw-id: //depot/perl@23987
---

diff --git a/t/japh/abigail.t b/t/japh/abigail.t
index 98a26de..b5e719c 100644
--- a/t/japh/abigail.t
+++ b/t/japh/abigail.t
@@ -235,11 +235,11 @@ truncate$0,-1+-s$0;exec$0;}}//rekcaH_lreP_rehtona_tsuJ
     --
     chomp @programs;
 
-    if ($^O eq 'VMS') {
+    if ($^O eq 'VMS' or $^O eq 'MSWin32') {
         # VMS needs extensions for files to be executable,
         # but the Japhs above rely on $0 being exactly the
         # filename of the program.
-        skip "VMS", 2 * @programs;
+        skip $^O, 2 * @programs;
         last
     }
 
@@ -481,6 +481,7 @@ SKIP: Abuses a fixed bug.
 
 #######  Prototype fun 3
 sub _ "Just another Perl Hacker"; print prototype \&_
+SKIP: Abuses a fixed bug.
 
 #######  Split 1
                split // => '"';