Bug 858911: Oracle fails with "ORA-04043: object T_GROUP_CONCAT does not exist" when...

r=dkl a=LpSolit

diff --git a/Bugzilla/DB/Oracle.pm b/Bugzilla/DB/Oracle.pm
index ebf59533f7c75af8e377cc1b188cfd4520df3cc1..622609f15995d7a75113236527568ba00af048d1 100644 (file)
--- a/Bugzilla/DB/Oracle.pm
+++ b/Bugzilla/DB/Oracle.pm
@@ -550,7 +550,9 @@ sub bz_setup_database {
               . " RETURN NUMBER IS BEGIN RETURN LENGTH(COLUMN_NAME); END;");
     
     # Create types for group_concat
-    $self->do("DROP TYPE T_GROUP_CONCAT");
+    my $type_exists = $self->selectrow_array("SELECT 1 FROM user_types
+                                              WHERE type_name = 'T_GROUP_CONCAT'");
+    $self->do("DROP TYPE T_GROUP_CONCAT") if $type_exists;
     $self->do("CREATE OR REPLACE TYPE T_CLOB_DELIM AS OBJECT "
           . "( p_CONTENT CLOB, p_DELIMITER VARCHAR2(256)"
           . ", MAP MEMBER FUNCTION T_CLOB_DELIM_ToVarchar return VARCHAR2"