Doc: Fix deprecated unescaped braces in perl script

This commit should fix warning `make docs'

./sgml2html bird.sgml Unescaped left brace in regex is deprecated,
  passed through in regex; marked by <-- HERE in m/\\nameurl{ <-- HERE
    (.*)}{(.*)}/ at fmt_latex2e.pl line 287.

diff --git a/doc/sbase/dist/fmt_latex2e.pl b/doc/sbase/dist/fmt_latex2e.pl
index 1f1217439a8bfb772fa704f50d7c9ebb2c5f0659..d0656b7d37aa6e6f4bedf413dee1bab4af8df2c7 100644 (file)
--- a/doc/sbase/dist/fmt_latex2e.pl
+++ b/doc/sbase/dist/fmt_latex2e.pl
@@ -284,11 +284,11 @@ $latex2e->{postASP} = sub
        # for nameurl
           if ( /\\nameurl/ )
             {
-               ($urlid, $urlnam) = ($_ =~ /\\nameurl{(.*)}{(.*)}/);
+               ($urlid, $urlnam) = ($_ =~ /\\nameurl\{(.*)\}\{(.*)\}/);
                print $urlnum . ": " . $urlid . "\n" if ( $global->{debug} );
 
                $urldef = latex2e_defnam($urlnum) . "url";
-               s/\\nameurl{.*}{.*}/{\\em $urlnam} {\\tt \\$urldef}/;
+               s/\\nameurl\{.*\}\{.*\}/{\\em $urlnam} {\\tt \\$urldef}/;
                push @urlnames, $_;
                push @urldefines, "\\urldef{\\$urldef} \\url{$urlid}\n";
                $urlnum++;