Bug 458390: Foreign Key names can be too long as currently designed

Patch By Max Kanat-Alexander <mkanat@bugzilla.org> r=ghendricks

1 files changed, 8 insertions, 9 deletions

diff --git a/Bugzilla/DB/Schema/Oracle.pm b/Bugzilla/DB/Schema/Oracle.pm
index ba3870a76..bd5c72476 100644
--- a/Bugzilla/DB/Schema/Oracle.pm
+++ b/Bugzilla/DB/Schema/Oracle.pm
@@ -32,10 +32,13 @@ use strict;
 
 use base qw(Bugzilla::DB::Schema);
 use Carp qw(confess);
-use Digest::MD5  qw(md5_hex);
 use Bugzilla::Util;
 
-use constant ADD_COLUMN      => 'ADD';
+use constant ADD_COLUMN => 'ADD';
+# Whether this is true or not, this is what it needs to be in order for
+# hash_identifier to maintain backwards compatibility with versions before
+# 3.2rc2.
+use constant MAX_IDENTIFIER_LEN => 27;
 
 #------------------------------------------------------------------------------
 sub _initialize {
@@ -105,7 +108,7 @@ sub get_table_ddl {
 sub _get_create_index_ddl {
 
     my ($self, $table_name, $index_name, $index_fields, $index_type) = @_;
-    $index_name = "idx_" . $self->_hash_index_name($index_name);
+    $index_name = "idx_" . $self->_hash_identifier($index_name);
     if ($index_type eq 'FULLTEXT') {
         my $sql = "CREATE INDEX $index_name ON $table_name (" 
                   . join(',',@$index_fields)
@@ -123,14 +126,10 @@ sub get_drop_index_ddl {
     my $self = shift;
     my ($table, $name) = @_;
 
-    $name = 'idx_' . $self->_hash_index_name($name);
+    $name = 'idx_' . $self->_hash_identifier($name);
     return $self->SUPER::get_drop_index_ddl($table, $name);
 }
 
-sub _hash_index_name {
-    return substr(md5_hex($_[1]),0,20);
-}
-
 # Oracle supports the use of FOREIGN KEY integrity constraints 
 # to define the referential integrity actions, including:
 # - Update and delete No Action (default)
@@ -187,7 +186,7 @@ sub _get_fk_name {
     my $to_table  = $references->{TABLE};
     my $to_column = $references->{COLUMN};
     my $fk_name   = "${table}_${column}_${to_table}_${to_column}";
-    $fk_name      = "fk_" . $self->_hash_index_name($fk_name);
+    $fk_name      = "fk_" . $self->_hash_identifier($fk_name);
     
     return $fk_name;
 }