summaryrefslogtreecommitdiff
path: root/perly.y
diff options
context:
space:
mode:
Diffstat (limited to 'perly.y')
-rw-r--r--perly.y5
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 {} */ }