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

diff --git a/Bugzilla/DB/Schema/Oracle.pm b/Bugzilla/DB/Schema/Oracle.pm
index d8b24e49b9a2d1d40b20743af6e8aaf48254a2ac..615987b069edc4ad7e5ac2411ae67983155fd3e4 100644 (file)
--- 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";