From 23c4eb42a3eeb69d4043245372457d61a0579328 Mon Sep 17 00:00:00 2001
From: Andrew Johnson <anj@aps.anl.gov>
Date: Mon, 28 May 2018 17:31:16 -0500
Subject: [PATCH] Perl s/use vars/our/

---
 src/tools/dbdToHtml.pl        | 2 +-
 src/tools/dbdToMenuH.pl       | 2 +-
 src/tools/dbdToRecordtypeH.pl | 2 +-
 3 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/tools/dbdToHtml.pl b/src/tools/dbdToHtml.pl
index bb1ca7d86..fac850a7e 100644
--- a/src/tools/dbdToHtml.pl
+++ b/src/tools/dbdToHtml.pl
@@ -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";
 
diff --git a/src/tools/dbdToMenuH.pl b/src/tools/dbdToMenuH.pl
index 8ad799d67..3470c1017 100755
--- a/src/tools/dbdToMenuH.pl
+++ b/src/tools/dbdToMenuH.pl
@@ -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";
 
diff --git a/src/tools/dbdToRecordtypeH.pl b/src/tools/dbdToRecordtypeH.pl
index 5c2380897..ce3c029d9 100755
--- a/src/tools/dbdToRecordtypeH.pl
+++ b/src/tools/dbdToRecordtypeH.pl
@@ -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";