X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FSQL%2FTranslator%2FParser%2FOracle.pm;fp=lib%2FSQL%2FTranslator%2FParser%2FOracle.pm;h=d5c1b2938714d0141d30b8cf7ad85912e2f7b013;hb=2d6f061e14a59b2e22fd9e3515da52f5f8173c74;hp=2f03d676dae9ccb36d78aba68dbb074a58b06f28;hpb=553b1eed21906279c4795982057c149a7491af9c;p=dbsrgits%2FSQL-Translator.git

diff --git a/lib/SQL/Translator/Parser/Oracle.pm b/lib/SQL/Translator/Parser/Oracle.pm
index 2f03d67..d5c1b29 100644
--- a/lib/SQL/Translator/Parser/Oracle.pm
+++ b/lib/SQL/Translator/Parser/Oracle.pm
@@ -123,6 +123,13 @@ statement : remark
     | drop
     | <error>
 
+alter: /alter/i TABLE table_name /add/i table_constraint ';'
+    {
+        my $constraint = $item{table_constraint};
+        $constraint->{type} = $constraint->{constraint_type};
+        push @{$tables{$item{table_name}}{constraints}}, $constraint;
+    }
+
 alter : /alter/i WORD /[^;]+/ ';'
     { @table_comments = () }