Changeset 35144

Timestamp:

08/31/09 21:11:18 (4 years ago)

Author:

kazuho

Message:

fix initializer

Location:

lang/perl/DBIx-ShardManager/trunk/lib/DBIx

Files:

• ShardManager.pm (modified) (1 diff)
• ShardManager/Connector/DBI.pm (modified) (1 diff)

lang/perl/DBIx-ShardManager/trunk/lib/DBIx/ShardManager.pm

@@ -22 +22 @@
     my $self = bless {
         %Defaults,
-        @_ == 1 ? @{$_[0]} : @_,
+        @_ == 1 ? %{$_[0]} : @_,
         _handles => {},
     }, $klass;

lang/perl/DBIx-ShardManager/trunk/lib/DBIx/ShardManager/Connector/DBI.pm

@@ -26 +26 @@
         %Defaults,
         unique_keys => [ @{$Defaults{unique_keys}} ],
-        @_ == 1 ? @{$_[0]} : @_,
+        @_ == 1 ? %{$_[0]} : @_,
     );
 }