Fixing ORA-00600. Seems like we cant open cursors in Initialization of package.

jgebal · jgebal · commit 290982f716c0 · 2016-11-27T02:58:11.000Z
diff --git a/source/core/ut_metadata.pkb b/source/core/ut_metadata.pkb
@@ -4,11 +4,30 @@ create or replace package body ut_metadata as
   --private definitions
   g_source_view varchar2(32);
 
+  function get_source_view return varchar2 is
+  begin
+    if g_source_view is null then
+      declare
+        l_cursor sys_refcursor;
+        l_object_does_not_exist exception;
+        pragma exception_init (l_object_does_not_exist, -942);
+      begin
+        g_source_view := 'dba_source';
+        open l_cursor for 'select 1 from '||g_source_view ||' where rownum = 1';
+        close l_cursor;
+      exception
+        when l_object_does_not_exist then
+          g_source_view := 'all_source';
+      end;
+    end if;
+    return g_source_view;
+  end;
+
   function get_package_spec_source_cursor(a_owner varchar2 := null, a_object varchar2 := null) return sys_refcursor is
     l_cur sys_refcursor;
     function get_query return varchar2 is
     begin
-      return 'select t.text from ' || g_source_view ||
+      return 'select t.text from ' || get_source_view() ||
               ' t where t.owner = :a_owner and t.name = :a_object_name and t.type = ''PACKAGE'' order by t.line';
     end;
   begin
@@ -136,7 +155,7 @@ create or replace package body ut_metadata as
     l_line varchar2(4000);
   begin
     execute immediate
-      'select text from ' || g_source_view || q'[
+      'select text from ' || get_source_view() || q'[
           where owner = :a_owner and name = :a_object_name and line = :a_line_no
              -- skip the declarations, consider only definitions
             and type != 'PACKAGE' ]'
@@ -147,18 +166,5 @@ create or replace package body ut_metadata as
       return null;
   end;
 
-begin
-  declare
-    l_cursor sys_refcursor;
-    l_object_does_not_exist exception;
-    pragma exception_init (l_object_does_not_exist, -942);
-  begin
-    g_source_view := 'dba_source';
-    open l_cursor for 'select 1 from '||g_source_view ||' where rownum = 1';
-    close l_cursor;
-  exception
-    when l_object_does_not_exist then
-      g_source_view := 'all_source';
-  end;
 end;
 /
diff --git a/source/core/ut_utils.pkb b/source/core/ut_utils.pkb
@@ -81,7 +81,7 @@ create or replace package body ut_utils is
       case
         when l_len = 0 then gc_null_string
         when l_len <= gc_max_input_string_length then quote_string(rawtohex(a_value))
-        else quote_string( rawtohex(dbms_lob.substr(a_value, gc_overflow_substr_len)) )
+        else to_string( rawtohex(dbms_lob.substr(a_value, gc_overflow_substr_len)) )
       end;
   end;
 
