From 3d3a0a8a5e7ee9abf3f3e52e1b63942b8c55a069 Mon Sep 17 00:00:00 2001
From: Nicolas R <atoomic@cpan.org>
Date: Tue, 12 Sep 2017 13:20:25 -0600
Subject: Replace multiple 'use vars' by 'our' in utils

Using vars pragma is discouraged and has been superseded by 'our' declarations
available in Perl v5.6.0 or later.
---
 installhtml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'installhtml')

diff --git a/installhtml b/installhtml
index 1094c6a6f0..1b724c0c41 100644
--- a/installhtml
+++ b/installhtml
@@ -164,7 +164,7 @@ usage("") unless @ARGV;
 # See vms/descrip_mms.template -> descrip.mms for invocation.
 if ( $^O eq 'VMS' ) { @ARGV = split(/\s+/,$ARGV[0]); }
 
-use vars qw( %Options );
+our %Options;
 
 # parse the command-line
 my $result = GetOptions( \%Options, qw(
-- 
cgit v1.2.1