$sth->execute (@bind);
while (my ($insert_trigger, $schema) = $sth->fetchrow_array) {
- my ($seq_name) = $insert_trigger =~ m!("?[.\w]+"?)\.nextval!i;
+ my ($seq_name) = $insert_trigger =~ m!("?[.\w"]+"?)\.nextval!i;
next unless $seq_name;
if ($seq_name !~ /\./) {
- $seq_name = "${schema}.${seq_name}";
+ $seq_name = join '.' => $schema, $seq_name;
}
return $seq_name;