[Catalyst] Catalyst::Helper POD patch

[C. Garrett Goebel]

The attached diff patches Catalyst::Helper's embedded file templates to
read:

- test.pl
+ [% appprefix %]_test.pl

- server.pl
+ [% appprefix %]_server.pl

- create.pl
+ [% appprefix %]_create.pl

I.e., it makes the documentation match the generated scripts...

Garrett

-------------- next part --------------
--- /usr/lib/perl5/site_perl/5.8.5/Catalyst/Helper.pm	2005-06-24 09:37:42.000000000 -0500
+++ ./Helper.pm	2005-06-28 13:42:53.000000000 -0500
@@ -84,7 +84,7 @@ sub mk_app {
 
 =head3 mk_component
 
-This method is called by create.pl to make new components
+This method is called by script/[appprefix]_create.pl to make new components
 for your application.
 
 =cut
@@ -633,7 +633,7 @@ server - Catalyst Testserver
 
 =head1 SYNOPSIS
 
-server.pl [options]
+[% appprefix %]_server.pl [options]
 
  Options:
    -? -help    display this help and exits
@@ -687,14 +687,14 @@ test - Catalyst Test
 
 =head1 SYNOPSIS
 
-test.pl [options] uri
+[% appprefix %]_test.pl [options] uri
 
  Options:
    -help    display this help and exits
 
  Examples:
-   test.pl http://localhost/some_action
-   test.pl /some_action
+   [% appprefix %]_test.pl http://localhost/some_action
+   [% appprefix %]_test.pl /some_action
 
  See also:
    perldoc Catalyst::Manual
@@ -741,19 +741,19 @@ create - Create a new Catalyst Component
 
 =head1 SYNOPSIS
 
-create.pl [options] model|view|controller name [helper] [options]
+[% appprefix %]_create.pl [options] model|view|controller name [helper] [options]
 
  Options:
    -help    display this help and exits
 
  Examples:
-   create.pl controller My::Controller
-   create.pl view My::View
-   create.pl view MyView TT
-   create.pl view TT TT
-   create.pl model My::Model
-   create.pl model SomeDB CDBI dbi:SQLite:/tmp/my.db
-   create.pl model AnotherDB CDBI dbi:Pg:dbname=foo root 4321
+   [% appprefix %]_create.pl controller My::Controller
+   [% appprefix %]_create.pl view My::View
+   [% appprefix %]_create.pl view MyView TT
+   [% appprefix %]_create.pl view TT TT
+   [% appprefix %]_create.pl model My::Model
+   [% appprefix %]_create.pl model SomeDB CDBI dbi:SQLite:/tmp/my.db
+   [% appprefix %]_create.pl model AnotherDB CDBI dbi:Pg:dbname=foo root 4321
 
  See also:
    perldoc Catalyst::Manual