X-Git-Url: http://git.ieval.ro/?a=blobdiff_plain;f=lib%2FPod%2FConstants.pm;fp=lib%2FPod%2FConstants.pm;h=3395a9c2652bafb209f56e6b88ba6ea164f0a127;hb=222de36b21744261a96964f0c34622d66dd8af04;hp=09f3afe329b2a275b02b1a92bbfb4ab7541aed76;hpb=e2c73265e3c81a2b5a5dacac71185cf60676e1f3;p=pod-constants.git

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 };