Merge Perl s/use vars/our/ changes from 3.15 into 3.16

This commit is contained in:
Andrew Johnson
2018-05-28 17:41:23 -05:00
3 changed files with 3 additions and 3 deletions

View File

@@ -43,7 +43,7 @@ BEGIN {
my $tool = 'dbdToHtml';
use vars qw($opt_D @opt_I $opt_o);
our ($opt_D, @opt_I, $opt_o);
getopts('DI@o:') or
die "Usage: $tool [-D] [-I dir] [-o file.html] file.dbd.pod\n";

View File

@@ -19,7 +19,7 @@ use EPICS::Readfile;
my $tool = 'dbdToMenuH.pl';
use vars qw($opt_D @opt_I $opt_o $opt_s);
our ($opt_D, @opt_I, $opt_o, $opt_s);
getopts('DI@o:') or
die "Usage: $tool: [-D] [-I dir] [-o menu.h] menu.dbd [menu.h]\n";

View File

@@ -19,7 +19,7 @@ use EPICS::Readfile;
my $tool = 'dbdToRecordtypeH.pl';
use vars qw($opt_D @opt_I $opt_o $opt_s);
our ($opt_D, @opt_I, $opt_o, $opt_s);
getopts('DI@o:s') or
die "Usage: $tool [-D] [-I dir] [-o xRecord.h] xRecord.dbd [xRecord.h]\n";