Browse files

Make PoCo-Resolver work on Perl 5.8. Resolves rt.cpan.org #65179.

  • Loading branch information...
1 parent 17a4f8b commit 11b45c5ee3d17a3b7f7982c0ff642f99729bbc78 @maddingue maddingue committed with Jan 27, 2011
Showing with 2 additions and 2 deletions.
  1. +2 −2 lib/POE/Component/Resolver.pm
View
4 lib/POE/Component/Resolver.pm
@@ -290,10 +290,10 @@ sub resolve {
);
my $misc = delete $args{misc};
- $misc //= "";
+ $misc = "" unless defined $misc;
my $hints = delete $args{hints};
- $hints //= { };
+ $hints ||= { };
my $event = delete $args{event};
$event = "resolver_response" unless defined $event and length $event;

0 comments on commit 11b45c5

Please sign in to comment.