Changeset 10577 for lang/perl/Catalyst-Model-DynamicAdaptor

Timestamp:

04/27/08 17:27:53 (5 years ago)

Author:

vkgtaro

Message:

各 Logic クラスへの引数が前の bless 済みのものが渡っていたので修正

Files:

• lang/perl/Catalyst-Model-DynamicAdaptor/trunk/lib/Catalyst/Model/DynamicAdaptor.pm (modified) (2 diffs)

lang/perl/Catalyst-Model-DynamicAdaptor/trunk/lib/Catalyst/Model/DynamicAdaptor.pm

@@ -23 +23 @@
     no strict 'refs';
     for my $plugin (@plugins) {
-
-        my $obj = $plugin->new($config);
+        my %config = %{$config};
+        my $obj = $plugin->new(\%config);
 
         my $plugin_short = $plugin;
@@ -36 +36 @@
 
     return $self;
-
 }
-
 
 1;