[PATCH] Don't promulgate Perl attributes

#!/usr/bin/perl

use strict;
use warnings;

use threads;
use threads::shared;

use Test::More 'no_plan';

sub MODIFY_HASH_ATTRIBUTES
{
    my ($pkg, $hash, @attrs) = @_;

    ok(grep(qr/^Baz$/, @attrs),      q/Did see 'Baz'/);

    # BUG - the 'shared' attribute should be 'filtered out'
    ok(! grep(qr/^shared$/, @attrs), q/Did not see 'shared'/);

    return;
}

my %foo :shared Baz;

ok(threads::shared::is_shared(%foo), '%foo is shared');

# EOF

• [PATCH] Don't promulgate Perl attributes by Jerry D. Hedden
• RE: [PATCH] Don't promulgate Perl attributes by Jerry D. Hedden
• Re: [PATCH] Don't promulgate Perl attributes by Rafael Garcia-Suarez