In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/36252f000ad9d912b065ff84daf4faaee722ad4e?hp=6fa0b0fde9c44962e943e17a84fe4e7a76af0e39>
- Log ----------------------------------------------------------------- commit 36252f000ad9d912b065ff84daf4faaee722ad4e Author: Father Chrysostomos <[email protected]> Date: Wed Oct 8 08:29:04 2014 -0700 attrs.t: Test that attr handlers can see prototypes ----------------------------------------------------------------------- Summary of changes: t/op/attrs.t | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/t/op/attrs.t b/t/op/attrs.t index 5e97691..2761d47 100644 --- a/t/op/attrs.t +++ b/t/op/attrs.t @@ -383,4 +383,10 @@ unlike runperl( qr/Unbalanced/, 'attribute errors do not cause op trees to leak'; +package ProtoTest { + sub MODIFY_CODE_ATTRIBUTES { $Proto = prototype $_[1]; () } + sub foo ($) : gelastic {} +} +is $ProtoTest::Proto, '$', 'prototypes are visible in attr handlers'; + done_testing(); -- Perl5 Master Repository
