fixed the issue when regex_substr leaded to freeze (seems like a DB bug)

Pazus · Pazus · commit 87bf121d9054 · 2017-01-14T17:48:20.000+03:00
diff --git a/source/core/annotations/ut_annotations.pkb b/source/core/annotations/ut_annotations.pkb
@@ -134,9 +134,9 @@ create or replace package body ut_annotations as
     l_package_comments varchar2(32767);
   begin
     l_package_comments := regexp_substr(srcstr        => a_source
-                                       ,pattern       => '^\s*(CREATE\s+(OR\s+REPLACE)?(\s+(NON)?EDITIONABLE)?\s+)?PACKAGE(.|\s)*?(\s+(AS|IS)\s+)((.*?{COMMENT#\d+}\s?)+)'
+                                       ,pattern       => '^\s*(CREATE\s+(OR\s+REPLACE)?(\s+(NON)?EDITIONABLE)?\s+)?PACKAGE\s[^;]*?(\s+(AS|IS)\s+)((.*?{COMMENT#\d+}\s?)+)'
                                        ,modifier      => 'i'
-                                       ,subexpression => 8);
+                                       ,subexpression => 7);
 
     -- parsing for package annotations
     return
@@ -328,7 +328,7 @@ create or replace package body ut_annotations as
 
     l_source := ut_metadata.get_package_spec_source(a_owner_name, a_name);
 
-    if l_source is null then
+    if l_source is null or sys.dbms_lob.getlength(l_source)=0 then
       return null;
     else
       return parse_package_annotations(l_source);
