Blame SOURCES/Exporter-5.72-Upgrade-to-5.73.patch

4144cf
From 2c6f580d94d78b0a8e120ba86858ffcb003b08eb Mon Sep 17 00:00:00 2001
4144cf
From: Jitka Plesnikova <jplesnik@redhat.com>
4144cf
Date: Thu, 24 May 2018 09:38:04 +0200
4144cf
Subject: [PATCH] Upgrade to 5.73
4144cf
4144cf
---
4144cf
 lib/Exporter.pm | 32 ++++++++++++++++----------------
4144cf
 1 file changed, 16 insertions(+), 16 deletions(-)
4144cf
4144cf
diff --git a/lib/Exporter.pm b/lib/Exporter.pm
4144cf
index 0b3db21..0e8775d 100644
4144cf
--- a/lib/Exporter.pm
4144cf
+++ b/lib/Exporter.pm
4144cf
@@ -9,7 +9,7 @@ require 5.006;
4144cf
 our $Debug = 0;
4144cf
 our $ExportLevel = 0;
4144cf
 our $Verbose ||= 0;
4144cf
-our $VERSION = '5.72';
4144cf
+our $VERSION = '5.73';
4144cf
 our (%Cache);
4144cf
 
4144cf
 sub as_heavy {
4144cf
@@ -106,14 +106,14 @@ In module F<YourModule.pm>:
4144cf
 
4144cf
   package YourModule;
4144cf
   require Exporter;
4144cf
-  @ISA = qw(Exporter);
4144cf
-  @EXPORT_OK = qw(munge frobnicate);  # symbols to export on request
4144cf
+  our @ISA = qw(Exporter);
4144cf
+  our @EXPORT_OK = qw(munge frobnicate);  # symbols to export on request
4144cf
 
4144cf
 or
4144cf
 
4144cf
   package YourModule;
4144cf
   use Exporter 'import'; # gives you Exporter's import() method directly
4144cf
-  @EXPORT_OK = qw(munge frobnicate);  # symbols to export on request
4144cf
+  our @EXPORT_OK = qw(munge frobnicate);  # symbols to export on request
4144cf
 
4144cf
 In other files which wish to use C<YourModule>:
4144cf
 
4144cf
@@ -146,8 +146,8 @@ symbols can represent functions, scalars, arrays, hashes, or typeglobs.
4144cf
 The symbols must be given by full name with the exception that the
4144cf
 ampersand in front of a function is optional, e.g.
4144cf
 
4144cf
-    @EXPORT    = qw(afunc $scalar @array);   # afunc is a function
4144cf
-    @EXPORT_OK = qw(&bfunc %hash *typeglob); # explicit prefix on &bfunc
4144cf
+    our @EXPORT    = qw(afunc $scalar @array);   # afunc is a function
4144cf
+    our @EXPORT_OK = qw(&bfunc %hash *typeglob); # explicit prefix on &bfunc
4144cf
 
4144cf
 If you are only exporting function names it is recommended to omit the
4144cf
 ampersand, as the implementation is faster this way.
4144cf
@@ -234,9 +234,9 @@ include :DEFAULT explicitly.
4144cf
 
4144cf
 e.g., F<Module.pm> defines:
4144cf
 
4144cf
-    @EXPORT      = qw(A1 A2 A3 A4 A5);
4144cf
-    @EXPORT_OK   = qw(B1 B2 B3 B4 B5);
4144cf
-    %EXPORT_TAGS = (T1 => [qw(A1 A2 B1 B2)], T2 => [qw(A1 A2 B3 B4)]);
4144cf
+    our @EXPORT      = qw(A1 A2 A3 A4 A5);
4144cf
+    our @EXPORT_OK   = qw(B1 B2 B3 B4 B5);
4144cf
+    our %EXPORT_TAGS = (T1 => [qw(A1 A2 B1 B2)], T2 => [qw(A1 A2 B3 B4)]);
4144cf
 
4144cf
 Note that you cannot use tags in @EXPORT or @EXPORT_OK.
4144cf
 
4144cf
@@ -279,8 +279,8 @@ import function:
4144cf
 
4144cf
     package A;
4144cf
 
4144cf
-    @ISA = qw(Exporter);
4144cf
-    @EXPORT_OK = qw($b);
4144cf
+    our @ISA = qw(Exporter);
4144cf
+    our @EXPORT_OK = qw($b);
4144cf
 
4144cf
     sub import
4144cf
     {
4144cf
@@ -293,8 +293,8 @@ inheritance, as it stands Exporter::import() will never get called.
4144cf
 Instead, say the following:
4144cf
 
4144cf
     package A;
4144cf
-    @ISA = qw(Exporter);
4144cf
-    @EXPORT_OK = qw($b);
4144cf
+    our @ISA = qw(Exporter);
4144cf
+    our @EXPORT_OK = qw($b);
4144cf
 
4144cf
     sub import
4144cf
     {
4144cf
@@ -374,7 +374,7 @@ Since the symbols listed within C<%EXPORT_TAGS> must also appear in either
4144cf
 C<@EXPORT> or C<@EXPORT_OK>, two utility functions are provided which allow
4144cf
 you to easily add tagged sets of symbols to C<@EXPORT> or C<@EXPORT_OK>:
4144cf
 
4144cf
-  %EXPORT_TAGS = (foo => [qw(aa bb cc)], bar => [qw(aa cc dd)]);
4144cf
+  our %EXPORT_TAGS = (foo => [qw(aa bb cc)], bar => [qw(aa cc dd)]);
4144cf
 
4144cf
   Exporter::export_tags('foo');     # add aa, bb and cc to @EXPORT
4144cf
   Exporter::export_ok_tags('bar');  # add aa, cc and dd to @EXPORT_OK
4144cf
@@ -391,7 +391,7 @@ useful to create the utility ":all" to simplify "use" statements.
4144cf
 
4144cf
 The simplest way to do this is:
4144cf
 
4144cf
-  %EXPORT_TAGS = (foo => [qw(aa bb cc)], bar => [qw(aa cc dd)]);
4144cf
+ our  %EXPORT_TAGS = (foo => [qw(aa bb cc)], bar => [qw(aa cc dd)]);
4144cf
 
4144cf
   # add all the other ":class" tags to the ":all" class,
4144cf
   # deleting duplicates
4144cf
@@ -460,7 +460,7 @@ variables C<@EXPORT_OK>, C<@EXPORT>, C<@ISA>, etc.
4144cf
   our @ISA = qw(Exporter);
4144cf
   our @EXPORT_OK = qw(munge frobnicate);
4144cf
 
4144cf
-If backward compatibility for Perls under 5.6 is important,
4144cf
+If backward compatibility for Perls B<under> 5.6 is important,
4144cf
 one must write instead a C<use vars> statement.
4144cf
 
4144cf
   use vars qw(@ISA @EXPORT_OK);
4144cf
-- 
4144cf
2.14.3
4144cf