[Catalyst-commits] r10744 - Catalyst-Runtime/5.80/branches/better_scripts/lib/Catalyst/Script

[dhoss at dev.catalyst.perl.org]

Author: dhoss
Date: 2009-06-30 18:28:47 +0000 (Tue, 30 Jun 2009)
New Revision: 10744

Modified:
   Catalyst-Runtime/5.80/branches/better_scripts/lib/Catalyst/Script/Server.pm
Log:
fixed Server


Modified: Catalyst-Runtime/5.80/branches/better_scripts/lib/Catalyst/Script/Server.pm
===================================================================
--- Catalyst-Runtime/5.80/branches/better_scripts/lib/Catalyst/Script/Server.pm	2009-06-30 17:28:18 UTC (rev 10743)
+++ Catalyst-Runtime/5.80/branches/better_scripts/lib/Catalyst/Script/Server.pm	2009-06-30 18:28:47 UTC (rev 10744)
@@ -1,5 +1,10 @@
 package Catalyst::Script::Server;
 
+BEGIN {
+    $ENV{CATALYST_ENGINE} ||= 'HTTP';
+    $ENV{CATALYST_SCRIPT_GEN} = 31;
+    require Catalyst::Engine::HTTP;
+}
 
 use FindBin qw/$Bin/;
 use lib "$Bin/../lib";