diff options
| author | Daniel Chetlin <daniel@chetlin.com> | 2000-12-23 20:09:49 -0800 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-12-28 22:09:25 +0000 |
| commit | 3f8f46260df6761c2dfca5c829d94c03c274d7d7 (patch) | |
| tree | 38760239fa9f922ba5ca3189227159badd3f1d3d /t | |
| parent | 33005217ba51d2bf59b6e5a482ff80b758900633 (diff) | |
| download | perl-3f8f46260df6761c2dfca5c829d94c03c274d7d7.tar.gz | |
Re: [PATCH blead] Fix segfault in gv_handler/mg_find
Message-ID: <20001224040949.B3090@darkstar>
p4raw-id: //depot/perl@8236
Diffstat (limited to 't')
| -rw-r--r-- | t/op/attrs.t | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/t/op/attrs.t b/t/op/attrs.t index 2702004881..f9212e4c26 100644 --- a/t/op/attrs.t +++ b/t/op/attrs.t @@ -142,6 +142,10 @@ eval 'my A $x : plugh plover;'; mytest qr/^SCALAR package attributes may clash with future reserved words: ["']?plugh["']? /; BEGIN {++$ntests} +eval 'package Cat; my Cat @socks;'; +mytest qr/^Can't declare class for non-scalar \@socks in "my"/; +BEGIN {++$ntests} + sub X::MODIFY_CODE_ATTRIBUTES { die "$_[0]" } sub X::foo { 1 } *Y::bar = \&X::foo; |