From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Fri, 1 Aug 2003 05:21:36 +0000 (+0000)
Subject: JAPH patch :-) from Abigail.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=21d7e22a656cb024840f2ef05e8a28e500e7c91a;p=p5sagit%2Fp5-mst-13.2.git

JAPH patch :-) from Abigail.

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

diff --git a/t/japh/abigail.t b/t/japh/abigail.t
index 609294b..98a26de 100644
--- a/t/japh/abigail.t
+++ b/t/japh/abigail.t
@@ -477,6 +477,7 @@ SKIP: Abuses a fixed bug.
 
 #######  Prototype fun 2
 print prototype sub "Just another Perl Hacker" {};
+SKIP: Abuses a fixed bug.
 
 #######  Prototype fun 3
 sub _ "Just another Perl Hacker"; print prototype \&_
@@ -486,18 +487,21 @@ sub _ "Just another Perl Hacker"; print prototype \&_
 ${"@_"} = "/"; split // => eval join "+" => 1 .. 7;
 *{"@_"} = sub {foreach (sort keys %_)  {print "$_ $_{$_} "}};
 %{"@_"} = %_ = (Just => another => Perl => Hacker); &{%{%_}};
+SKIP: Hashes are now randomized.
 EXPECT: $JaPH_s
 
 #######  Split 2
 $" = "/"; split // => eval join "+" => 1 .. 7;
 *{"@_"} = sub {foreach (sort keys %_) {print "$_ $_{$_} "}};
 %_ = (Just => another => Perl => Hacker); &{%_};
+SKIP: Hashes are now randomized.
 EXPECT: $JaPH_s
 
 #######  Split 3
 $" = "/"; split $, => eval join "+" => 1 .. 7;
 *{"@_"} = sub  {foreach (sort keys %_) {print "$_ $_{$_} "}};
 %{"@_"} = %_ = (Just => another => Perl => Hacker); &{%{%_}};
+SKIP: Hashes are now randomized.
 EXPECT: $JaPH_s
 
 #######  Here documents 1