[tpm] dereferencing arrays

[Fulko Hew]

I'm looking closer and yes, my example was wrong,
I was actually using () instead of [], but the
target has its additional indirection too.
refer to the corrections below:

my $host = shift;
my $hosts = [ $host ];
foreach $h (@{$hosts}) { ... }

and I'm actually calling it with:

@list = ('1.2.3.4', '2.3.4.5');
Net::SMTP->new(\@list, ...);
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://mail.pm.org/pipermail/toronto-pm/attachments/20080627/17f861f0/attachment.html