From df68aac676998db0789b080a11ccceb4c57faaed Mon Sep 17 00:00:00 2001
From: "lpsolit%gmail.com" <>
Date: Mon, 29 Jun 2009 20:38:18 +0000
Subject: 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

---
 Bugzilla/DB/Schema/Oracle.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Bugzilla/DB/Schema')

diff --git a/Bugzilla/DB/Schema/Oracle.pm b/Bugzilla/DB/Schema/Oracle.pm
index d8b24e49b..615987b06 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";
-- 
cgit v1.2.3-24-g4f1b