Fix another procedure parsing with return. Thanks to Eric Bourlon for…

… the report.
adil246 · Dec 9, 2021 · 487ce2f · 487ce2f
1 parent 7d923e4
commit 487ce2f
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/lib/Ora2Pg/Oracle.pm b/lib/Ora2Pg/Oracle.pm
@@ -1567,11 +1567,11 @@ sub _lookup_function
 		$fct_detail{immutable} = 1 if ($fct_detail{declare} =~ s/\bDETERMINISTIC\b//is);
 		$fct_detail{setof} = 1 if ($fct_detail{declare} =~ s/\bPIPELINED\b//is);
 		$fct_detail{declare} =~ s/\bDEFAULT/:=/igs;
-		if ($fct_detail{declare} =~ s/(.*?)RETURN\s+self\s+AS RESULT IS//is) {
+		if ($fct_detail{declare} =~ s/(.*?)\bRETURN\s+self\s+AS RESULT IS//is) {
 			$fct_detail{args} .= $1;
 			$fct_detail{hasreturn} = 1;
 			$fct_detail{func_ret_type} = 'OPAQUE';
-		} elsif ($fct_detail{declare} =~ s/(.*?)RETURN\s+([^\s]+)//is) {
+		} elsif ($fct_detail{declare} =~ s/(.*?)\bRETURN\s+([^\s]+)//is) {
 			$fct_detail{args} .= $1;
 			$fct_detail{hasreturn} = 1;
 			$fct_detail{func_ret_type} = $self->_sql_type($2) || 'OPAQUE';