From 3ca5c20907bbca004341efc1367de8b80be32087 Mon Sep 17 00:00:00 2001 From: Bruce Hill Date: Wed, 29 Nov 2017 01:17:04 -0800 Subject: [PATCH] perl 5.8 compatibility fix Many of our host machines are running perl 5.8.8 and throw an error for the possesive quantifiers in this regex. Support for the ++ and *+ possesive quantifiers wasn't added till perl 5.10 and the epics docs still say perl 5.8.1 is the requirement. They don't appear to be needed in this regex and removing them generated the same errSymTbl.c in my tests. --- src/error/makeStatTbl.pl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/error/makeStatTbl.pl b/src/error/makeStatTbl.pl index 263829860..e9ca10eda 100644 --- a/src/error/makeStatTbl.pl +++ b/src/error/makeStatTbl.pl @@ -52,7 +52,7 @@ my (@syms, %vals, %msgs); while (<>) { chomp; next unless m/^ \s* \# \s* define \s+ ([SM]_[A-Za-z0-9_]+) - \s++ (.*?) \s* \/ \* \s*+ (.*?) \s* \* \/ \s* $/x; + \s+ (.*?) \s* \/ \* \s* (.*?) \s* \* \/ \s* $/x; push @syms, $1; $vals{$1} = $2; $msgs{$1} = $3;