From: Marcus Ramberg <marcus@nordaaker.com>
Date: Tue, 29 Nov 2005 13:56:22 +0000 (+0000)
Subject: applied patch from autrijus to fix warnings in generated code.
X-Git-Tag: 5.7099_04~817
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=commitdiff_plain;h=477f4389f114f340fd88154459367674af5a3961

applied patch from autrijus to fix warnings in generated code.
---

diff --git a/Changes b/Changes
index c5f5231..d82230f 100644
--- 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
--- 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,