public
Created

  • Download Gist
gistfile1.txt
1 2 3 4
$ perl -E 'sub a { my ($b, @c) = @_; $c[0]++ } my @d = (42); a(17, @d); say @d'
42
$ perl -E 'sub a { my ($b, $c) = @_; $c->[0]++ } my @d = (42); a(17, \@d); say @d'
43

Please sign in to comment on this gist.

Something went wrong with that request. Please try again.