This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Suppress proto warning from attrs.t
authorFather Chrysostomos <sprout@cpan.org>
Fri, 10 Jun 2011 17:54:20 +0000 (10:54 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Fri, 10 Jun 2011 17:54:20 +0000 (10:54 -0700)
attributes::get was being called before attributes.pm was loaded.
Why this did not warn before I know not. Maybe that’s another bug....

t/op/attrs.t

index f237e53..c0225c7 100644 (file)
@@ -194,7 +194,7 @@ foreach my $value (\&foo, \$scalar, \@array, \%hash) {
 sub PVBM () { 'foo' }
 { my $dummy = index 'foo', PVBM }
 
-ok !defined(attributes::get(\PVBM)), 
+ok !defined(eval 'attributes::get(\PVBM)'), 
     'PVBMs don\'t segfault attributes::get';
 
 {