Subject: | Easy tweak to support hostname reoslution by remote host |
# in Net/Async/SOCKS.pm :
135 $proto->auth(
136 )->then(sub {
137 $proto->connect(
138 ( $params{host} =~ /^\d{1,3}(\.\d{1,3}){3}$/
139 ? ATYPE_IPV4
140 : ATYPE_FQDN
141 ),
142 $params{host},
143 $params{service},
144 )->transform(
145 done => sub {
146 $loop->remove($stream);
147 $stream
148 }
149 )
150 })