Fix address untainting error.

Reported by Alberto Simões on irc.perl.org and diagnosted with copious help from Chris Williams. Thanks, guys!
rcaputo · May 15, 2012 · 202dea1 · 202dea1
1 parent 963f8fe
commit 202dea1
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lib/POE/Component/Resolver.pm b/lib/POE/Component/Resolver.pm
@@ -503,7 +503,7 @@ sub unpack_addr {
 	my ($self, $address_rec) = @_;
 
 	# [rt.cpan.org 76314] Untaint the address.
-	my ($input_addr) = ($address_rec->{addr} =~ /\A(.*)\z/);
+	my ($input_addr) = ($address_rec->{addr} =~ /\A(.*)\z/s);
 
 	my ($error, $address, $port) = (
 		(getnameinfo $input_addr, NI_NUMERICHOST | NI_NUMERICSERV)[0,1]