From: Abigail <abigail@abigail.be>
Date: Tue, 1 Jun 2010 16:27:43 +0000 (+0200)
Subject: Skip two Japhs that use the fact that split in void context splitted
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=540810e8986e170e75f4b34a7ca1f1dd5b0da3c4;p=p5sagit%2Fp5-mst-13.2.git

Skip two Japhs that use the fact that split in void context splitted
to @_. This is no longer true in 5.12.0 and upwards.
---

diff --git a/t/japh/abigail.t b/t/japh/abigail.t
index 6ff5358..f397bb9 100644
--- a/t/japh/abigail.t
+++ b/t/japh/abigail.t
@@ -608,12 +608,14 @@ $;=$";$;{Just=>another=>Perl=>Hacker=>}=$/;print%;
 $_ = "\112\165\163\1648\141\156\157\164\150\145\1628\120\145"
    . "\162\1548\110\141\143\153\145\162\0128\177"  and &japh;
 sub japh {print "@_" and return if pop; split /\d/ and &japh}
+SKIP: As of 5.12.0, split() in void context no longer populates @_.
 
 ####### magic goto.
 sub _ {$_ = shift and y/b-yB-Y/a-yB-Y/                xor      !@ _?
        exit print                                                  :
             print and push @_ => shift and goto &{(caller (0)) [3]}}
             split // => "KsvQtbuf fbsodpmu\ni flsI "  xor       & _
+SKIP: As of 5.12.0, split() in void context no longer populates @_.
 
 ####### $: fun 1
 :$:=~s:$":Just$&another$&:;$:=~s: