Allow :isa in class declaration without a block

Using class attributes in the unit class syntax was a syntax error. This change makes the following two lines equivalent:

class B :isa(A) ;
class B :isa(A) { }

Addresses GH issue #20888.

1 files changed, 4 insertions, 1 deletions

diff --git a/perly.y b/perly.y
index 381c9f3419..8a3b8dcd12 100644
--- a/perly.y
+++ b/perly.y
@@ -443,13 +443,16 @@ barestmt:	PLUGSTMT
 			      package_version($version);
 			  $$ = NULL;
 			}
-	|	KW_CLASS BAREWORD[version] BAREWORD[package] PERLY_SEMICOLON
+	|	KW_CLASS BAREWORD[version] BAREWORD[package] subattrlist PERLY_SEMICOLON
 			{
 			  package($package);
 			  if ($version)
 			      package_version($version);
 			  $$ = NULL;
 			  class_setup_stash(PL_curstash);
+			  if ($subattrlist) {
+			      class_apply_attributes(PL_curstash, $subattrlist);
+			  }
 			}
 	|	KW_USE_or_NO startsub
 			{ CvSPECIAL_on(PL_compcv); /* It's a BEGIN {} */ }