Changeset 18470 for lang/perl/TheSchwartz-Simple/trunk/lib/TheSchwartz/Simple.pm

Timestamp:

08/30/08 12:18:53 (4 months ago)

Author:

tokuhirom

Message:

r24239@skinny: tokuhirom | 2008-08-30 11:33:10 +0900
fix coercing bug

Files:

• lang/perl/TheSchwartz-Simple/trunk/lib/TheSchwartz/Simple.pm (modified) (1 diff)

lang/perl/TheSchwartz-Simple/trunk/lib/TheSchwartz/Simple.pm

@@ -13 +13 @@
     my $class = shift;
     my($dbhs) = @_;
-    $dbhs = [ $dbhs ] unless ref $dbhs;
+    $dbhs = [ $dbhs ] unless ref $dbhs eq 'ARRAYREF';
     bless {
         databases => $dbhs,