The normal (Perlish, elegant) way of doing list references would be as follows:
# Save our place.
push @stack, [$i, $curlvl, \@thisBOM];
...
# Now, recover where we left off.
($i, $curlvl, $raBOM) = @{pop @stack};
...
print "$i: @{$raBOM->[$i]}\n";
I believe it has the added bonus of not copying the entire list when you do the
push.
- - Martin
_______________________________________________
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
