Rafael spotted that my changes caused warnings. So clean up.

p4raw-id: //depot/perl@23747

diff --git a/t/op/attrs.t b/t/op/attrs.t
index cf4bb44..dc91438 100644 (file)
--- a/t/op/attrs.t
+++ b/t/op/attrs.t
@@ -154,6 +154,7 @@ $valid{CODE} = {map {$_ => 1} @code};
 $valid{SCALAR} = {map {$_ => 1} @other};
 $valid{ARRAY} = $valid{HASH} = $valid{SCALAR};
 
+our ($scalar, @array, %hash);
 foreach my $value (\&foo, \$scalar, \@array, \%hash) {
     my $type = ref $value;
     foreach my $negate ('', '-') {