Update code to avoid

lwasylow · lwasylow · commit 2547b4010edd · 2026-03-17T00:04:45.000Z
diff --git a/source/core/annotations/ut_annotation_manager.pkb b/source/core/annotations/ut_annotation_manager.pkb
@@ -241,12 +241,12 @@ create or replace package body ut_annotation_manager as
         l_sql_clob := ut_utils.replace_multiline_comments(l_sql_clob);
         -- replace comment lines that contain "-- create or replace"
         l_sql_clob := regexp_replace(l_sql_clob, '^.*[-]{2,}\s*create(\s+or\s+replace).*$', modifier => 'mi');
-        -- remove the "create [or replace] [[non]editionable] " so that we have only "type|package" for parsing
+        -- remove the "create [or replace] [[non]editionable] " so that we have only "type|package|procedure|function" for parsing
         -- needed for dbms_preprocessor
-        l_sql_clob := regexp_replace(l_sql_clob, '^(.*?\s*create(\s+or\s+replace)?(\s+(editionable|noneditionable))?\s+?)((package|type).*)', '\5', 1, 1, 'ni');
+        l_sql_clob := regexp_replace(l_sql_clob, '^(.*?\s*create(\s+or\s+replace)?(\s+(editionable|noneditionable))?\s+?)((package|type|procedure|function).*)', '\5', 1, 1, 'ni');
         -- remove "OWNER." from create or replace statement.
         -- Owner is not supported along with AUTHID - see issue https://github.com/utPLSQL/utPLSQL/issues/1088
-        l_sql_clob := regexp_replace(l_sql_clob, '^(package|type)\s+("?[[:alpha:]][[:alnum:]$#_]*"?\.)(.*)', '\1 \3', 1, 1, 'ni');
+        l_sql_clob := regexp_replace(l_sql_clob, '^(package|type|procedure|function)\s+("?[[:alpha:]][[:alnum:]$#_]*"?\.)(.*)', '\1 \3', 1, 1, 'ni');
         l_sql_lines := ut_utils.convert_collection( ut_utils.clob_to_table(l_sql_clob) );
       end if;
       open l_result for
