TableParser doesn't handle column names with spaces

This code in get_fks() looks very wrong to me:

      $fks->{$name} = {
         name => $name,
         colnames => $cols,
         cols => [ map { s/[ `]+//g; $_; } split(',', $cols) ],
         parent_tbl => \%parent_tbl,
         parent_tblname => $parent,
         parent_cols => [ map { s/[ `]+//g; $_; } split(',', $parent_cols) ],
         parent_colnames=> $parent_cols,
         ddl => $fk,
      };

It is replacing [ `] with nothing. That means that a foreign key like this,

REFERENCES foo (`abc def`)

is going to come out as abcdef which is wrong.