You're not passing your function a reference to an array, but a typeglob. Under Perl 4 and earlier this was the only was to simulate passing by reference, but with Perl 5 you can take a reference to an array using \@array. Of course, you may need to change what's inside your function too.
As for why my doesn't work - my creates a lexical variable which doesn't live in a typeglob, therefore you're not passing the 'right' @array variable into your function. You're passing the package variable @main::array.
Liberal use of -w and use strict would have pointed out some of these problems to you.
--
<http://www.dave.org.uk>
European Perl Conference - Sept 22/24 2000, ICA, London
<http://www.yapc.org/Europe/>
|