Bug 500350: [Oracle] Use of uninitialized value in pattern match (m//) at…

Bug 500350: [Oracle] Use of uninitialized value in pattern match (m//) at Bugzilla/DB/Schema/Oracle.pm line 149 - Patch by Xiaoou <xiaoou.wu@oracle.com> r/a=mkanat

Bug 500350: [Oracle] Use of uninitialized value in pattern match (m//) at…
df68aac6 · lpsolit%gmail.com · 1533b97c · df68aac6
Commit df68aac6 authored Jun 29, 2009 by lpsolit%gmail.com
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 1 deletion

Oracle.pm Bugzilla/DB/Schema/Oracle.pm +1 -1

No files found.
--- a/Bugzilla/DB/Schema/Oracle.pm
+++ b/Bugzilla/DB/Schema/Oracle.pm
@@ -146,7 +146,7 @@ sub get_fk_ddl {
    my $fk_name   = $self->_get_fk_name($table, $column, $references);

    # 'ON DELETE RESTRICT' is enabled by default   
-    $delete = "" if ($delete =~ /RESTRICT/i);
+    $delete = "" if ( defined $delete && $delete =~ /RESTRICT/i);

    my $fk_string = "\n     CONSTRAINT $fk_name FOREIGN KEY ($column)\n"
                    . "     REFERENCES $to_table($to_column)\n";