Class::DBI::Pg vs Postgres 8.1

バグ発見。Postgres8.1からはpg_attrdefから取得できるSERIAL型の表示が変わっているのだが、Class::DBI::Pgがそれに対応していない。１０６行目辺りを以下のようにするとOK:

    my ($sequence) =

      $nextval_str ?

         ($class->pg_version >= 8.1 ?

            $nextval_str =~ m/^nextval\('"?([^"']+)"?'::regclass\)/ :

            $nextval_str =~ m/^nextval\('"?([^"']+)"?'::text\)/) :

        '';

バグレポートはまた後で・・・