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

[t0m at dev.catalyst.perl.org]

Author: t0m
Date: 2009-10-05 22:17:11 +0000 (Mon, 05 Oct 2009)
New Revision: 11461

Modified:
   Catalyst-Runtime/5.80/branches/better_scripts/lib/Catalyst/Script/Server.pm
Log:
And start the app correctly(ish) under the restarter - really not sure args are perserved correctly?

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-10-05 22:11:21 UTC (rev 11460)
+++ Catalyst-Runtime/5.80/branches/better_scripts/lib/Catalyst/Script/Server.pm	2009-10-05 22:17:11 UTC (rev 11461)
@@ -150,8 +150,8 @@
 
         my $restarter = $subclass->new(
             %args,
-            start_sub => sub { $self->_run },
-            argv      => \$self->ARGV,
+            start_sub => sub { $self->_run_application },
+            argv      => $self->ARGV,
         );
 
         $restarter->run_and_watch;