From: Rafael Kitover <rkitover@cpan.org>
Date: Fri, 25 Feb 2011 11:02:44 +0000 (-0500)
Subject: fix a syntax error in MS Access ADO driver
X-Git-Tag: 0.07009~2
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ca2ca9c825d855f49cf650d5c532a361ead0fb9c;p=dbsrgits%2FDBIx-Class-Schema-Loader.git

fix a syntax error in MS Access ADO driver
---

diff --git a/Changes b/Changes
index a6b0a40..5d99408 100644
--- a/Changes
+++ b/Changes
@@ -1,5 +1,7 @@
 Revision history for Perl extension DBIx::Class::Schema::Loader
 
+        - fix a syntax error in MS Access ADO driver
+
 0.07008  2011-02-25 01:54:43
         - rename column_accessor_map to col_accessor_map, the old alias still
           works
diff --git a/lib/DBIx/Class/Schema/Loader/DBI/ADO/MS_Jet.pm b/lib/DBIx/Class/Schema/Loader/DBI/ADO/MS_Jet.pm
index a607dc6..e2dbf8f 100644
--- a/lib/DBIx/Class/Schema/Loader/DBI/ADO/MS_Jet.pm
+++ b/lib/DBIx/Class/Schema/Loader/DBI/ADO/MS_Jet.pm
@@ -126,7 +126,7 @@ sub _columns_info_for {
 
         my $col_obj;
 
-        $self->_adox_catalog->Tables->Item($table)->Columns;
+        my $cols = $self->_adox_catalog->Tables->Item($table)->Columns;
 
         for my $col_idx (0..$cols->Count-1) {
             $col_obj = $cols->Item($col_idx);