[Catalyst-commits] r7708 - Catalyst-Controller-DBIC-Transaction/1.0/trunk/lib/Catalyst/Action/DBIC

[ruoso at dev.catalyst.perl.org]

Author: ruoso
Date: 2008-05-06 23:59:57 +0100 (Tue, 06 May 2008)
New Revision: 7708

Modified:
   Catalyst-Controller-DBIC-Transaction/1.0/trunk/lib/Catalyst/Action/DBIC/Transaction.pm
Log:
[C-C-DBIC-Transaction] using a closure to make sure the right parameters are sent;

Modified: Catalyst-Controller-DBIC-Transaction/1.0/trunk/lib/Catalyst/Action/DBIC/Transaction.pm
===================================================================
--- Catalyst-Controller-DBIC-Transaction/1.0/trunk/lib/Catalyst/Action/DBIC/Transaction.pm	2008-05-06 22:51:27 UTC (rev 7707)
+++ Catalyst-Controller-DBIC-Transaction/1.0/trunk/lib/Catalyst/Action/DBIC/Transaction.pm	2008-05-06 22:59:57 UTC (rev 7708)
@@ -8,6 +8,7 @@
     sub execute {
         my $self = shift;
         my ( $controller, $c ) = @_;
+        my @other_args = @_;
 
         my $model_class = $controller->_dbic_transaction_schemas->{$self->name}
           or die 'No schema class defined for DBIC::Transaction ActionClass';
@@ -17,9 +18,9 @@
 
         my $sub = subname 'Catalyst::Action::DBIC::Transaction::execute' => sub {
             if ($wantarray) {
-                @return = $self->next::method($self, at _);
+                @return = $self->next::method(@other_args);
             } else {
-                $return = $self->next::method($self, at _);
+                $return = $self->next::method(@other_args);
             }
         };