s/use vars/our/ (from Gisle Aas)

p4raw-id: //depot/perl@5105

diff --git a/bytecode.pl b/bytecode.pl
index 00df48b..0ffe8e4 100644 (file)
--- a/bytecode.pl
+++ b/bytecode.pl
@@ -47,7 +47,7 @@ package B::Asmdata;
 use Exporter;
 @ISA = qw(Exporter);
 @EXPORT_OK = qw(%insn_data @insn_name @optype @specialsv_name);
-use vars qw(%insn_data @insn_name @optype @specialsv_name);
+our(%insn_data, @insn_name, @optype, @specialsv_name);
 
 EOT
 print ASMDATA_PM <<"EOT";