[Catalyst-commits] r9067 - in Catalyst-Plugin-DebugCookie/1.000/trunk: . lib/Catalyst/Plugin

[jgoulah at dev.catalyst.perl.org]

Author: jgoulah
Date: 2009-01-12 04:29:00 +0000 (Mon, 12 Jan 2009)
New Revision: 9067

Modified:
   Catalyst-Plugin-DebugCookie/1.000/trunk/Changes
   Catalyst-Plugin-DebugCookie/1.000/trunk/lib/Catalyst/Plugin/DebugCookie.pm
Log:
applying toms fix to make this work on 5.80

Modified: Catalyst-Plugin-DebugCookie/1.000/trunk/Changes
===================================================================
--- Catalyst-Plugin-DebugCookie/1.000/trunk/Changes	2009-01-12 03:53:22 UTC (rev 9066)
+++ Catalyst-Plugin-DebugCookie/1.000/trunk/Changes	2009-01-12 04:29:00 UTC (rev 9067)
@@ -1,3 +1,5 @@
+0.999003
+        - Fix to work correctly with Catalyst 5.80
 
 0.999002  2008-10-02 
         - up Catalyst dep b/c this requires Catalyst::Stats 

Modified: Catalyst-Plugin-DebugCookie/1.000/trunk/lib/Catalyst/Plugin/DebugCookie.pm
===================================================================
--- Catalyst-Plugin-DebugCookie/1.000/trunk/lib/Catalyst/Plugin/DebugCookie.pm	2009-01-12 03:53:22 UTC (rev 9066)
+++ Catalyst-Plugin-DebugCookie/1.000/trunk/lib/Catalyst/Plugin/DebugCookie.pm	2009-01-12 04:29:00 UTC (rev 9067)
@@ -6,7 +6,7 @@
 use Class::C3;
 use Catalyst::Plugin::DebugCookie::Util qw/check_debug_cookie_value/;
 
-our $VERSION = '0.999002';
+our $VERSION = '0.999003';
 
 =head1 NAME
 
@@ -99,7 +99,7 @@
 sub debug { 
 	my $self = shift;
 	if (ref $self) { 
-		return $self->{debug} ||= $self->valid_debug_mode; 
+		return $self->next::method(@_) || $self->valid_debug_mode; 
 	} else {
 		$self->next::method(@_); 
 	}