diff options
| author | Nicolas R <atoomic@cpan.org> | 2017-09-12 13:20:25 -0600 |
|---|---|---|
| committer | Todd Rinaldo <toddr@cpan.org> | 2017-11-11 01:07:18 -0600 |
| commit | 3d3a0a8a5e7ee9abf3f3e52e1b63942b8c55a069 (patch) | |
| tree | 0b9243ef82f41ad1cdfc2b934499e49615dce73d /installhtml | |
| parent | fd55ca4fb1e49bf9880aad1e3d9f27ace56ec139 (diff) | |
| download | perl-3d3a0a8a5e7ee9abf3f3e52e1b63942b8c55a069.tar.gz | |
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.
Diffstat (limited to 'installhtml')
| -rw-r--r-- | installhtml | 2 |
1 files changed, 1 insertions, 1 deletions
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( |