Pass protocol to the Runner callback. Fixes #306

plack · Jul 5, 2012 · 5e361d3 · 5e361d3
1 parent 532925c
commit 5e361d3
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lib/HTTP/Server/PSGI.pm b/lib/HTTP/Server/PSGI.pm
@@ -101,7 +101,7 @@ sub setup_listener {
     $self->{listen_sock} ||= $class->new(%args)
         or die "failed to listen to port $self->{port}: $!";
 
-    $self->{server_ready}->($self);
+    $self->{server_ready}->({ %$self, proto => $self->{ssl} ? 'https' : 'http' });
 }
 
 sub accept_loop {