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.
This commit is contained in:
Bruce Hill
2017-11-29 01:17:04 -08:00
committed by GitHub
parent fae4d58de6
commit 3ca5c20907

View File

@@ -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;