Hello community,
here is the log from the commit of package perl-App-cpanminus for
openSUSE:Factory checked in at 2014-06-25 21:20:13
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-App-cpanminus (Old)
and /work/SRC/openSUSE:Factory/.perl-App-cpanminus.new (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-App-cpanminus"
Changes:
--------
--- /work/SRC/openSUSE:Factory/perl-App-cpanminus/perl-App-cpanminus.changes
2014-06-16 21:29:55.000000000 +0200
+++
/work/SRC/openSUSE:Factory/.perl-App-cpanminus.new/perl-App-cpanminus.changes
2014-06-25 21:20:14.000000000 +0200
@@ -1,0 +2,15 @@
+Wed Jun 25 11:25:40 UTC 2014 - [email protected]
+
+- fix one more require
+
+-------------------------------------------------------------------
+Mon Jun 23 14:30:19 UTC 2014 - [email protected]
+
+- fix provides/obsoletes of cpanm
+
+-------------------------------------------------------------------
+Tue Jun 17 06:35:21 UTC 2014 - [email protected]
+
+- borrow fedora's solution to unpack the fat script into its dependencies
+
+-------------------------------------------------------------------
New:
----
fatunpack
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-App-cpanminus.spec ++++++
--- /var/tmp/diff_new_pack.zh3WHR/_old 2014-06-25 21:20:15.000000000 +0200
+++ /var/tmp/diff_new_pack.zh3WHR/_new 2014-06-25 21:20:15.000000000 +0200
@@ -24,7 +24,8 @@
License: Artistic-1.0 or GPL-1.0+
Group: Development/Libraries/Perl
Url: http://search.cpan.org/dist/App-cpanminus/
-Source:
http://www.cpan.org/authors/id/M/MI/MIYAGAWA/%{cpan_name}-%{version}.tar.gz
+Source0:
http://www.cpan.org/authors/id/M/MI/MIYAGAWA/%{cpan_name}-%{version}.tar.gz
+Source1:
http://pkgs.fedoraproject.org/cgit/perl-App-cpanminus.git/plain/fatunpack
BuildArch: noarch
BuildRoot: %{_tmppath}/%{name}-%{version}-build
BuildRequires: perl
@@ -36,6 +37,78 @@
Requires: perl(ExtUtils::MakeMaker) >= 6.31
Requires: perl(Module::Build) >= 0.36
%{perl_requires}
+# MANUAL
+# Run-time:
+# Nothing special. The tests are very poor. But we run perl -c at built-time
+# to check for correct unpacking. So we need non-optional run-time
+# dependencies at build-time too:
+BuildRequires: perl(Config)
+BuildRequires: perl(aliased)
+BuildRequires: perl(constant)
+# CPAN::DistnameInfo not needed for compilation
+# CPAN::Meta not needed for copmilation
+# CPAN::Meta::Check not needed for compilation
+# CPAN::Meta::Prereqs not needed for compilation
+BuildRequires: perl(CPAN::Meta::Requirements)
+# CPAN::Meta::YAML not needed for compilation
+BuildRequires: perl(Cwd)
+# Digest::SHA not needed for compilation
+# Dumpvalue not needed for compilation
+# ExtUtils::Manifest not needed for compilation
+BuildRequires: perl(File::Basename)
+BuildRequires: perl(File::Copy)
+BuildRequires: perl(File::Find)
+# File::pushd not needed for compilation
+BuildRequires: perl(File::Temp)
+# HTTP::Tiny not needed for compilation
+# JSON::PP not needed for compilation
+# local::lib not needed for compilation
+# Module::CoreList not needed for compilation
+# Module::CPANfile not needed for compilation
+# Module::Metadata not needed for compilation
+BuildRequires: perl(Parse::CPAN::Meta)
+# POSIX not needed for compilation
+# Safe not needed for compilation
+BuildRequires: perl(String::ShellQuote)
+BuildRequires: perl(Symbol)
+BuildRequires: perl(version)
+# version::vpp not needed for compilation
+BuildRequires: perl(warnings::register)
+# YAML not needed for compilation
+# Tests:
+BuildRequires: perl(Test::More)
+# Current dependency generator cannot parse compressed code. Use PPI to find
+# them, and list them manually:
+# Archive::Tar is optional
+# Archive::Zip is optional
+# Compress::Zlib is optional
+Requires: perl(CPAN::DistnameInfo)
+Requires: perl(CPAN::Meta)
+Requires: perl(CPAN::Meta::Check)
+Requires: perl(CPAN::Meta::Prereqs)
+Requires: perl(CPAN::Meta::YAML)
+Requires: perl(Digest::SHA)
+Requires: perl(ExtUtils::Install) >= 1.46
+Requires: perl(ExtUtils::MakeMaker) >= 6.31
+Requires: perl(ExtUtils::Manifest)
+# File::HomeDir is optional
+Requires: perl(File::pushd)
+# HTTP getter by LWP::UserAgent or wget or curl or HTTP::Tiny
+Requires: perl(HTTP::Tiny)
+Requires: perl(local::lib)
+# LWP::Protocol::https is optional
+# LWP::UserAgent is optional
+Requires: perl(Module::Build)
+Requires: perl(Module::CPANfile)
+Requires: perl(Module::CoreList)
+Requires: perl(Module::Metadata)
+# Module::Signature is optional
+Requires: perl(String::ShellQuote)
+# Win32 not used
+Requires: perl(YAML)
+
+Provides: cpanm = %{version}-%{release}
+Obsoletes: cpanm <= 1.5010
%description
cpanminus is a script to get, unpack, build and install modules from CPAN
@@ -47,6 +120,15 @@
%prep
%setup -q -n %{cpan_name}-%{version}
find . -type f -print0 | xargs -0 chmod 644
+# MANUAL
+# Unbundle fat-packed modules
+podselect lib/App/cpanminus.pm > lib/App/cpanminus.pod
+
+for F in bin/cpanm lib/App/cpanminus/fatscript.pm; do
+ perl %{SOURCE1} --libdir lib --filter '^App/cpanminus' "$F" >
"${F}.stripped"
+ perl -c -Ilib "${F}.stripped"
+ mv "${F}.stripped" "$F"
+done
%build
%{__perl} Makefile.PL INSTALLDIRS=vendor
++++++ fatunpack ++++++
#!/usr/bin/perl
use strict;
use warnings;
use File::Path;
use File::Spec;
use Getopt::Long;
my $libdir = 'lib';
my $filter = '';
GetOptions('libdir=s' => \$libdir, 'filter=s' => \$filter) or
die "Could not parse arguments\n";
if ($filter eq '') {
# Empty pattern passes previous result by definition. Do not use it.
# Interpolared compilation is fixed in perl 5.18.0. RT#119095.
$filter = qr/(?:)/;
}
eval { $filter = qr{$filter}; 1} or
die "Could not compile filter as a regular expression: $@\n";
my ($file, $filename, $delimiter);
while (<>) {
if (/^\$fatpacked\{\s*"([^"]*)"\s*\}\s*=.*<<\s*'([^']*)'\s*;/) {
# Packed module beginning found
$filename = $1;
$delimiter = $2;
if ($filename =~ $filter) {
print STDERR "Extracting `$filename'\n";
my $directory = (File::Spec->splitpath($filename))[1];
File::Path::make_path(File::Spec->catfile($libdir, $directory));
if ($file) {
die "Unballanced fat-packed module at line $.\n";
}
open($file, '>', File::Spec->catfile($libdir, $filename)) or
die "Could not create `",
File::Spec->catfile($libdir, $filename), "': $!\n";
} else {
print STDERR "Removing `$filename'\n";
}
} elsif (defined $delimiter and /^\Q$delimiter\E$/) {
# Packed module end found
if (defined $file) {
close($file) or
die "Could not close `",
File::Spec->catfile($libdir, $filename), "': $!\n";
$file = undef;
}
$filename = undef;
$delimiter = undef;
} elsif (defined $file) {
# Packed module to extract
s/^ //; # de-escape recursive here-documents
print $file $_;
} elsif (! defined $delimiter) {
# Rest of code to output
print STDOUT $_;
}
}
__END__
=encoding utf8
=head1 NAME
fatunpack - Unpacker for App::FatPacker packets
=head1 SYNOPSYS
fatunpack [OPTION…] [PACKED_SCRIPT…]
=head1 DESCRIPTION
This tool unpacks scripts packed with App::FatPacker.
Packed script's file names are specified as positional arguments. If no
argument is given, a script from standard intput will be processed.
The content of packed script stripped of all bundled modules is written to
standard output.
=head1 OPTIONS
=over 8
=item B<--libdir DIRECTORY>
Directory to output unpacked modules to that where bundled into the input
script. Default value is C<lib>.
=item B<--filter REGULAR_EXPRESSION>
Save only modules whose file name matches the B<REGULAR_EXPRESSION>. The file
names are compared without B<--libdir> prefix. The expession is not anchored
by default. Empty expression matches any file name. Default value is empty
regular expression, i.e. to save all modules.
=back
=head1 VERSION
This is version 2.
=head1 COPYRIGHT
Copyright © 2013, 2014 Petr Písař <[email protected]>.
=head1 LICENSE
This is free software. You may redistribute copies of it under the terms of
the GNU General Public License L<http://www.gnu.org/licenses/gpl.html>.
There is NO WARRANTY, to the extent permitted by law.
=cut
--
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
