while (my $foo = $sth->fetchrow_arrayref){
if(defined $foo->[12] && $foo->[12] =~ /^nextval/) {
($self->{_autoinc_seq}) = $foo->[12] =~
- m!^nextval\('"?([^"']+)"?'::text\)!;
+ m!^nextval\('"?([^"']+)"?'::(?:text|regclass)\)!;
}
}
}
=head1 NAME
-DBIx::Class::PK::Auto::Pg- Automatic Primary Key class for Postgresql
+DBIx::Class::PK::Auto::Pg - Automatic Primary Key class for Postgresql
=head1 SYNOPSIS