From a026eac1dd98624da3434d04e1aaae40d9d549ea Mon Sep 17 00:00:00 2001
From: Jens Rehsack <rehsack@googlemail.com>
Date: Wed, 15 Sep 2010 23:38:49 +0200
Subject: [PATCH 2/2] fix rt61168

---
 lib/DBD/CSV.pm |   20 ++++----------------
 1 files changed, 4 insertions(+), 16 deletions(-)

diff --git a/lib/DBD/CSV.pm b/lib/DBD/CSV.pm
index 7e5c6fd..c067a93 100755
--- a/lib/DBD/CSV.pm
+++ b/lib/DBD/CSV.pm
@@ -375,24 +375,13 @@ sub init_table_meta
     } # init_table_meta
 
 my %compat_map = (
-    file  => "f_file",
     map { $_ => "csv_$_" } qw( class eof  eol quote_char sep_char escape_char )
     );
+__PACKAGE__->register_compat_map (\%compat_map);
 
-sub get_table_meta_attr
-{
-    my ($class, $meta, $attr) = @_;
-    defined $compat_map{$attr} and
-        return $class->SUPER::get_table_meta_attr ($meta, $compat_map{$attr});
-    return $class->SUPER::get_table_meta_attr ($meta, $attr);
-    } # get_table_meta_attr
-
-sub set_table_meta_attr
+sub table_meta_attr_changed
 {
     my ($class, $meta, $attr, $value) = @_;
-    defined $compat_map{$attr} and
-        return $class->SUPER::set_table_meta_attr ($meta, $compat_map{$attr}, $value);
-
     (my $csv_attr = $attr) =~ s/^csv_//;
     if (exists $csv_xs_attr{$csv_attr}) {
 	for ("csv_in", "csv_out") {
@@ -400,9 +389,8 @@ sub set_table_meta_attr
 		$meta->{$_}{$csv_attr} = $value;
 	    }
 	}
-
-    return $class->SUPER::set_table_meta_attr ($meta, $attr, $value);
-    } # set_table_meta_attr
+    $class->SUPER::table_meta_attr_changed ($meta, $attr, $value);
+    } # table_meta_attr_changed
 
 $DBD::File::VERSION > 0.38 and *open_file = sub {
     my ($self, $meta, $attrs, $flags) = @_;
-- 
1.7.0.5