[Catalyst-commits] r8125 - in Catalyst-Runtime/5.70/trunk:
lib/Catalyst t t/lib/TestApp/Controller
bricas at dev.catalyst.perl.org
bricas at dev.catalyst.perl.org
Wed Jul 16 18:23:55 BST 2008
Author: bricas
Date: 2008-07-16 18:23:53 +0100 (Wed, 16 Jul 2008)
New Revision: 8125
Modified:
Catalyst-Runtime/5.70/trunk/lib/Catalyst/Dispatcher.pm
Catalyst-Runtime/5.70/trunk/t/lib/TestApp/Controller/Args.pm
Catalyst-Runtime/5.70/trunk/t/live_priorities.t
Log:
removing some Dumpers
Modified: Catalyst-Runtime/5.70/trunk/lib/Catalyst/Dispatcher.pm
===================================================================
--- Catalyst-Runtime/5.70/trunk/lib/Catalyst/Dispatcher.pm 2008-07-16 17:13:20 UTC (rev 8124)
+++ Catalyst-Runtime/5.70/trunk/lib/Catalyst/Dispatcher.pm 2008-07-16 17:23:53 UTC (rev 8125)
@@ -114,7 +114,6 @@
sub dispatch {
my ( $self, $c ) = @_;
if ( $c->action ) {
-use Data::Dumper; warn Dumper( $c->action, $c->action->namespace );
$c->forward( join( '/', '', $c->action->namespace, '_DISPATCH' ) );
}
Modified: Catalyst-Runtime/5.70/trunk/t/lib/TestApp/Controller/Args.pm
===================================================================
--- Catalyst-Runtime/5.70/trunk/t/lib/TestApp/Controller/Args.pm 2008-07-16 17:13:20 UTC (rev 8124)
+++ Catalyst-Runtime/5.70/trunk/t/lib/TestApp/Controller/Args.pm 2008-07-16 17:23:53 UTC (rev 8125)
@@ -2,7 +2,6 @@
use strict;
use base 'Catalyst::Base';
-use Data::Dumper;
sub args :Local {
my ( $self, $c ) = @_;
@@ -14,4 +13,4 @@
$c->res->body( join('', at _) );
}
-1;
\ No newline at end of file
+1;
Modified: Catalyst-Runtime/5.70/trunk/t/live_priorities.t
===================================================================
--- Catalyst-Runtime/5.70/trunk/t/live_priorities.t 2008-07-16 17:13:20 UTC (rev 8124)
+++ Catalyst-Runtime/5.70/trunk/t/live_priorities.t 2008-07-16 17:23:53 UTC (rev 8125)
@@ -8,7 +8,6 @@
use Test::More tests => 28;
use Catalyst::Test 'TestApp';
-use Data::Dumper;
local $^W = 0;
More information about the Catalyst-commits
mailing list