diff options
| author | Pavel Tvrdik <pawel.tvrdik@gmail.com> | 2016-09-26 18:05:51 +0200 |
|---|---|---|
| committer | Pavel Tvrdik <pawel.tvrdik@gmail.com> | 2016-10-12 09:52:55 +0200 |
| commit | 3d28f0145382feddcf7f66c0a20b6c5b3e0edbc9 (patch) | |
| tree | 495581ec85e3b7d1a5d1fa857abb6528e1e99f5f | |
| parent | c2564d34af9e01a828c24b0be7f269e5b036b5da (diff) | |
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.
| -rw-r--r-- | doc/sbase/dist/fmt_latex2e.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/doc/sbase/dist/fmt_latex2e.pl b/doc/sbase/dist/fmt_latex2e.pl index 1f121743..d0656b7d 100644 --- 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++; |