fixed Perl 5.18.x compatibility

mojolicious · Jul 26, 2014 · ae38e38 · ae38e38
1 parent 3f0b782
commit ae38e38
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 1 deletion.
diff --git a/Changes b/Changes
@@ -2,6 +2,7 @@
 5.20  2014-07-27
   - Fixed a few bugs in Mojolicious::Plugin::PODRenderer by switching from
     Pod::Simple::HTML to Pod::Simple::XHTML.
+  - Fixed Perl 5.18.x compatibility.
 
 5.19  2014-07-26
   - Improved support for Unicode anchors in Mojolicious::Plugin::PODRenderer.

diff --git a/lib/Mojo/Reactor.pm b/lib/Mojo/Reactor.pm
@@ -15,7 +15,9 @@ sub detect {
 sub io { croak 'Method "io" not implemented by subclass' }
 
 # This may break at some point in the future, but is worth it for performance
-sub is_readable { !(IO::Poll::_poll(0, fileno(pop), POLLIN | POLLPRI) == 0) }
+sub is_readable {
+  !(IO::Poll::_poll(0, fileno(pop), my $dummy = POLLIN | POLLPRI) == 0);
+}
 
 sub is_running { croak 'Method "is_running" not implemented by subclass' }