Doc: Fix deprecated unescaped braces in perl script (3d28f014) · Commits · 戴 / Bird

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.

doc/sbase/dist/fmt_latex2e.pl

+2 −2

Original line number	Diff line number	Diff line
		@@ -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++;

Admin message