perl-Mojolicious/sme9/Mojolicious-6.12.cleanup.patch2

diff -ru work.orig/Mojolicious-6.12/lib/Mojo/Server/Daemon.pm work/Mojolicious-6.12/lib/Mojo/Server/Daemon.pm
--- work.orig/Mojolicious-6.12/lib/Mojo/Server/Daemon.pm        2015-07-07 15:03:05.000000000 -0400
+++ work/Mojolicious-6.12/lib/Mojo/Server/Daemon.pm     2015-07-08 17:00:16.000000000 -0400
@@ -20,7 +20,7 @@
   return if Mojo::Util::_global_destruction();
   my $self = shift;
   $self->_remove($_) for keys %{$self->{connections} || {}};
-  my $loop = $self->ioloop;
+  my $loop = $self->ioloop or return;
   $loop->remove($_) for @{$self->acceptors};
 }
 
@@ -209,7 +209,7 @@
 
 sub _remove {
   my ($self, $id) = @_;
-  $self->ioloop->remove($id);
+  $self->ioloop->remove($id) if $self->ioloop;
   $self->_close($id);
 }
 
1	diff -ru work.orig/Mojolicious-6.12/lib/Mojo/Server/Daemon.pm work/Mojolicious-6.12/lib/Mojo/Server/Daemon.pm
2	--- work.orig/Mojolicious-6.12/lib/Mojo/Server/Daemon.pm 2015-07-07 15:03:05.000000000 -0400
3	+++ work/Mojolicious-6.12/lib/Mojo/Server/Daemon.pm 2015-07-08 17:00:16.000000000 -0400
4	@@ -20,7 +20,7 @@
5	return if Mojo::Util::_global_destruction();
6	my $self = shift;
7	$self->_remove($_) for keys %{$self->{connections} \|\| {}};
8	- my $loop = $self->ioloop;
9	+ my $loop = $self->ioloop or return;
10	$loop->remove($_) for @{$self->acceptors};
11	}
12
13	@@ -209,7 +209,7 @@
14
15	sub _remove {
16	my ($self, $id) = @_;
17	- $self->ioloop->remove($id);
18	+ $self->ioloop->remove($id) if $self->ioloop;
19	$self->_close($id);
20	}
21