[perl-App-cpanminus] Unbundle all modules

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

 



commit 05a090766e3f6cf2f05e5e63cc12e9adc9e5e61f
Author: Petr Písař <ppisar@xxxxxxxxxx>
Date:   Fri Aug 2 17:06:52 2013 +0200

    Unbundle all modules

 fatunpack               |  114 ++++++++++++++++++++++++++++++++++++++++++
 perl-App-cpanminus.spec |  126 +++++++++++++++++++++++++++++++++--------------
 2 files changed, 202 insertions(+), 38 deletions(-)
---
diff --git a/fatunpack b/fatunpack
new file mode 100755
index 0000000..f13b107
--- /dev/null
+++ b/fatunpack
@@ -0,0 +1,114 @@
+#!/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*'([^']*)'\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 1.
+
+=head1 COPYRIGHT
+
+Copyright © 2013  Petr Písař <ppisar@xxxxxxxxxx>.
+
+=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
diff --git a/perl-App-cpanminus.spec b/perl-App-cpanminus.spec
index a0eb629..af4181a 100644
--- a/perl-App-cpanminus.spec
+++ b/perl-App-cpanminus.spec
@@ -1,72 +1,114 @@
 Name:           perl-App-cpanminus
 Version:        1.6927
-Release:        2%{?dist}
+Release:        3%{?dist}
 Summary:        Get, unpack, build and install CPAN modules
 License:        GPL+ or Artistic
 Group:          Development/Libraries
 URL:            http://search.cpan.org/dist/App-cpanminus/
 Source0:        http://www.cpan.org/authors/id/M/MI/MIYAGAWA/App-cpanminus-%{version}.tar.gz
+Source1:        fatunpack
 BuildArch:      noarch
+BuildRequires:  %{_bindir}/podselect
 BuildRequires:  perl
 BuildRequires:  perl(ExtUtils::MakeMaker) >= 6.30
-# Tests:
+BuildRequires:  perl(File::Path)
+BuildRequires:  perl(File::Spec)
+BuildRequires:  perl(Getopt::Long)
 BuildRequires:  perl(strict)
+BuildRequires:  perl(warnings)
+# 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(aliased)
+BuildRequires:  perl(Config)
+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
+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
+# local::lib not needed for compilation
+# JSON::PP not needed for compilation
+# Module::CPANfile not needed for compilation
+# Module::CoreList not needed for compilation
+# Module::Metadata not needed for compilation
+BuildRequires:  perl(Parse::CPAN::Meta)
+# 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)
 Requires:       perl(:MODULE_COMPAT_%(eval "`perl -V:version`"; echo $version))
-# Required by bin/cpanm
-Requires:       perl(base)
-Requires:       perl(Carp)
+# Current dependency generator cannot parse compressed code. Use PPI to find
+# them, and list them manually:
+Requires:       perl(aliased)
+# Archive::Tar is optional
+# Archive::Zip is optional
+# Compress::Zlib is optional
+Requires:       perl(Config)
 Requires:       perl(constant)
-# CPAN::DistnameInfo bundled
-# CPAN::Meta not used
-# CPAN::Meta::Check bundled
-# CPAN::Meta::Converter bundled
-# CPAN::Meta::Feature bundled
-# CPAN::Meta::History bundled
-# CPAN::Meta::Prereqs bundled
-# CPAN::Meta::Requirements bundled
-# CPAN::Meta::Spec bundled
-# CPAN::Meta::Validator bundled
-# CPAN::Meta::YAML bundled
+Requires:       perl(CPAN::DistnameInfo)
+Requires:       perl(CPAN::Meta)
+Requires:       perl(CPAN::Meta::Check)
+Requires:       perl(CPAN::Meta::Prereqs)
+Requires:       perl(CPAN::Meta::Requirements)
+Requires:       perl(CPAN::Meta::YAML)
 Requires:       perl(Cwd)
 Requires:       perl(Digest::SHA)
-Requires:       perl(Encode)
-# Exporter bundled
-# Exporter::Heavy bundled
 Requires:       perl(ExtUtils::Install) >= 1.46
 Requires:       perl(ExtUtils::MakeMaker) >= 6.31
+Requires:       perl(File::Basename)
+Requires:       perl(File::Copy)
+Requires:       perl(File::Find)
+# File::HomeDir is optional
 Requires:       perl(File::Path)
-# File::pushd bundled
+Requires:       perl(File::pushd)
 Requires:       perl(File::Spec)
+Requires:       perl(File::Temp)
 Requires:       perl(Getopt::Long)
 # HTTP getter by LWP::UserAgent or wget or curl or HTTP::Tiny
-# HTTP::Tiny bundled
-Requires:       perl(IO::File)
-Requires:       perl(IO::Socket)
-# JSON::PP bundled
-# lib::core::only not used
-# local::lib bundled
-Requires:       perl(Math::BigFloat)
-Requires:       perl(Math::BigInt)
+Requires:       perl(HTTP::Tiny)
+Requires:       perl(JSON::PP)
+Requires:       perl(local::lib)
+# LWP::UserAgent is optional
+# LWP::Protocol::https is optional
 Requires:       perl(Module::Build)
+Requires:       perl(Module::CPANfile)
 Requires:       perl(Module::CoreList)
-# Module::CPANfile bundled
-# Module::Metadata bundled
-Requires:       perl(Module::Signature)
-# Parse::CPAN::Meta bundled
+Requires:       perl(Module::Metadata)
+# Module::Signature is optional
+Requires:       perl(Parse::CPAN::Meta)
 Requires:       perl(Safe)
-Requires:       perl(Scalar::Util)
-Requires:       perl(Time::Local)
-# version bundled
-# version::vpp bundled
+Requires:       perl(String::ShellQuote)
+Requires:       perl(Symbol)
+Requires:       perl(version)
+Requires:       perl(version::vpp)
+# Win32 not used
 Requires:       perl(YAML)
+Provides:       perl(App::cpanminus) = %{version}
 # XXX: Keep Provides: cpanminus to allow `yum install cpanminus' instead of
 # longer `yum install perl-App-cpanminus'.
 Provides:       cpanminus = %{version}-%{release}
 Obsoletes:      cpanminus <= 1.2002
 
-# Do not require/export in-place modules
-%global __requires_exclude %{?__requires_exclude:%__requires_exclude|}^perl\\(App::cpanminus::script\\)$
+# Filter under-specified dependencies
+%global __provides_exclude %{?__provides_exclude:%__provides_exclude|}^perl\\(App::cpanminus\\)$
+# Filter private modules
+%global __provides_exclude %{__provides_exclude}|^perl\\(ModuleBuildSkipMan\\)
 
 %description
 Why? It's dependency free, requires zero configuration, and stands alone 
@@ -75,6 +117,11 @@ scripting. When running, it requires only 10 MB of RAM.
 
 %prep
 %setup -q -n App-cpanminus-%{version}
+# Unbundle fat-packed modules
+podselect lib/App/cpanminus.pm > lib/App/cpanminus.pod
+%{SOURCE1} --libdir lib --filter '^App/cpanminus' bin/cpanm >bin/cpanm.stripped
+perl -c -Ilib bin/cpanm.stripped
+mv bin/cpanm{.stripped,}
 
 %build
 perl Makefile.PL INSTALLDIRS=vendor
@@ -96,6 +143,9 @@ make test
 %{_bindir}/cpanm
 
 %changelog
+* Wed Sep 11 2013 Petr Pisar <ppisar@xxxxxxxxxx> - 1.6927-3
+- Unbundle all modules (bug #907464)
+
 * Sat Aug 03 2013 Fedora Release Engineering <rel-eng@xxxxxxxxxxxxxxxxxxxxxxx> - 1.6927-2
 - Rebuilt for https://fedoraproject.org/wiki/Fedora_20_Mass_Rebuild
 
--
Fedora Extras Perl SIG
http://www.fedoraproject.org/wiki/Extras/SIGs/Perl
perl-devel mailing list
perl-devel@xxxxxxxxxxxxxxxxxxxxxxx
https://admin.fedoraproject.org/mailman/listinfo/perl-devel





[Index of Archives]     [Fedora Announce]     [Fedora Kernel]     [Fedora Testing]     [Fedora Legacy Announce]     [Fedora PHP Devel]     [Kernel Devel]     [Fedora Legacy]     [Fedora Maintainers]     [Fedora Desktop]     [PAM]     [Red Hat Development]     [Big List of Linux Books]     [Gimp]     [Yosemite Information]
  Powered by Linux