[Catalyst-commits] r7273 - in Catalyst-Runtime/5.70/trunk: . lib/Catalyst/Engine

[andyg at dev.catalyst.perl.org]

Author: andyg
Date: 2007-12-11 14:17:58 +0000 (Tue, 11 Dec 2007)
New Revision: 7273

Modified:
   Catalyst-Runtime/5.70/trunk/Changes
   Catalyst-Runtime/5.70/trunk/lib/Catalyst/Engine/HTTP.pm
Log:
Fixed a bug where -rr (restart regex) command line option could cause shell errors

Modified: Catalyst-Runtime/5.70/trunk/Changes
===================================================================
--- Catalyst-Runtime/5.70/trunk/Changes	2007-12-11 11:32:39 UTC (rev 7272)
+++ Catalyst-Runtime/5.70/trunk/Changes	2007-12-11 14:17:58 UTC (rev 7273)
@@ -5,6 +5,8 @@
         - Add Catalyst::Stats (Jon Schutz)
         - Fixed a bug where ?q=bar=baz is decoded as q=>'bar', not 'bar=baz'.
           (Tatsuhiko Miyagawa, Masahiro Nagano)
+        - Fixed a bug where -rr (restart regex) command line option could cause
+          shell errors. (Aristotle Pagaltzis, Chisel Wright)
 
 5.7011  2007-10-18 20:40:00
         - Allow multiple restart directories and added option to follow

Modified: Catalyst-Runtime/5.70/trunk/lib/Catalyst/Engine/HTTP.pm
===================================================================
--- Catalyst-Runtime/5.70/trunk/lib/Catalyst/Engine/HTTP.pm	2007-12-11 11:32:39 UTC (rev 7272)
+++ Catalyst-Runtime/5.70/trunk/lib/Catalyst/Engine/HTTP.pm	2007-12-11 14:17:58 UTC (rev 7273)
@@ -333,7 +333,7 @@
         use Config;
         $ENV{PERL5LIB} .= join $Config{path_sep}, @INC; 
         
-        exec $^X . ' "' . $0 . '" ' . join( ' ', @{ $options->{argv} } );
+        exec $^X, $0, @{ $options->{argv} };
     }
 
     exit;