Browse files

Fix address untainting error.

Reported by Alberto Simões on irc.perl.org and diagnosted with copious
help from Chris Williams.  Thanks, guys!
  • Loading branch information...
1 parent e7a90be commit fffbf328e75b3cfc068d731f3bfea885b3874201 @rcaputo committed May 15, 2012
Showing with 1 addition and 1 deletion.
  1. +1 −1 lib/POE/Wheel/SocketFactory.pm
View
2 lib/POE/Wheel/SocketFactory.pm
@@ -497,7 +497,7 @@ sub new {
my $domain = delete $params{SocketDomain};
if (defined $domain) {
# [rt.cpan.org 76314] Untaint the domain.
- ($domain) = ($domain =~ /\A(.*)\z/);
+ ($domain) = ($domain =~ /\A(.*)\z/s);
}
else {
$domain = AF_INET;

0 comments on commit fffbf32

Please sign in to comment.