diff options
| author | Abigail <abigail@abigail.be> | 2010-06-01 18:27:43 +0200 |
|---|---|---|
| committer | Abigail <abigail@abigail.be> | 2010-06-01 18:27:43 +0200 |
| commit | 540810e8986e170e75f4b34a7ca1f1dd5b0da3c4 (patch) | |
| tree | 56bcfe3f9dd2cb1e158a393754a621a34414745a /t/japh | |
| parent | 321499b5be1bfbade4d0e2e11136d1d4d87a5e7f (diff) | |
| download | perl-540810e8986e170e75f4b34a7ca1f1dd5b0da3c4.tar.gz | |
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.
Diffstat (limited to 't/japh')
| -rw-r--r-- | t/japh/abigail.t | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/t/japh/abigail.t b/t/japh/abigail.t index 6ff5358fea..f397bb96be 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: |