Package init
This commit is contained in:
overweight
commit
46a39848ed
38
Exporter-5.70-Upgrade-to-5.72.patch
Normal file
38
Exporter-5.70-Upgrade-to-5.72.patch
Normal file
@ -0,0 +1,38 @@
|
||||
From 6e7210f1ad3f709f846a812ab7db6543af90c477 Mon Sep 17 00:00:00 2001
|
||||
From: =?UTF-8?q?Petr=20P=C3=ADsa=C5=99?= <ppisar@redhat.com>
|
||||
Date: Wed, 6 May 2015 12:35:17 +0200
|
||||
Subject: [PATCH] Upgrade to 5.72
|
||||
MIME-Version: 1.0
|
||||
Content-Type: text/plain; charset=UTF-8
|
||||
Content-Transfer-Encoding: 8bit
|
||||
|
||||
Signed-off-by: Petr Písař <ppisar@redhat.com>
|
||||
---
|
||||
lib/Exporter.pm | 4 ++--
|
||||
1 file changed, 2 insertions(+), 2 deletions(-)
|
||||
|
||||
diff --git a/lib/Exporter.pm b/lib/Exporter.pm
|
||||
index 4930505..0b3db21 100644
|
||||
--- a/lib/Exporter.pm
|
||||
+++ b/lib/Exporter.pm
|
||||
@@ -9,7 +9,7 @@ require 5.006;
|
||||
our $Debug = 0;
|
||||
our $ExportLevel = 0;
|
||||
our $Verbose ||= 0;
|
||||
-our $VERSION = '5.70';
|
||||
+our $VERSION = '5.72';
|
||||
our (%Cache);
|
||||
|
||||
sub as_heavy {
|
||||
@@ -223,7 +223,7 @@ right. Specifications are in the form:
|
||||
|
||||
[!]name This name only
|
||||
[!]:DEFAULT All names in @EXPORT
|
||||
- [!]:tag All names in $EXPORT_TAGS{tag} anonymous list
|
||||
+ [!]:tag All names in $EXPORT_TAGS{tag} anonymous array
|
||||
[!]/pattern/ All names in @EXPORT and @EXPORT_OK which match
|
||||
|
||||
A leading ! indicates that matching names should be deleted from the
|
||||
--
|
||||
2.1.0
|
||||
|
||||
BIN
Exporter-5.70.tar.gz
Normal file
BIN
Exporter-5.70.tar.gz
Normal file
Binary file not shown.
116
Exporter-5.72-Upgrade-to-5.73.patch
Normal file
116
Exporter-5.72-Upgrade-to-5.73.patch
Normal file
@ -0,0 +1,116 @@
|
||||
From 2c6f580d94d78b0a8e120ba86858ffcb003b08eb Mon Sep 17 00:00:00 2001
|
||||
From: Jitka Plesnikova <jplesnik@redhat.com>
|
||||
Date: Thu, 24 May 2018 09:38:04 +0200
|
||||
Subject: [PATCH] Upgrade to 5.73
|
||||
|
||||
---
|
||||
lib/Exporter.pm | 32 ++++++++++++++++----------------
|
||||
1 file changed, 16 insertions(+), 16 deletions(-)
|
||||
|
||||
diff --git a/lib/Exporter.pm b/lib/Exporter.pm
|
||||
index 0b3db21..0e8775d 100644
|
||||
--- a/lib/Exporter.pm
|
||||
+++ b/lib/Exporter.pm
|
||||
@@ -9,7 +9,7 @@ require 5.006;
|
||||
our $Debug = 0;
|
||||
our $ExportLevel = 0;
|
||||
our $Verbose ||= 0;
|
||||
-our $VERSION = '5.72';
|
||||
+our $VERSION = '5.73';
|
||||
our (%Cache);
|
||||
|
||||
sub as_heavy {
|
||||
@@ -106,14 +106,14 @@ In module F<YourModule.pm>:
|
||||
|
||||
package YourModule;
|
||||
require Exporter;
|
||||
- @ISA = qw(Exporter);
|
||||
- @EXPORT_OK = qw(munge frobnicate); # symbols to export on request
|
||||
+ our @ISA = qw(Exporter);
|
||||
+ our @EXPORT_OK = qw(munge frobnicate); # symbols to export on request
|
||||
|
||||
or
|
||||
|
||||
package YourModule;
|
||||
use Exporter 'import'; # gives you Exporter's import() method directly
|
||||
- @EXPORT_OK = qw(munge frobnicate); # symbols to export on request
|
||||
+ our @EXPORT_OK = qw(munge frobnicate); # symbols to export on request
|
||||
|
||||
In other files which wish to use C<YourModule>:
|
||||
|
||||
@@ -146,8 +146,8 @@ symbols can represent functions, scalars, arrays, hashes, or typeglobs.
|
||||
The symbols must be given by full name with the exception that the
|
||||
ampersand in front of a function is optional, e.g.
|
||||
|
||||
- @EXPORT = qw(afunc $scalar @array); # afunc is a function
|
||||
- @EXPORT_OK = qw(&bfunc %hash *typeglob); # explicit prefix on &bfunc
|
||||
+ our @EXPORT = qw(afunc $scalar @array); # afunc is a function
|
||||
+ our @EXPORT_OK = qw(&bfunc %hash *typeglob); # explicit prefix on &bfunc
|
||||
|
||||
If you are only exporting function names it is recommended to omit the
|
||||
ampersand, as the implementation is faster this way.
|
||||
@@ -234,9 +234,9 @@ include :DEFAULT explicitly.
|
||||
|
||||
e.g., F<Module.pm> defines:
|
||||
|
||||
- @EXPORT = qw(A1 A2 A3 A4 A5);
|
||||
- @EXPORT_OK = qw(B1 B2 B3 B4 B5);
|
||||
- %EXPORT_TAGS = (T1 => [qw(A1 A2 B1 B2)], T2 => [qw(A1 A2 B3 B4)]);
|
||||
+ our @EXPORT = qw(A1 A2 A3 A4 A5);
|
||||
+ our @EXPORT_OK = qw(B1 B2 B3 B4 B5);
|
||||
+ our %EXPORT_TAGS = (T1 => [qw(A1 A2 B1 B2)], T2 => [qw(A1 A2 B3 B4)]);
|
||||
|
||||
Note that you cannot use tags in @EXPORT or @EXPORT_OK.
|
||||
|
||||
@@ -279,8 +279,8 @@ import function:
|
||||
|
||||
package A;
|
||||
|
||||
- @ISA = qw(Exporter);
|
||||
- @EXPORT_OK = qw($b);
|
||||
+ our @ISA = qw(Exporter);
|
||||
+ our @EXPORT_OK = qw($b);
|
||||
|
||||
sub import
|
||||
{
|
||||
@@ -293,8 +293,8 @@ inheritance, as it stands Exporter::import() will never get called.
|
||||
Instead, say the following:
|
||||
|
||||
package A;
|
||||
- @ISA = qw(Exporter);
|
||||
- @EXPORT_OK = qw($b);
|
||||
+ our @ISA = qw(Exporter);
|
||||
+ our @EXPORT_OK = qw($b);
|
||||
|
||||
sub import
|
||||
{
|
||||
@@ -374,7 +374,7 @@ Since the symbols listed within C<%EXPORT_TAGS> must also appear in either
|
||||
C<@EXPORT> or C<@EXPORT_OK>, two utility functions are provided which allow
|
||||
you to easily add tagged sets of symbols to C<@EXPORT> or C<@EXPORT_OK>:
|
||||
|
||||
- %EXPORT_TAGS = (foo => [qw(aa bb cc)], bar => [qw(aa cc dd)]);
|
||||
+ our %EXPORT_TAGS = (foo => [qw(aa bb cc)], bar => [qw(aa cc dd)]);
|
||||
|
||||
Exporter::export_tags('foo'); # add aa, bb and cc to @EXPORT
|
||||
Exporter::export_ok_tags('bar'); # add aa, cc and dd to @EXPORT_OK
|
||||
@@ -391,7 +391,7 @@ useful to create the utility ":all" to simplify "use" statements.
|
||||
|
||||
The simplest way to do this is:
|
||||
|
||||
- %EXPORT_TAGS = (foo => [qw(aa bb cc)], bar => [qw(aa cc dd)]);
|
||||
+ our %EXPORT_TAGS = (foo => [qw(aa bb cc)], bar => [qw(aa cc dd)]);
|
||||
|
||||
# add all the other ":class" tags to the ":all" class,
|
||||
# deleting duplicates
|
||||
@@ -460,7 +460,7 @@ variables C<@EXPORT_OK>, C<@EXPORT>, C<@ISA>, etc.
|
||||
our @ISA = qw(Exporter);
|
||||
our @EXPORT_OK = qw(munge frobnicate);
|
||||
|
||||
-If backward compatibility for Perls under 5.6 is important,
|
||||
+If backward compatibility for Perls B<under> 5.6 is important,
|
||||
one must write instead a C<use vars> statement.
|
||||
|
||||
use vars qw(@ISA @EXPORT_OK);
|
||||
--
|
||||
2.14.3
|
||||
|
||||
60
perl-Exporter.spec
Normal file
60
perl-Exporter.spec
Normal file
@ -0,0 +1,60 @@
|
||||
Name: perl-Exporter
|
||||
Version: 5.73
|
||||
Release: 419
|
||||
Summary: Implements default import method for modules
|
||||
License: GPL+ or Artistic
|
||||
URL: https://metacpan.org/release/Exporter
|
||||
Source0: https://cpan.metacpan.org/authors/id/T/TO/TODDR/Exporter-5.70.tar.gz
|
||||
|
||||
Patch0: Exporter-5.70-Upgrade-to-5.72.patch
|
||||
Patch1: Exporter-5.72-Upgrade-to-5.73.patch
|
||||
|
||||
BuildArch: noarch
|
||||
BuildRequires: perl-interpreter perl-generators git
|
||||
BuildRequires: perl(ExtUtils::MakeMaker)
|
||||
BuildRequires: perl(Carp) >= 1.05 perl(strict) perl(warnings)
|
||||
BuildRequires: perl(Test::More) perl(vars)
|
||||
BuildRequires: perl(Test::Pod) >= 1.18
|
||||
Requires: perl(:MODULE_COMPAT_%(eval "`perl -V:version`"; echo $version))
|
||||
Requires: perl(Carp) >= 1.05 perl(warnings)
|
||||
|
||||
%description
|
||||
The Exporter module implements an import method which allows a module to
|
||||
export functions and variables to its users' name spaces. Many modules use
|
||||
Exporter rather than implementing their own import method because Exporter
|
||||
provides a highly flexible interface, with an implementation optimized for
|
||||
the common case.
|
||||
|
||||
%package help
|
||||
Summary: Documents for %{name}
|
||||
Buildarch: noarch
|
||||
Requires: man
|
||||
|
||||
%description help
|
||||
Man pages and other related documents for %{name}.
|
||||
|
||||
%prep
|
||||
%autosetup -n Exporter-5.70 -p1 -S git
|
||||
|
||||
%build
|
||||
perl Makefile.PL INSTALLDIRS=vendor
|
||||
%make_build
|
||||
|
||||
%install
|
||||
make pure_install DESTDIR=$RPM_BUILD_ROOT
|
||||
find $RPM_BUILD_ROOT -type f -name .packlist | xargs rm -f
|
||||
%{_fixperms} $RPM_BUILD_ROOT/*
|
||||
|
||||
%check
|
||||
make test
|
||||
|
||||
%files
|
||||
%doc Changes README
|
||||
%{perl_vendorlib}/*
|
||||
|
||||
%files help
|
||||
%{_mandir}/man3/*
|
||||
|
||||
%changelog
|
||||
* Sat Sep 14 2019 guiyao <guiyao@huawei.com> - 5.73-419
|
||||
- Package Init
|
||||
Loading…
x
Reference in New Issue
Block a user