Eliminate dozens of warnings of this form:
Unescaped left brace in regex is deprecated here (and will be fatal in Perl 5.32), passed through in regex; marked by <-- HERE in m/({ <-- HERE |})/ at /usr/bin/gphelp line 644, <DOC> line 12803.
--- doc/gphelp.in
+++ doc/gphelp.in
@@ -407,7 +407,7 @@ sub apropos {
{
if (/^\\(subsubsec[a-z]*|subsec[a-z]*|section|chapter)\{/)
{
- $new = &get_match($_,'{','}');
+ $new = &get_match($_,'\{','\}');
&apropos_check($line, $current);
$current = $new; $line = "";
}
@@ -660,7 +660,7 @@ sub get_match {
sub detex {
my($fun);
# 1: get the function "prototype"
- $fun = &get_match($_,'{','}');
+ $fun = &get_match($_,'\{','\}');
$fun = &basic_subst($fun);
$_ = $remainder;
$_ = <DOC> if (!&basic_subst($_));