aboutsummaryrefslogtreecommitdiffstats
path: root/doc
diff options
context:
space:
mode:
authorH. Peter Anvin (Intel) <hpa@zytor.com>2018-06-25 23:13:59 -0700
committerH. Peter Anvin (Intel) <hpa@zytor.com>2018-06-25 23:13:59 -0700
commit58a275c3e917c083b4b165c53cce47dc830492b7 (patch)
treeb9381aedc8d43a97a4244a59bc0b00c1efd2f8f4 /doc
parentf388b4d8626186cf48ab9686fd75383045020405 (diff)
downloadnasm-58a275c3e917c083b4b165c53cce47dc830492b7.tar.gz
nasm-58a275c3e917c083b4b165c53cce47dc830492b7.tar.xz
nasm-58a275c3e917c083b4b165c53cce47dc830492b7.zip
doc/rdsrc.pl: fix unescaped brace
The latest version of Perl complains about an unescaped brace in a regexp and states that it will be a fatal error in Perl 5.30. Fix it now before it becomes a problem. Signed-off-by: H. Peter Anvin (Intel) <hpa@zytor.com>
Diffstat (limited to 'doc')
-rw-r--r--doc/rdsrc.pl4
1 files changed, 2 insertions, 2 deletions
diff --git a/doc/rdsrc.pl b/doc/rdsrc.pl
index 1ca71681..447bb9d4 100644
--- a/doc/rdsrc.pl
+++ b/doc/rdsrc.pl
@@ -1,7 +1,7 @@
#!/usr/bin/perl
## --------------------------------------------------------------------------
##
-## Copyright 1996-2017 The NASM Authors - All Rights Reserved
+## Copyright 1996-2018 The NASM Authors - All Rights Reserved
## See the file AUTHORS included with the NASM distribution for
## the specific copyright holders.
##
@@ -325,7 +325,7 @@ sub got_para {
$snum = 0;
$xref = "section-$cnum.$hnum";
$pflags = "head $cnum.$hnum :$xref";
- die "badly formatted heading: $_\n" if !/^\\[HP]{([^\}]*)}\s*(.*)$/;
+ die "badly formatted heading: $_\n" if !/^\\[HP]\{([^\}]*)\}\s*(.*)$/;
$refs{$1} = "section $cnum.$hnum";
$node = "Section $cnum.$hnum";
&add_item($node, 2);