diff options
Diffstat (limited to 'ext/B/t/b.t')
-rw-r--r-- | ext/B/t/b.t | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/ext/B/t/b.t b/ext/B/t/b.t index 587c8e665f..c976793e29 100644 --- a/ext/B/t/b.t +++ b/ext/B/t/b.t @@ -21,7 +21,7 @@ BEGIN { use_ok( 'B' ); } package Testing::Symtable; -use vars qw($This @That %wibble $moo %moo); +our ($This, @That, %wibble, $moo, %moo); my $not_a_sym = 'moo'; sub moo { 42 } @@ -35,7 +35,7 @@ package Testing::Symtable::Bar; sub hock { "yarrow" } package main; -use vars qw(%Subs); +our %Subs; local %Subs = (); B::walksymtable(\%Testing::Symtable::, 'find_syms', sub { $_[0] =~ /Foo/ }, 'Testing::Symtable::'); @@ -46,8 +46,7 @@ sub B::GV::find_syms { $main::Subs{$symbol->STASH->NAME . '::' . $symbol->NAME}++; } -my @syms = map { 'Testing::Symtable::'.$_ } qw(This That wibble moo car - BEGIN); +my @syms = map { 'Testing::Symtable::'.$_ } qw(This That wibble moo car); push @syms, "Testing::Symtable::Foo::yarrow"; # Make sure we hit all the expected symbols. |