Re: a question on the symbol

2009-12-13 Thread Peter Scott
On Sun, 13 Dec 2009 23:43:44 +0800, Xiao Lan (小兰) wrote: > Hello, > > my $obj; > > my $h; > foreach $h (@{ref($hosts) ? $hosts : [$hosts]}) { > $obj = $type->SUPER::new( > PeerAddr => ($host = $h), > PeerPort => $arg{Port} || 'smtp(25)', LocalAddr => > $arg{LocalAddr}

a question on the symbol

2009-12-13 Thread 小兰
Hello, my $obj; my $h; foreach $h (@{ref($hosts) ? $hosts : [$hosts]}) { $obj = $type->SUPER::new( PeerAddr => ($host = $h), PeerPort => $arg{Port} || 'smtp(25)', LocalAddr => $arg{LocalAddr}, LocalPort => $arg{LocalPort}, Proto => 'tcp', Timeout