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

---
 src/tools/convertRelease.pl | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/src/tools/convertRelease.pl b/src/tools/convertRelease.pl
index fb2153a34..62e3d3eb3 100644
--- a/src/tools/convertRelease.pl
+++ b/src/tools/convertRelease.pl
@@ -21,8 +21,7 @@ use Getopt::Std;
 use EPICS::Path;
 use EPICS::Release;
 
-use vars qw($arch $top $iocroot $root);
-
+our ($arch, $top, $iocroot, $root);
 our ($opt_a, $opt_t, $opt_T);
 
 $Getopt::Std::OUTPUT_HELP_VERSION = 1;