postgres
diff --git a/‎src/backend/regex/regc_lex.c
Copy file name to clipboardExpand all lines: src/backend/regex/regc_lex.c
+1-1Lines changed: 1 addition & 1 deletion b/‎src/backend/regex/regc_lex.c
Copy file name to clipboardExpand all lines: src/backend/regex/regc_lex.c
+1-1Lines changed: 1 addition & 1 deletion
diff --git a/‎src/test/modules/test_regex/expected/test_regex.out
Copy file name to clipboardExpand all lines: src/test/modules/test_regex/expected/test_regex.out
+8Lines changed: 8 additions & 0 deletions b/‎src/test/modules/test_regex/expected/test_regex.out
Copy file name to clipboardExpand all lines: src/test/modules/test_regex/expected/test_regex.out
+8Lines changed: 8 additions & 0 deletions
diff --git a/‎src/test/modules/test_regex/sql/test_regex.sql
Copy file name to clipboardExpand all lines: src/test/modules/test_regex/sql/test_regex.sql
+2Lines changed: 2 additions & 0 deletions b/‎src/test/modules/test_regex/sql/test_regex.sql
Copy file name to clipboardExpand all lines: src/test/modules/test_regex/sql/test_regex.sql
+2Lines changed: 2 additions & 0 deletions
@@ -994,7 +994,7 @@ brenext(struct vars *v,
 		case CHR('*'):
 			if (LASTTYPE(EMPTY) || LASTTYPE('(') || LASTTYPE('^'))
 				RETV(PLAIN, c);
-			RET('*');
+			RETV('*', 1);
 			break;
 		case CHR('['):
 			if (HAVE(6) && *(v->now + 0) == CHR('[') &&
 
@@ -614,6 +614,14 @@ ERROR:  invalid regular expression: quantifier operand invalid
 -- expectError	7.15 -		a*+	BADRPT
 select * from test_regex('a*+', '', '-');
 ERROR:  invalid regular expression: quantifier operand invalid
+-- test for ancient brenext() bug; not currently in Tcl
+select * from test_regex('.*b', 'aaabbb', 'b');
+ test_regex 
+------------
+ {0}
+ {aaabbb}
+(2 rows)
+
 -- doing 8 "braces"
 -- expectMatch	8.1  NQ		"a{0,1}"	""	""
 select * from test_regex('a{0,1}', '', 'NQ');
 
@@ -214,6 +214,8 @@ select * from test_regex('a?*', '', '-');
 select * from test_regex('a+*', '', '-');
 -- expectError	7.15 -		a*+	BADRPT
 select * from test_regex('a*+', '', '-');
+-- test for ancient brenext() bug; not currently in Tcl
+select * from test_regex('.*b', 'aaabbb', 'b');
 
 -- doing 8 "braces"