Remove constraint name from global_names when dropping.

hazardv · Feb 23, 2024 · fce5425 · fce5425
1 parent 682f21a
commit fce5425
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/lib/SQL/Translator/Producer/Oracle.pm b/lib/SQL/Translator/Producer/Oracle.pm
@@ -678,9 +678,14 @@ sub alter_drop_constraint {
   my @out        = ('ALTER', 'TABLE', $table_name, 'DROP',);
   if ($c->name) {
     push @out, ('CONSTRAINT', quote($c->name, $qi));
+    if ($global_names{$c->name}) {
+      $global_names{$c->name}--; # Remove from global names so it can be used again
+    }
   } elsif ($c->type eq PRIMARY_KEY) {
     push @out, 'PRIMARY KEY';
   }
+  debug("ORA: Dropping constraint " . join(' ', @out));
+
   return join(' ', @out);
 }