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

rafl at dev.catalyst.perl.org rafl at dev.catalyst.perl.org
Sun Nov 29 14:00:43 GMT 2009


Author: rafl
Date: 2009-11-29 14:00:43 +0000 (Sun, 29 Nov 2009)
New Revision: 12068

Modified:
   Catalyst-Runtime/5.80/branches/better_scripts/lib/Catalyst/Script/Server.pm
Log:
Remove useless lexical.

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-11-29 14:00:38 UTC (rev 12067)
+++ Catalyst-Runtime/5.80/branches/better_scripts/lib/Catalyst/Script/Server.pm	2009-11-29 14:00:43 UTC (rev 12068)
@@ -134,7 +134,7 @@
 sub _restarter_args {
     my $self = shift;
 
-    my %args = (
+    return (
         argv => $self->ARGV,
         start_sub => sub { $self->_run_application },
         ($self->_has_follow_symlinks   ? (follow_symlinks => $self->follow_symlinks)   : ()),
@@ -142,8 +142,6 @@
         ($self->_has_restart_directory ? (directories     => $self->restart_directory) : ()),
         ($self->_has_restart_regex     ? (filter          => $self->restart_regex)     : ()),
     );
-
-    return %args;
 }
 
 sub run {




More information about the Catalyst-commits mailing list