X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FSub-Prototype-Util.git;a=blobdiff_plain;f=t%2F11-wrap.t;h=c03654a133794f27f5659ab224159fbebf65172e;hp=50884709b596eff523d9506bece8c01f27be2775;hb=dc8381d3afc8122719bdacce75ee5c2d25c27d1d;hpb=854e5e2a4a5d49e193785f9c41431113146db43f

diff --git a/t/11-wrap.t b/t/11-wrap.t
index 5088470..c03654a 100644
--- a/t/11-wrap.t
+++ b/t/11-wrap.t
@@ -56,7 +56,7 @@ sub cb (\[$@]\[%&]&&);
 my $cb = wrap 'main::cb', sub => 0, wrong_ref => 'die';
 my $x = ', sub{&{$c[0]}}, sub{&{$c[1]}}) ';
 is($cb,
-   join('', q!{ my @c; push @c, $_[2]; push @c, $_[3]; !,
+   join('', q!{ my @c = @_[2, 3]; !,
             q!my $r = ref($_[0]); !,
             q!if ($r eq 'SCALAR') { !,
              q!my $r = ref($_[1]); !,