From 55108fc8754e2bc60bfcce2f4c6389f06cbe6f53 Mon Sep 17 00:00:00 2001 From: Father Chrysostomos Date: Fri, 10 Jun 2011 10:54:20 -0700 Subject: [PATCH] Suppress proto warning from attrs.t MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit 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 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/t/op/attrs.t b/t/op/attrs.t index f237e53..c0225c7 100644 --- a/t/op/attrs.t +++ b/t/op/attrs.t @@ -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'; { -- 2.7.4