Merge branch 'develop' into license_header

Pazus · web-flow · commit 4f33cd1c7ab9 · 2017-02-04T14:43:39.000+03:00
diff --git a/source/api/ut_runner.pkb b/source/api/ut_runner.pkb
@@ -34,6 +34,10 @@ create or replace package body ut_runner is
     l_items_to_run.do_execute(l_listener);
 
     ut_output_buffer.close(l_listener.reporters);
+  exception
+    when others then
+      ut_output_buffer.close(l_listener.reporters);
+      raise;
   end;
 
   procedure run(a_paths ut_varchar2_list, a_reporter ut_reporter_base := ut_documentation_reporter(), a_color_console boolean := false) is
diff --git a/source/core/types/ut_executable.tpb b/source/core/types/ut_executable.tpb
@@ -114,12 +114,12 @@ create or replace type body ut_executable is
       '    ' || ut_metadata.form_name(l_owner, l_object_name, l_procedure_name) || ';' || chr(10) ||
       '  exception' || chr(10) ||
       '    when others then ' || chr(10) ||
-      '      --raise on ORA-04068: existing state of packages has been discarded to avoid unrecoverable session exception' || chr(10) ||
-      '      if sqlcode = -04068 then' || chr(10) ||
-      '        raise;' || chr(10) ||
-      '      end if;' || chr(10) ||
       '      l_error_stack := dbms_utility.format_error_stack;' || chr(10) ||
       '      l_error_backtrace := dbms_utility.format_error_backtrace;' || chr(10) ||
+      '      --raise on ORA-04068, ORA-04061: existing state of packages has been discarded to avoid unrecoverable session exception' || chr(10) ||
+      '      if l_error_stack like ''%ORA-04068%'' or l_error_stack like ''%ORA-04061%'' then' || chr(10) ||
+      '        raise;' || chr(10) ||
+      '      end if;' || chr(10) ||
       '  end;' || chr(10) ||
       '  :a_error_stack := l_error_stack;' || chr(10) ||
       '  :a_error_backtrace := l_error_backtrace;' || chr(10) ||
