diff options
| author | Rainer Orth <ro@CeBiTec.Uni-Bielefeld.DE> | 2023-02-17 13:33:25 +0100 |
|---|---|---|
| committer | Rainer Orth <ro@CeBiTec.Uni-Bielefeld.DE> | 2023-02-17 13:33:25 +0100 |
| commit | ae2c1d0a9dc33f4c309a589d9f68fcd31206500e (patch) | |
| tree | b4ef3cbbd245eaeee81230ad1737d460e4a87d01 | |
| parent | 4c4f0f7acd6b96ee744ef598cbea5c7046a33654 (diff) | |
| download | gcc-ae2c1d0a9dc33f4c309a589d9f68fcd31206500e.zip gcc-ae2c1d0a9dc33f4c309a589d9f68fcd31206500e.tar.gz gcc-ae2c1d0a9dc33f4c309a589d9f68fcd31206500e.tar.bz2 | |
contrib: Fix make_sunver.pl warning
Petr informed me that perl 5.32 bundled with Solaris 11.4 warns about
make_sunver.pl:
Unescaped left brace in regex is passed through in regex; marked by <-- HERE in m/^([ \t]*){ <-- HERE $/ at /vol/gcc/src/hg/master/local/libgomp/../contrib/make_sunver.pl line 216.
I didn't notice since I'm using a common installation of perl 5.12
across Solaris versions that doesn't show that warning.
His patch fixes the issue. Tested on Solaris 11.3 (perl 5.12) and 11.4
(perl 5.32).
2023-01-20 Petr Sumbera <petr.sumbera@oracle.com>
contrib:
* make_sunver.pl: Escape brace.
| -rw-r--r-- | contrib/make_sunver.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/contrib/make_sunver.pl b/contrib/make_sunver.pl index 8a90b1f..32e639e 100644 --- a/contrib/make_sunver.pl +++ b/contrib/make_sunver.pl @@ -213,7 +213,7 @@ while (<F>) { if (/^[ \t]*$/) { print; next; } # Lines of the form '{' - if (/^([ \t]*){$/) { + if (/^([ \t]*)\{$/) { if ($in_extern) { print "$1##{\n"; } else { |