Fix for PerlDancer#141 "Scaffolded dispatch.cgi is broken."

leto · Oct 14, 2010 · cc43bf5 · cc43bf5
1 parent f5996ed
commit cc43bf5
Showing 1 changed file with 8 additions and 5 deletions.
diff --git a/script/dancer b/script/dancer
@@ -469,22 +469,25 @@ Powered by <a href="http://perldancer.org/">Dancer</a> <% dancer_version %>
 
 "dispatch.cgi" =>
 "$PERL_INTERPRETER
+use Dancer ':syntax';
+use FindBin '\$RealBin';
 use Plack::Runner;
-use Dancer;
 
-my \$psgi = path(setting('appdir'), 'bin', 'app.pl');
+my \$psgi = path(\$RealBin, '..', 'bin', 'app.pl');
 Plack::Runner->run(\$psgi);
 ",
 
+
 "dispatch.fcgi" =>
 "$PERL_INTERPRETER
+use Dancer ':syntax';
+use FindBin '\$RealBin';
 use Plack::Handler::FCGI;
-use Dancer;
 
-my \$psgi = path(setting('appdir'), 'bin', 'app.pl');
+my \$psgi = path(\$RealBin, '..', 'bin', 'app.pl');
 my \$app = do(\$psgi);
+my \$server = Plack::Handler::FCGI->new(nproc => 5, detach => 1);
 
-my \$server = Plack::Handler::FCGI->new(nproc  => 5, detach => 1);
 \$server->run(\$app);
 ",