Skip to content
Browse files

Module::Metadata was not included in the fatpacked version

  • Loading branch information...
1 parent 911e166 commit b24deadb21dda42cd12ca963e1fb6a3babcc4db7 @semuel committed
Showing with 3,501 additions and 323 deletions.
  1. +1 −1 bin/dist_surveyor
  2. +3,481 −319 dist_surveyor_packed.pl
  3. +19 −3 process_fatpacker_packlist.pl
View
2 bin/dist_surveyor
@@ -164,6 +164,7 @@ $| = 1;
use Dist::Surveyor;
use Dist::Surveyor::Inquiry; # internal
+use Dist::Surveyor::MakeCpan;
use constant PROGNAME => 'dist_surveyor';
@@ -236,7 +237,6 @@ sub main {
if ($opt_makecpan) {
- require Dist::Surveyor::MakeCpan;
my $cpan = Dist::Surveyor::MakeCpan->new(
$opt_makecpan, PROGNAME, $distro_key_mod_names);
View
3,800 dist_surveyor_packed.pl
3,481 additions, 319 deletions not shown because the diff is too large. Please use a local Git client to view these changes.
View
22 process_fatpacker_packlist.pl
@@ -5,10 +5,21 @@
use FindBin;
use File::Spec;
-my @ignored_package = qw{ Data/Dumper Carp JSON/XS LWP };
+my @ignored_package = qw{
+ Data/Dumper
+ Carp
+ JSON/XS
+ LWP
+ Encode/Locale
+ HTTP/Date
+ HTTP/Message
+ URI
+ Cwd
+ List/Util
+ };
my %handled_packages = (
- map( { $_ => \&pass } qw{ Dist/Surveyor JSON Module/Metadata } ),
+ map( { $_ => \&pass } qw{ JSON JSON/PP Module/Metadata CPAN/DistnameInfo } ),
version => \&version,
);
@@ -22,13 +33,18 @@
warn "Could not process line |$line|"
unless $module;
next if grep { $_ eq $module } @ignored_package;
- my $handler = $handled_packages{$module}
+ my $handler = delete $handled_packages{$module}
or die "I do not know what to do with the |$module| module";
$line = $handler->($line);
push @output, $line;
}
close $fh;
+
+if (%handled_packages) {
+ die "did not see the following modules: " . join(', ', keys %handled_packages);
+}
+
open $fh, ">", $filename or die "can not open $filename to write";
print $fh join("\n", @output), "\n";
close $fh;

0 comments on commit b24dead

Please sign in to comment.
Something went wrong with that request. Please try again.