import Catalyst-Action-RenderView 0.16

git-cpan-module: Catalyst-Action-RenderView git-cpan-version: 0.16 git-cpan-authorid: BOBTFISH
perl-catalyst · Oct 12, 2024 · 4671430 · 4671430
1 parent d71208e
commit 4671430
Show file tree

Hide file tree

Showing 11 changed files with 18 additions and 18 deletions.
diff --git a/Changes b/Changes
@@ -1,3 +1,7 @@
+0.16 2011-01-05 19:28:00 GMT
+    - Fix bug accidentally introduced in the last version with response
+      3xx statuses.
+
 0.15 2011-01-04 14:19:36 CET
     - Don't delegate to a view if the response body is set to `undef'.
     - Make sure a Test::More with done_testing support is available.

diff --git a/META.yml b/META.yml
@@ -9,7 +9,7 @@ build_requires:
 configure_requires:
   ExtUtils::MakeMaker: 6.42
 distribution_type: module
-generated_by: 'Module::Install version 1.00'
+generated_by: 'Module::Install version 0.91'
 license: perl
 meta-spec:
   url: http://module-build.sourceforge.net/META-spec-v1.4.html
@@ -27,4 +27,4 @@ requires:
 resources:
   license: http://dev.perl.org/licenses/
   repository: http://dev.catalyst.perl.org/repos/Catalyst/Catalyst-Action-RenderView/trunk/
-version: 0.15
+version: 0.16
diff --git a/inc/Module/Install.pm b/inc/Module/Install.pm
@@ -31,7 +31,7 @@ BEGIN {
 	# This is not enforced yet, but will be some time in the next few
 	# releases once we can make sure it won't clash with custom
 	# Module::Install extensions.
-	$VERSION = '1.00';
+	$VERSION = '0.99';
 
 	# Storage for the pseudo-singleton
 	$MAIN    = undef;
@@ -230,12 +230,8 @@ sub preload {
 sub new {
 	my ($class, %args) = @_;
 
-	delete $INC{'FindBin.pm'};
-	{
-		# to suppress the redefine warning
-		local $SIG{__WARN__} = sub {};
-		require FindBin;
-	}
+    delete $INC{'FindBin.pm'};
+    require FindBin;
 
 	# ignore the prefix on extension modules built from top level.
 	my $base_path = Cwd::abs_path($FindBin::Bin);

diff --git a/inc/Module/Install/Base.pm b/inc/Module/Install/Base.pm
@@ -4,7 +4,7 @@ package Module::Install::Base;
 use strict 'vars';
 use vars qw{$VERSION};
 BEGIN {
-	$VERSION = '1.00';
+	$VERSION = '0.99';
 }
 
 # Suspend handler for "redefined" warnings

diff --git a/inc/Module/Install/Can.pm b/inc/Module/Install/Can.pm
@@ -9,7 +9,7 @@ use Module::Install::Base ();
 
 use vars qw{$VERSION @ISA $ISCORE};
 BEGIN {
-	$VERSION = '1.00';
+	$VERSION = '0.99';
 	@ISA     = 'Module::Install::Base';
 	$ISCORE  = 1;
 }

diff --git a/inc/Module/Install/Fetch.pm b/inc/Module/Install/Fetch.pm
@@ -6,7 +6,7 @@ use Module::Install::Base ();
 
 use vars qw{$VERSION @ISA $ISCORE};
 BEGIN {
-	$VERSION = '1.00';
+	$VERSION = '0.99';
 	@ISA     = 'Module::Install::Base';
 	$ISCORE  = 1;
 }

diff --git a/inc/Module/Install/Makefile.pm b/inc/Module/Install/Makefile.pm
@@ -8,7 +8,7 @@ use Fcntl qw/:flock :seek/;
 
 use vars qw{$VERSION @ISA $ISCORE};
 BEGIN {
-	$VERSION = '1.00';
+	$VERSION = '0.99';
 	@ISA     = 'Module::Install::Base';
 	$ISCORE  = 1;
 }

diff --git a/inc/Module/Install/Metadata.pm b/inc/Module/Install/Metadata.pm
@@ -6,7 +6,7 @@ use Module::Install::Base ();
 
 use vars qw{$VERSION @ISA $ISCORE};
 BEGIN {
-	$VERSION = '1.00';
+	$VERSION = '0.99';
 	@ISA     = 'Module::Install::Base';
 	$ISCORE  = 1;
 }

diff --git a/inc/Module/Install/Win32.pm b/inc/Module/Install/Win32.pm
@@ -6,7 +6,7 @@ use Module::Install::Base ();
 
 use vars qw{$VERSION @ISA $ISCORE};
 BEGIN {
-	$VERSION = '1.00';
+	$VERSION = '0.99';
 	@ISA     = 'Module::Install::Base';
 	$ISCORE  = 1;
 }

diff --git a/inc/Module/Install/WriteAll.pm b/inc/Module/Install/WriteAll.pm
@@ -6,7 +6,7 @@ use Module::Install::Base ();
 
 use vars qw{$VERSION @ISA $ISCORE};
 BEGIN {
-	$VERSION = '1.00';
+	$VERSION = '0.99';
 	@ISA     = qw{Module::Install::Base};
 	$ISCORE  = 1;
 }

diff --git a/lib/Catalyst/Action/RenderView.pm b/lib/Catalyst/Action/RenderView.pm
@@ -3,7 +3,7 @@ package Catalyst::Action::RenderView;
 use strict;
 use warnings;
 
-our $VERSION = '0.15';
+our $VERSION = '0.16';
 
 use base 'Catalyst::Action';
 
@@ -51,7 +51,7 @@ sub execute {
     return 1 if $c->req->method eq 'HEAD';
     return 1 if defined $c->response->body;
     return 1 if scalar @{ $c->error } && !$c->stash->{template};
-    return 1 if $c->response->status =~ /^(?:204)$/;
+    return 1 if $c->response->status =~ /^(?:204|3\d\d)$/;
     my $view = $c->view()
         || die "Catalyst::Action::RenderView could not find a view to forward to.\n";
     $c->forward( $view );