work around DBD::SQLite returning quoted primary keys :/

sorear · May 14, 2014 · b33fe17 · b33fe17
1 parent bc2ff98
commit b33fe17
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/lib/DBR/Config/ScanDB.pm b/lib/DBR/Config/ScanDB.pm
@@ -81,6 +81,7 @@ sub scan_pkeys {
             next unless $row->{PK_NAME} eq 'PRIMARY KEY';
 	    my $table = $row->{TABLE_NAME} or return $self->_error('no TABLE_NAME!');
 	    my $field = $row->{COLUMN_NAME} or return $self->_error('no COLUMN_NAME!');
+            $field =~ s/"//g; # DBD::SQLite idiocy returns quoted pkeys
             $map{$table}->{$field} = 1;
       }