[nasm:nasm-2.16.xx] spec generation: try to distinguish use pragmas from modules

[nasm-bot for H. Peter Anvin]

Commit-ID:  25f701e689db99345169f3280dcf02348daa7033
Gitweb:     http://repo.or.cz/w/nasm.git?a=commitdiff;h=25f701e689db99345169f3280dcf02348daa7033
Author:     H. Peter Anvin <hpa at zytor.com>
AuthorDate: Fri, 12 Apr 2024 14:05:32 -0700
Committer:  H. Peter Anvin <hpa at zytor.com>
CommitDate: Fri, 12 Apr 2024 14:05:32 -0700

spec generation: try to distinguish use pragmas from modules

Assume module names (for "use") always start with a capital letter,
and that anything that doesn't is a pragma.

Signed-off-by: H. Peter Anvin <hpa at zytor.com>


---
 Makefile.in | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Makefile.in b/Makefile.in
index 197f11ab..85af2ece 100644
--- a/Makefile.in
+++ b/Makefile.in
@@ -477,8 +477,8 @@ spec: nasm.spec
 ALLPERLSRC := $(shell find $(srcdir) -type f -name '*.p[lh]')
 
 perlbreq.si: $(ALLPERLSRC)
-	sed -n -r -e 's/^[[:space:]]*use[[:space:]]+([^[:space:];]+).*$$/BuildRequires: perl(\1)/p' $(ALLPERLSRC) | \
-	sed -r -e '/perl\((strict|warnings|Win32.*)\)/d' | \
+	sed -n -r -e 's/^[[:space:]]*use[[:space:]]+([[:upper:]][^[:space:];]*).*$$/BuildRequires: perl(\1)/p' $(ALLPERLSRC) | \
+	sed -r -e '/perl\((Win32.*)\)/d' | \
 	sort | uniq > perlbreq.si
 
 nasm.spec: nasm.spec.in nasm.spec.sed version.sed perlbreq.si