Blob Blame History Raw
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($_));