From 222de36b21744261a96964f0c34622d66dd8af04 Mon Sep 17 00:00:00 2001 From: Marius Gavrilescu Date: Fri, 17 Jul 2015 13:56:53 +0300 Subject: [PATCH] Use warnings and replace use vars with our --- lib/Pod/Constants.pm | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/lib/Pod/Constants.pm b/lib/Pod/Constants.pm index 09f3afe..3395a9c 100644 --- a/lib/Pod/Constants.pm +++ b/lib/Pod/Constants.pm @@ -5,15 +5,15 @@ package Pod::Constants; -use 5.004; +use 5.006002; use strict; +use warnings; use base qw(Pod::Parser Exporter); use Data::Dumper; use Carp; -use vars qw($VERSION); -$VERSION = 0.17; +our $VERSION = 0.17; # An ugly hack to go from caller() to the relevant parser state # variable @@ -239,7 +239,7 @@ Pod::Constants - Include constants from POD =head1 SYNOPSIS - use vars qw($myvar $VERSION @myarray $html %myhash); + our ($myvar $VERSION @myarray $html %myhash); use Pod::Constants -trim => 1, 'Pod Section Name' => \$myvar, @@ -468,7 +468,7 @@ method seems to break dh-make-perl. =cut - use vars qw($VERSION); + our $VERSION; use Pod::Constants -trim => 1, 'MODULE RELEASE' => sub { ($VERSION) = m/(\d+\.\d+) or die }; -- 2.39.2