# core-cpan-diff: Compare CPAN modules with their equivalent in core
# Originally based on App::DualLivedDiff by Steffen Mueller.
-
+
use strict;
use warnings;
# and if its a permanent directory, clear any previous content
my $untar_dir;
if ($cache_dir) {
- $untar_dir = File::Spec->catdir($cache_dir, UNTAR_DIR);
+ $untar_dir = File::Spec->catdir($cache_dir, UNTAR_DIR);
if (-d $untar_dir) {
File::Path::rmtree($untar_dir)
or die "failed to remove $untar_dir\n";
for my $module (@$modules) {
warn "Processing $module ...\n" if defined $output_file;
- my $m = $Maintainers::Modules{$module}
+ my $m = $Maintainers::Modules{$module}
or die "ERROR: No such module in Maintainers.pl: '$module'\n";
unless ($m->{CPAN}) {
or die "ERROR: failed to ungzip $gzfile: $IO::Uncompress::Gunzip::GunzipError\n";
# suck in the data from it
-
+
open my $fh, '<', $path
or die "ERROR: open: $file: $!\n";
}
for my $module (@$modules) {
- my $m = $Maintainers::Modules{$module}
+ my $m = $Maintainers::Modules{$module}
or die "ERROR: No such module in Maintainers.pl: '$module'\n";
unless ($m->{CPAN}) {
last;
}
}
-
+
if (defined $ext) {
$map = { '' => $ext },
}
# cache_dir: where to download the .tar.gz file to
# mirror_url: CPAN mirror to download from
-# untar_dir: where to untar or unzup the file
+# untar_dir: where to untar or unzup the file
# module: name of module
# dist: name of the distribution