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.

diff --git a/contrib/make_sunver.pl b/contrib/make_sunver.pl
index 8a90b1fea0d366f7a9ec0857d5304a67ee34f389..32e639ed8732ac774d907c90a7c942d71e48e52a 100644 (file)
--- 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 {