diff options
| author | Nicholas Clark <nick@ccl4.org> | 2005-01-05 10:10:14 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2005-01-05 10:10:14 +0000 |
| commit | adb2fcba926db68009c2341ac4b91b44e6f7b720 (patch) | |
| tree | 79a5bf22025e723aa7f7043b9104e7f89ee3fcae /t | |
| parent | cbdf9ef8fc9cf46a2005685f012ebfff6f0e974a (diff) | |
| download | perl-adb2fcba926db68009c2341ac4b91b44e6f7b720.tar.gz | |
Rafael spotted that my changes caused warnings. So clean up.
p4raw-id: //depot/perl@23747
Diffstat (limited to 't')
| -rw-r--r-- | t/op/attrs.t | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/t/op/attrs.t b/t/op/attrs.t index cf4bb44218..dc91438d0a 100644 --- 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 ('', '-') { |