Clean up wrap()

[perl/modules/Sub-Prototype-Util.git] / t / 11-wrap.t

diff --git a/t/11-wrap.t b/t/11-wrap.t
index 50884709b596eff523d9506bece8c01f27be2775..c03654a133794f27f5659ab224159fbebf65172e 100644 (file)
--- 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]); !,