[Catalyst-commits] r11101 - Catalyst-Devel/1.00/branches/moosify_api/lib/Catalyst

dhoss at dev.catalyst.perl.org dhoss at dev.catalyst.perl.org
Mon Aug 10 08:41:29 GMT 2009


Author: dhoss
Date: 2009-08-10 08:41:27 +0000 (Mon, 10 Aug 2009)
New Revision: 11101

Modified:
   Catalyst-Devel/1.00/branches/moosify_api/lib/Catalyst/Helper.pm
Log:
need to move the marked lines into one method


Modified: Catalyst-Devel/1.00/branches/moosify_api/lib/Catalyst/Helper.pm
===================================================================
--- Catalyst-Devel/1.00/branches/moosify_api/lib/Catalyst/Helper.pm	2009-08-10 08:40:24 UTC (rev 11100)
+++ Catalyst-Devel/1.00/branches/moosify_api/lib/Catalyst/Helper.pm	2009-08-10 08:41:27 UTC (rev 11101)
@@ -266,12 +266,13 @@
     $self->render_sharedir_file( File::Spec->catfile('t', '03podcoverage.t.tt'), "$t\/03podcoverage.t" );
 }
 
+# these can certainly be globbed into one method
 sub _mk_cgi {
     my $self      = shift;
     my $script    = $self->{script};
     my $appprefix = $self->{appprefix};
     $self->render_sharedir_file( File::Spec->catfile('script', 'myapp_cgi.pl.tt'), "$script\/$appprefix\_cgi.pl" );
-    chmod 0700, "$script/$appprefix\_cgi.pl";
+    chmod 0700, "$script/$appprefix\_cgi.pl"; # FIXME
 }
 
 sub _mk_fastcgi {
@@ -279,7 +280,7 @@
     my $script    = $self->{script};
     my $appprefix = $self->{appprefix};
     $self->render_sharedir_file( File::Spec->catfile('script', 'myapp_fastcgi.pl.tt'), "$script\/$appprefix\_fastcgi.pl" );
-    chmod 0700, "$script/$appprefix\_fastcgi.pl";
+    chmod 0700, "$script/$appprefix\_fastcgi.pl"; # FIXME
 }
 
 sub _mk_server {
@@ -287,7 +288,7 @@
     my $script    = $self->{script};
     my $appprefix = $self->{appprefix};
     $self->render_sharedir_file( File::Spec->catfile('script', 'myapp_server.pl.tt'), "$script\/$appprefix\_server.pl" );
-    chmod 0700, "$script/$appprefix\_server.pl";
+    chmod 0700, "$script/$appprefix\_server.pl"; # FIXME
 }
 
 sub _mk_test {
@@ -295,7 +296,7 @@
     my $script    = $self->{script};
     my $appprefix = $self->{appprefix};
     $self->render_sharedir_file( File::Spec->catfile('script', 'myapp_test.pl.tt'), "$script/$appprefix\_test.pl" );
-    chmod 0700, "$script/$appprefix\_test.pl";
+    chmod 0700, "$script/$appprefix\_test.pl"; # FIXME
 }
 
 sub _mk_create {
@@ -303,7 +304,7 @@
     my $script    = $self->{script};
     my $appprefix = $self->{appprefix};
     $self->render_sharedir_file( File::Spec->catfile('script', 'myapp_create.pl.tt'), "$script\/$appprefix\_create.pl" );
-    chmod 0700, "$script/$appprefix\_create.pl";
+    chmod 0700, "$script/$appprefix\_create.pl"; # FIXME
 }
 
 # DIE DIE DIE




More information about the Catalyst-commits mailing list