From: David Kamholz <dkamholz@cpan.org>
Date: Sun, 18 Jun 2006 21:36:47 +0000 (+0000)
Subject: fix stupid bug
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=425f2ea93af32bf46922742fddc99f5e5f566e4c;p=dbsrgits%2FDBIx-Class-Historic.git

fix stupid bug
---

diff --git a/lib/DBIx/Class/InflateColumn.pm b/lib/DBIx/Class/InflateColumn.pm
index 26a8832..a55a29f 100644
--- a/lib/DBIx/Class/InflateColumn.pm
+++ b/lib/DBIx/Class/InflateColumn.pm
@@ -154,7 +154,6 @@ when the method is invoked.
 
 sub get_column {
   my ($self, $col) = @_;
-  use Carp; confess unless ref $self;
   if (exists $self->{_inflated_column}{$col}
         && !exists $self->{_column_data}{$col}) {
     $self->store_column($col, $self->_deflated_column($col, $self->{_inflated_column}{$col})); 
@@ -166,7 +165,7 @@ sub get_columns {
   my $self = shift;
   if (exists $self->{_inflated_column}) {
     foreach my $col (keys %{$self->{_inflated_column}}) {
-      $self->store_column($col, $self->_deflated_column($col))
+      $self->store_column($col, $self->_deflated_column($col, $self->{_inflated_column}{$col}))
        unless exists $self->{_column_data}{$col};
     }
   }