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 | cc01160e81924fc81416f1a69e0c7c52f7c1bcf7 (patch) | |
| tree | acd3b2eb04def6f1aab60612f9a1114100144af4 /lib/Tie | |
| parent | 1a58b39af83e11fcbeef7ae4cd90c565b1f6b8cb (diff) | |
| download | perl-cc01160e81924fc81416f1a69e0c7c52f7c1bcf7.tar.gz | |
Replace multiple 'use vars' by 'our' in lib
Using vars pragma is discouraged and has been superseded by 'our' declarations
available in Perl v5.6.0 or later.
This commit is about replacing the usage of 'vars' pragma
by 'our' in 'lib' directory.
Diffstat (limited to 'lib/Tie')
| -rw-r--r-- | lib/Tie/Array.pm | 5 | ||||
| -rw-r--r-- | lib/Tie/Scalar.t | 5 | ||||
| -rw-r--r-- | lib/Tie/StdHandle.pm | 5 |
3 files changed, 6 insertions, 9 deletions
diff --git a/lib/Tie/Array.pm b/lib/Tie/Array.pm index e0516a2f30..192983b428 100644 --- a/lib/Tie/Array.pm +++ b/lib/Tie/Array.pm @@ -3,7 +3,7 @@ package Tie::Array; use 5.006_001; use strict; use Carp; -our $VERSION = '1.06'; +our $VERSION = '1.07'; # Pod documentation after __END__ below. @@ -83,8 +83,7 @@ sub DELETE { } package Tie::StdArray; -use vars qw(@ISA); -@ISA = 'Tie::Array'; +our @ISA = 'Tie::Array'; sub TIEARRAY { bless [], $_[0] } sub FETCHSIZE { scalar @{$_[0]} } diff --git a/lib/Tie/Scalar.t b/lib/Tie/Scalar.t index 9be536f8b3..4a6fcfa526 100644 --- a/lib/Tie/Scalar.t +++ b/lib/Tie/Scalar.t @@ -9,14 +9,13 @@ BEGIN { package TieTest; use Tie::Scalar; -use vars qw( @ISA ); -@ISA = qw( Tie::Scalar ); +our @ISA = qw( Tie::Scalar ); sub new { 'Fooled you.' } package main; -use vars qw( $flag ); +our $flag; use Test::More tests => 16; use_ok( 'Tie::Scalar' ); diff --git a/lib/Tie/StdHandle.pm b/lib/Tie/StdHandle.pm index 0c58b706e4..dfb86634f0 100644 --- a/lib/Tie/StdHandle.pm +++ b/lib/Tie/StdHandle.pm @@ -3,9 +3,8 @@ package Tie::StdHandle; use strict; use Tie::Handle; -use vars qw(@ISA $VERSION); -@ISA = 'Tie::Handle'; -$VERSION = '4.4'; +our @ISA = 'Tie::Handle'; +our $VERSION = '4.5'; =head1 NAME |