perl-Mojolicious/Mojolicious-6.12.cleanup.patch

13 lines
624 B
Diff
Raw Permalink Normal View History

diff -ru work.orig/Mojolicious-6.12/lib/Mojo/UserAgent.pm work/Mojolicious-6.12/lib/Mojo/UserAgent.pm
--- work.orig/Mojolicious-6.12/lib/Mojo/UserAgent.pm 2015-06-10 10:14:05.000000000 -0400
+++ work/Mojolicious-6.12/lib/Mojo/UserAgent.pm 2015-07-07 15:05:31.000000000 -0400
@@ -76,7 +76,7 @@
$self->_finish($_, 1) for keys %{$self->{connections} || {}};
# Clean up keep-alive connections
- my $loop = $self->_loop(0);
+ my $loop = $self->_loop(0) or return;
$loop->remove($_->[1]) for @{delete $self->{queue} || []};
$loop = $self->_loop(1);
$loop->remove($_->[1]) for @{delete $self->{nb_queue} || []};