PostgreSQL 8.1.2 ？ で DBIx::SearchBuilderが動かない件（多分バッドノウハウ）

これ、多分バッドノウハウだけど、DBIx::SearchBuilder::Handle::Pgで、8.1.2が動かない。うほうほ。問題はsequenceを解析する正規表現で、この表記が7.x系と8.x系だけで変わったと思ったら、どうも8.1.0 から8.1.2の間にも変更されてるっぽい。とりあえずまだちゃんと解析してないけど、なんちゃってでも一応マッチする正規表現を107行目に入れると動く。以下が俺の修正版：

  # Regexp from DBIx::Class's Pg handle. Thanks to Marcus Ramberg

  if ( defined $foo->{'COLUMN_DEF'}

       && $foo->{'COLUMN_DEF'}

       =~ m!^nextval\(\(?'"?([^"']+)"?'(?:::text\)?)?::regclass\)!i )

  {

    return $self->{'_sequences'}{$table} = $1;

  }

っていうか、今コメントみたらDBIx::Classからとってあるのね。ということはDBIx::Class 0.40もPostgres 8.1.2に対応してないと見た。