diff options
| author | Zefram <zefram@fysh.org> | 2010-10-16 22:22:57 +0100 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2010-10-23 23:25:21 -0700 |
| commit | 5f211341d665e81a03fbd4935e4e87f70d937fc3 (patch) | |
| tree | 154fcb4845377ffc122e365199a98db48478c3ab /t/op/attrs.t | |
| parent | 74401f9c0e7d7248493d3f2bb0f4fdb0b20a92aa (diff) | |
| download | perl-5f211341d665e81a03fbd4935e4e87f70d937fc3.tar.gz | |
permit labels to appear before declarations
Include <label> in productions before <decl> and <package_block>. This
means that labels can now appear at the beginning of all statement-like
things. There was no technical reason for the restriction of labels
to substantive statements, and that restriction in any case couldn't be
applied to PLUGSTMT-based plugged-in declarations.
Diffstat (limited to 't/op/attrs.t')
| -rw-r--r-- | t/op/attrs.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/t/op/attrs.t b/t/op/attrs.t index 7c98529617..3013893dc5 100644 --- a/t/op/attrs.t +++ b/t/op/attrs.t @@ -34,7 +34,7 @@ like $@, qr/^Invalid CODE attributes: ["']?plugh\(0,0\)["']? /; eval 'sub e3 ($) : plugh(0,0 xyzzy ;'; like $@, qr/Unterminated attribute parameter in attribute list at/; -eval 'sub e4 ($) : plugh + xyzzy ;'; +eval 'sub e4 ($) : plugh + XYZZY ;'; like $@, qr/Invalid separator character '[+]' in attribute list at/; eval_ok 'my main $x : = 0;'; |