0b995a
From d432fdba21ba5c1ba3008b2a21e44920c329ab1f Mon Sep 17 00:00:00 2001
0b995a
From: Jitka Plesnikova <jplesnik@redhat.com>
0b995a
Date: Thu, 24 May 2018 10:36:25 +0200
0b995a
Subject: [PATCH] Upgrade to 1.29
0b995a
0b995a
---
0b995a
 lib/Locale/Maketext.pm  | 13 ++++++-------
0b995a
 lib/Locale/Maketext.pod |  2 +-
0b995a
 t/60_super.t            | 15 ++++++---------
0b995a
 t/70_fail_auto.t        |  6 ++----
0b995a
 4 files changed, 15 insertions(+), 21 deletions(-)
0b995a
0b995a
diff --git a/lib/Locale/Maketext.pm b/lib/Locale/Maketext.pm
0b995a
index 36d0c05..f70438b 100644
0b995a
--- a/lib/Locale/Maketext.pm
0b995a
+++ b/lib/Locale/Maketext.pm
0b995a
@@ -1,7 +1,6 @@
0b995a
 package Locale::Maketext;
0b995a
 use strict;
0b995a
-use vars qw( @ISA $VERSION $MATCH_SUPERS $USING_LANGUAGE_TAGS
0b995a
-$USE_LITERALS $MATCH_SUPERS_TIGHTLY);
0b995a
+our $USE_LITERALS;
0b995a
 use Carp ();
0b995a
 use I18N::LangTags ();
0b995a
 use I18N::LangTags::Detect ();
0b995a
@@ -26,12 +25,12 @@ BEGIN {
0b995a
 }
0b995a
 
0b995a
 
0b995a
-$VERSION = '1.28';
0b995a
-@ISA = ();
0b995a
+our $VERSION = '1.29';
0b995a
+our @ISA = ();
0b995a
 
0b995a
-$MATCH_SUPERS = 1;
0b995a
-$MATCH_SUPERS_TIGHTLY = 1;
0b995a
-$USING_LANGUAGE_TAGS  = 1;
0b995a
+our $MATCH_SUPERS = 1;
0b995a
+our $MATCH_SUPERS_TIGHTLY = 1;
0b995a
+our $USING_LANGUAGE_TAGS  = 1;
0b995a
 # Turning this off is somewhat of a security risk in that little or no
0b995a
 # checking will be done on the legality of tokens passed to the
0b995a
 # eval("use $module_name") in _try_use.  If you turn this off, you have
0b995a
diff --git a/lib/Locale/Maketext.pod b/lib/Locale/Maketext.pod
0b995a
index 564e5af..24c8f24 100644
0b995a
--- a/lib/Locale/Maketext.pod
0b995a
+++ b/lib/Locale/Maketext.pod
0b995a
@@ -1226,7 +1226,7 @@ If you get tired of constantly saying C<print $lh-E<gt>maketext>,
0b995a
 consider making a functional wrapper for it, like so:
0b995a
 
0b995a
   use Projname::L10N;
0b995a
-  use vars qw($lh);
0b995a
+  our $lh;
0b995a
   $lh = Projname::L10N->get_handle(...) || die "Language?";
0b995a
   sub pmt (@) { print( $lh->maketext(@_)) }
0b995a
    # "pmt" is short for "Print MakeText"
0b995a
diff --git a/t/60_super.t b/t/60_super.t
0b995a
index d54fc33..5ac0959 100644
0b995a
--- a/t/60_super.t
0b995a
+++ b/t/60_super.t
0b995a
@@ -9,23 +9,20 @@ BEGIN {
0b995a
 
0b995a
 {
0b995a
     package Whunk::L10N;
0b995a
-    use vars qw(@ISA %Lexicon);
0b995a
-    @ISA =  'Locale::Maketext';
0b995a
-    %Lexicon = ('hello' => 'SROBLR!');
0b995a
+    our @ISA =  'Locale::Maketext';
0b995a
+    our %Lexicon = ('hello' => 'SROBLR!');
0b995a
 }
0b995a
 
0b995a
 {
0b995a
     package Whunk::L10N::en;
0b995a
-    use vars qw(@ISA %Lexicon);
0b995a
-    @ISA =  'Whunk::L10N';
0b995a
-    %Lexicon = ('hello' => 'HI AND STUFF!');
0b995a
+    our @ISA =  'Whunk::L10N';
0b995a
+    our %Lexicon = ('hello' => 'HI AND STUFF!');
0b995a
 }
0b995a
 
0b995a
 {
0b995a
     package Whunk::L10N::zh_tw;
0b995a
-    use vars qw(@ISA %Lexicon);
0b995a
-    @ISA =  'Whunk::L10N';
0b995a
-    %Lexicon = ('hello' => 'NIHAU JOE!');
0b995a
+    our @ISA =  'Whunk::L10N';
0b995a
+    our %Lexicon = ('hello' => 'NIHAU JOE!');
0b995a
 }
0b995a
 
0b995a
 $ENV{'REQUEST_METHOD'} = 'GET';
0b995a
diff --git a/t/70_fail_auto.t b/t/70_fail_auto.t
0b995a
index 44fe54d..df0de3e 100644
0b995a
--- a/t/70_fail_auto.t
0b995a
+++ b/t/70_fail_auto.t
0b995a
@@ -9,14 +9,12 @@ BEGIN {
0b995a
 
0b995a
 {
0b995a
     package Whunk::L10N;
0b995a
-    use vars qw(@ISA);
0b995a
-    @ISA =  'Locale::Maketext';
0b995a
+    our @ISA =  'Locale::Maketext';
0b995a
 }
0b995a
 
0b995a
 {
0b995a
     package Whunk::L10N::en;
0b995a
-    use vars qw(@ISA);
0b995a
-    @ISA = 'Whunk::L10N';
0b995a
+    our @ISA = 'Whunk::L10N';
0b995a
 }
0b995a
 
0b995a
 my $lh = Whunk::L10N->get_handle('en');
0b995a
-- 
0b995a
2.14.3
0b995a