Permit a colon after a vstring, thus allowing an attrlist to follow a version declaration on a 'class' statement (Perl5 #20891)

leonerd · Leont · commit 151738c0946a · 2023-09-03T17:24:43.000+02:00
diff --git a/vutil/vutil.c b/vutil/vutil.c
@@ -211,7 +211,7 @@ Perl_prescan_version(pTHX_ const char *s, bool strict,
     while (isSPACE(*d))
 	d++;
 
-    if (!isDIGIT(*d) && (! (!*d || *d == ';' || *d == '{' || *d == '}') )) {
+    if (!isDIGIT(*d) && (! (!*d || *d == ';' || *d == ':' || *d == '{' || *d == '}') )) {
 	/* trailing non-numeric data */
 	BADVERSION(s,errstr,"Invalid version format (non-numeric data)");
     }

Original file line number	Diff line number	Diff line change
`@@ -211,7 +211,7 @@ Perl_prescan_version(pTHX_ const char *s, bool strict,`
`211`	`211`	`while (isSPACE(*d))`
`212`	`212`	`d++;`
`213`	`213`
`214`		`- if (!isDIGIT(d) && (! (!d \|\| d == ';' \|\| d == '{' \|\| *d == '}') )) {`
	`214`	`+ if (!isDIGIT(d) && (! (!d \|\| d == ';' \|\| d == ':' \|\| d == '{' \|\| d == '}') )) {`
`215`	`215`	`/* trailing non-numeric data */`
`216`	`216`	`BADVERSION(s,errstr,"Invalid version format (non-numeric data)");`
`217`	`217`	`}`