diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-01-26 21:45:41 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-01-26 21:45:41 +0000 |
| commit | 0120eecf48d66b2c5ac028f653ce37c6a866b26b (patch) | |
| tree | 4672762c58abfd7b87c1c311161e80225991136b /t/op/attrs.t | |
| parent | 58231d3970cba2e1fc56f38812334ee802d7acf6 (diff) | |
| download | perl-0120eecf48d66b2c5ac028f653ce37c6a866b26b.tar.gz | |
revised attribute syntax: C<my $foo :a :b :c>, C<my $foo : a b c>
and C<my $foo : a : b : c> are all valid (from Spider Boardman)
p4raw-id: //depot/perl@4907
Diffstat (limited to 't/op/attrs.t')
| -rw-r--r-- | t/op/attrs.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/t/op/attrs.t b/t/op/attrs.t index e89c2cb816..615e4d3343 100644 --- a/t/op/attrs.t +++ b/t/op/attrs.t @@ -63,12 +63,12 @@ mytest; BEGIN {++$ntests} my $anon1; -eval '$anon1 = sub ($) : locked,,method { $_[0]++ }'; +eval '$anon1 = sub ($) : locked:method { $_[0]++ }'; mytest; BEGIN {++$ntests} my $anon2; -eval '$anon2 = sub : locked , method { $_[0]++ }'; +eval '$anon2 = sub : locked : method { $_[0]++ }'; mytest; BEGIN {++$ntests} |