[Catalyst-commits] r12600 -
Catalyst-Runtime/5.80/branches/psgi/lib/Catalyst
rafl at dev.catalyst.perl.org
rafl at dev.catalyst.perl.org
Sun Jan 10 20:30:07 GMT 2010
Author: rafl
Date: 2010-01-10 20:30:06 +0000 (Sun, 10 Jan 2010)
New Revision: 12600
Modified:
Catalyst-Runtime/5.80/branches/psgi/lib/Catalyst/Engine.pm
Log:
At least pass the port param to _run_psgi_app to get http-server.t running again.
Modified: Catalyst-Runtime/5.80/branches/psgi/lib/Catalyst/Engine.pm
===================================================================
--- Catalyst-Runtime/5.80/branches/psgi/lib/Catalyst/Engine.pm 2010-01-10 19:05:43 UTC (rev 12599)
+++ Catalyst-Runtime/5.80/branches/psgi/lib/Catalyst/Engine.pm 2010-01-10 20:30:06 UTC (rev 12600)
@@ -751,7 +751,6 @@
sub run {
my ($self, $app, @args) = @_;
- Carp::cluck("Run");
# FIXME - Do something sensible with the options we're passed
$self->_run_psgi_app($self->_build_psgi_app($app, @args), @args);
}
@@ -783,9 +782,9 @@
}
sub _run_psgi_app {
- my ($self, $psgi_app, @args);
+ my ($self, $psgi_app, @args) = @_;
# FIXME - Need to be able to specify engine and pass options..
- Plack::Loader->auto()->run($psgi_app);
+ Plack::Loader->auto(port => $args[0])->run($psgi_app);
}
=head2 $self->write($c, $buffer)
More information about the Catalyst-commits
mailing list