perl-Mojolicious/Mojolicious-6.15.cleanup.patch

22 lines
800 B
Diff

Only in work.orig/: Mojolicious-6.12
diff -ru work.orig/Mojolicious-6.15/lib/Mojo/IOLoop.pm work/Mojolicious-6.15/lib/Mojo/IOLoop.pm
--- work.orig/Mojolicious-6.15/lib/Mojo/IOLoop.pm 2015-08-18 16:15:57.000000000 -0400
+++ work/Mojolicious-6.15/lib/Mojo/IOLoop.pm 2015-08-18 16:53:48.000000000 -0400
@@ -168,14 +168,14 @@
sub _maybe_accepting {
my $self = shift;
return if $self->{accepting} || $self->_limit;
- $_->start for values %{$self->{acceptors} || {}};
+ do { $_->start if $_ } for values %{$self->{acceptors} || {}};
$self->{accepting} = 1;
}
sub _not_accepting {
my $self = shift;
return $self unless delete $self->{accepting};
- $_->stop for values %{$self->{acceptors} || {}};
+ do { $_->stop if $_ } for values %{$self->{acceptors} || {}};
return $self;
}