Define a name for pk constraint when delay_constraints is on

diff --git a/lib/SQL/Translator/Producer/Oracle.pm b/lib/SQL/Translator/Producer/Oracle.pm
index 63e5570..93ddce1 100644 (file)
--- a/lib/SQL/Translator/Producer/Oracle.pm
+++ b/lib/SQL/Translator/Producer/Oracle.pm
@@ -419,7 +419,9 @@ sub create_table {
             next if !@fields && $c->type ne CHECK_C;
 
             if ( $c->type eq PRIMARY_KEY ) {
-                #$name ||= mk_name( $table_name, 'pk' );
+                # create a name if delay_constraints
+                $name ||= mk_name( $table_name, 'pk' )
+                  if $options->{delay_constraints};
                 push @constraint_defs, ($name ? "CONSTRAINT $name " : '') .
                        'PRIMARY KEY (' . join( ', ', @fields ) . ')';
             }