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/Time | |
| 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/Time')
| -rw-r--r-- | lib/Time/gmtime.pm | 10 | ||||
| -rw-r--r-- | lib/Time/localtime.pm | 11 |
2 files changed, 15 insertions, 6 deletions
diff --git a/lib/Time/gmtime.pm b/lib/Time/gmtime.pm index eb5b371a00..99f470be51 100644 --- a/lib/Time/gmtime.pm +++ b/lib/Time/gmtime.pm @@ -4,7 +4,12 @@ use 5.006_001; use Time::tm; -our(@ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS, $VERSION); +our (@ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS, $VERSION); +our ( $tm_sec, $tm_min, $tm_hour, $tm_mday, + $tm_mon, $tm_year, $tm_wday, $tm_yday, + $tm_isdst, +); + BEGIN { use Exporter (); @ISA = qw(Exporter Time::tm); @@ -15,9 +20,8 @@ BEGIN { $tm_isdst ); %EXPORT_TAGS = ( FIELDS => [ @EXPORT_OK, @EXPORT ] ); - $VERSION = 1.03; + $VERSION = 1.04; } -use vars @EXPORT_OK; sub populate (@) { return unless @_; diff --git a/lib/Time/localtime.pm b/lib/Time/localtime.pm index c3d9fb3608..f2ef084038 100644 --- a/lib/Time/localtime.pm +++ b/lib/Time/localtime.pm @@ -4,7 +4,13 @@ use 5.006_001; use Time::tm; -our(@ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS, $VERSION); +our (@ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS, $VERSION); +our ( + $tm_sec, $tm_min, $tm_hour, $tm_mday, + $tm_mon, $tm_year, $tm_wday, $tm_yday, + $tm_isdst +); + BEGIN { use Exporter (); @ISA = qw(Exporter Time::tm); @@ -15,9 +21,8 @@ BEGIN { $tm_isdst ); %EXPORT_TAGS = ( FIELDS => [ @EXPORT_OK, @EXPORT ] ); - $VERSION = 1.02; + $VERSION = 1.03; } -use vars @EXPORT_OK; sub populate (@) { return unless @_; |