applied patch from autrijus to fix warnings in generated code.

diff --git a/Changes b/Changes
index c5f5231..d82230f 100644 (file)
--- a/Changes
+++ b/Changes
@@ -4,10 +4,11 @@ This file documents the revision history for Perl extension Catalyst.
         - Fixed shebang line for generated scripts
         - Added REDIRECT_URL support
         - Fixed forward to classes ($c->forward(qw/MyApp foo/))
+        - wrap use block in begin to quelch C:C3 warnings
 
 5.58    2005-11-24 10:51:00
         - Added ExtUtils::AutoInstall support
-       - Allow overriding path in Catalyst::Helper.
+           - Allow overriding path in Catalyst::Helper.
         - Added -makefile to catalyst.pl to generate a new Makefile.PL.
         - Restored Catalyst::Build with a deprecation notice.
         - Improved PAR support

diff --git a/lib/Catalyst/Helper.pm b/lib/Catalyst/Helper.pm
index 00959cb..014fc5f 100644 (file)
--- a/lib/Catalyst/Helper.pm
+++ b/lib/Catalyst/Helper.pm
@@ -622,7 +622,7 @@ This file documents the revision history for Perl extension [% name %].
         - initial revision, generated by Catalyst
 __apptest__
 use Test::More tests => 2;
-use_ok( Catalyst::Test, '[% name %]' );
+BEGIN { use_ok( Catalyst::Test, '[% name %]' ); }
 
 ok( request('/')->is_success );
 __podtest__
@@ -803,7 +803,7 @@ if ( $debug ) {
     $ENV{CATALYST_DEBUG} = 1;
 }
 
-require [% name %];
+use [% name %];
 
 [% name %]->run( $port, $host, {
     argv          => \@argv,