Commit 3d28f014 authored by Pavel Tvrdik's avatar Pavel Tvrdik

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.
parent c2564d34
...@@ -284,11 +284,11 @@ $latex2e->{postASP} = sub ...@@ -284,11 +284,11 @@ $latex2e->{postASP} = sub
# for nameurl # for nameurl
if ( /\\nameurl/ ) if ( /\\nameurl/ )
{ {
($urlid, $urlnam) = ($_ =~ /\\nameurl{(.*)}{(.*)}/); ($urlid, $urlnam) = ($_ =~ /\\nameurl\{(.*)\}\{(.*)\}/);
print $urlnum . ": " . $urlid . "\n" if ( $global->{debug} ); print $urlnum . ": " . $urlid . "\n" if ( $global->{debug} );
$urldef = latex2e_defnam($urlnum) . "url"; $urldef = latex2e_defnam($urlnum) . "url";
s/\\nameurl{.*}{.*}/{\\em $urlnam} {\\tt \\$urldef}/; s/\\nameurl\{.*\}\{.*\}/{\\em $urlnam} {\\tt \\$urldef}/;
push @urlnames, $_; push @urlnames, $_;
push @urldefines, "\\urldef{\\$urldef} \\url{$urlid}\n"; push @urldefines, "\\urldef{\\$urldef} \\url{$urlid}\n";
$urlnum++; $urlnum++;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment