From 60d5b77fd8863e3007173ea518164ab1ebd87db2 Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Fri, 15 Jan 1999 10:27:24 +0000
Subject: [PATCH] [project @ 1999-01-15 10:27:24 by sof] Recognise "-- !!!" (as
well as "--!!!") as the start of an interesting comment. The latter isn't
liked by a Haskell98 tokeniser, hence the change.
---
glafp-utils/runstdtest/runstdtest.prl | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/glafp-utils/runstdtest/runstdtest.prl b/glafp-utils/runstdtest/runstdtest.prl
index 1ca1d5b51665..d6907a8f660a 100644
--- a/glafp-utils/runstdtest/runstdtest.prl
+++ b/glafp-utils/runstdtest/runstdtest.prl
@@ -12,7 +12,7 @@
# [default: anything on the cmd line this script doesn't recognise ]
# the first opt not starting w/ "-" is taken to be an input
# file and (if it exists) is grepped for "what's going on here"
-# comments (^--!!!).
+# comments (^-- !!!).
# * a file to feed to stdin ( -i<file> ) [default: /dev/null ]
# * a "time" command to use (-t <cmd>).
#
@@ -139,12 +139,12 @@ exit 1 if $Status;
# tidy up the pgm args:
# (1) look for the "first input file"
-# and grep it for "interesting" comments (--!!! )
+# and grep it for "interesting" comments (-- !!! )
# (2) quote any args w/ whitespace in them.
$grep_done = 0;
foreach $a ( @PgmArgs ) {
if (! $grep_done && $a !~ /^-/ && -f $a) {
- print `egrep "^--!!!" $a`;
+ print `egrep "^--[ ]?!!!" $a`;
$grep_done = 1;
}
if ($a =~ /\s/ || $a =~ /'/) {
--
GitLab