From 222de36b21744261a96964f0c34622d66dd8af04 Mon Sep 17 00:00:00 2001
From: Marius Gavrilescu <marius@ieval.ro>
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.5