diff options
| author | H. Peter Anvin (Intel) <hpa@zytor.com> | 2018-06-25 23:13:59 -0700 |
|---|---|---|
| committer | H. Peter Anvin (Intel) <hpa@zytor.com> | 2018-06-25 23:13:59 -0700 |
| commit | 58a275c3e917c083b4b165c53cce47dc830492b7 (patch) | |
| tree | b9381aedc8d43a97a4244a59bc0b00c1efd2f8f4 | |
| parent | f388b4d8626186cf48ab9686fd75383045020405 (diff) | |
| download | nasm-58a275c3e917c083b4b165c53cce47dc830492b7.tar.gz | |
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>
| -rw-r--r-- | doc/rdsrc.pl | 4 |
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); |