From: lpsolit%gmail.com <>
Date: Mon, 29 Jun 2009 20:38:18 +0000 (+0000)
Subject: Bug 500350: [Oracle] Use of uninitialized value in pattern match (m//) at Bugzilla... 
X-Git-Tag: bugzilla-3.5.1~193
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=df68aac676998db0789b080a11ccceb4c57faaed;p=thirdparty%2Fbugzilla.git

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
---

diff --git a/Bugzilla/DB/Schema/Oracle.pm b/Bugzilla/DB/Schema/Oracle.pm
index d8b24e49b9..615987b069 100644
--- 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";