From: Brandon L. Black <blblack@gmail.com>
Date: Sun, 26 Mar 2006 15:04:53 +0000 (+0000)
Subject: minor fixes to the recent connect_info change
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=670089790d39b53a28414420d5fe68eed79c9ac8;p=dbsrgits%2FDBIx-Class-Historic.git

minor fixes to the recent connect_info change
---

diff --git a/lib/DBIx/Class/Storage/DBI.pm b/lib/DBIx/Class/Storage/DBI.pm
index 231810d..6d6fff8 100644
--- a/lib/DBIx/Class/Storage/DBI.pm
+++ b/lib/DBIx/Class/Storage/DBI.pm
@@ -362,9 +362,9 @@ sub connect_info {
             my $used;
             if(my $on_connect_do = $last_info->{on_connect_do}) {
                $used = 1;
-               $self->on_connect_do($self->{on_connect_do});
+               $self->on_connect_do($on_connect_do);
             }
-            foreach my $sql_maker_opt (qw/limit_dialect quote_char name_sep/) {
+            for my $sql_maker_opt (qw/limit_dialect quote_char name_sep/) {
                 if(my $opt_val = $last_info->{$sql_maker_opt}) {
                     $used = 1;
                     $self->sql_maker->$sql_maker_opt($opt_val);