since we already require perl 5.8, switch "use vars" to "our"

Author: karenetheridge

Changes

@@ -17,6 +17,8 @@ Revision history for HTTP-Message
     - Add support for HTTP status 308, defined in RFC 7238 (Olivier Mengué,
       RT#104102)
 
+    - drop the use of "use vars" (Karen Etheridge)
+
 
 _______________________________________________________________________________
 2012-10-21 HTTP-Message 6.06

Makefile.PL

@@ -29,6 +29,7 @@ WriteMakefile(
         'IO::Uncompress::Inflate'    => 0,
         'IO::Uncompress::RawInflate' => 0,
         'IO::Uncompress::Bunzip2'    => '2.021',
+        'Exporter'                   => '5.57',
     },
     META_MERGE => {
 	resources => {

lib/HTTP/Config.pm

@@ -2,9 +2,8 @@ package HTTP::Config;
 
 use strict;
 use URI;
-use vars qw($VERSION);
 
-$VERSION = "6.07";
+our $VERSION = "6.07";
 
 sub new {
     my $class = shift;

lib/HTTP/Headers.pm

@@ -3,12 +3,11 @@ package HTTP::Headers;
 use strict;
 use Carp ();
 
-use vars qw($VERSION $TRANSLATE_UNDERSCORE);
-$VERSION = "6.07";
+our $VERSION = "6.07";
 
 # The $TRANSLATE_UNDERSCORE variable controls whether '_' can be used
 # as a replacement for '-' in header field names.
-$TRANSLATE_UNDERSCORE = 1 unless defined $TRANSLATE_UNDERSCORE;
+our $TRANSLATE_UNDERSCORE = 1 unless defined $TRANSLATE_UNDERSCORE;
 
 # "Good Practice" order of HTTP message headers:
 #    - General-Headers

lib/HTTP/Headers/Auth.pm

@@ -1,8 +1,8 @@
 package HTTP::Headers::Auth;
 
 use strict;
-use vars qw($VERSION);
-$VERSION = "6.07";
+
+our $VERSION = "6.07";
 
 use HTTP::Headers;
 

lib/HTTP/Headers/ETag.pm

@@ -1,8 +1,8 @@
 package HTTP::Headers::ETag;
 
 use strict;
-use vars qw($VERSION);
-$VERSION = "6.07";
+
+our $VERSION = "6.07";
 
 require HTTP::Date;
 

lib/HTTP/Headers/Util.pm

@@ -1,15 +1,12 @@
 package HTTP::Headers::Util;
 
 use strict;
-use vars qw($VERSION @ISA @EXPORT_OK);
 
-$VERSION = "6.07";
+our $VERSION = "6.07";
 
-require Exporter;
-@ISA=qw(Exporter);
-
-@EXPORT_OK=qw(split_header_words _split_header_words join_header_words);
+use base 'Exporter';
 
+our @EXPORT_OK=qw(split_header_words _split_header_words join_header_words);
 
 
 sub split_header_words {

lib/HTTP/Message.pm

@@ -1,8 +1,8 @@
 package HTTP::Message;
 
 use strict;
-use vars qw($VERSION $AUTOLOAD);
-$VERSION = "6.07";
+
+our $VERSION = "6.07";
 
 require HTTP::Headers;
 require Carp;
@@ -640,6 +640,7 @@ sub _stale_content {
 
 
 # delegate all other method calls to the headers object.
+our $AUTOLOAD;
 sub AUTOLOAD
 {
     my $method = substr($AUTOLOAD, rindex($AUTOLOAD, '::')+2);

lib/HTTP/Request.pm

@@ -1,12 +1,10 @@
 package HTTP::Request;
 
-require HTTP::Message;
-@ISA = qw(HTTP::Message);
-$VERSION = "6.07";
-
 use strict;
 
+use base 'HTTP::Message';
 
+our $VERSION = "6.07";
 
 sub new
 {

lib/HTTP/Request/Common.pm

@@ -1,19 +1,18 @@
 package HTTP::Request::Common;
 
 use strict;
-use vars qw(@EXPORT @EXPORT_OK $VERSION $DYNAMIC_FILE_UPLOAD);
 
-$DYNAMIC_FILE_UPLOAD ||= 0;  # make it defined (don't know why)
+our $DYNAMIC_FILE_UPLOAD ||= 0;  # make it defined (don't know why)
 
-require Exporter;
-*import = \&Exporter::import;
-@EXPORT =qw(GET HEAD PUT POST);
-@EXPORT_OK = qw($DYNAMIC_FILE_UPLOAD DELETE);
+use Exporter 5.57 'import';
+
+our @EXPORT =qw(GET HEAD PUT POST);
+our @EXPORT_OK = qw($DYNAMIC_FILE_UPLOAD DELETE);
 
 require HTTP::Request;
 use Carp();
 
-$VERSION = "6.07";
+our $VERSION = "6.07";
 
 my $CRLF = "\015\012";   # "\r\n" is not portable