Author: dagolden
Date: Tue Oct 27 20:52:23 2009
New Revision: 13441
Modified:
Module-Build/trunk/lib/Module/Build/Base.pm
Log:
refactor checks for proper MANIFEST.SKIP
Modified: Module-Build/trunk/lib/Module/Build/Base.pm
==============================================================================
--- Module-Build/trunk/lib/Module/Build/Base.pm (original)
+++ Module-Build/trunk/lib/Module/Build/Base.pm Tue Oct 27 20:52:23 2009
@@ -3361,7 +3361,7 @@
sub ACTION_distcheck {
my ($self) = @_;
- $self->_check_mymeta_skip('MANIFEST.SKIP');
+ $self->_check_manifest_skip;
require ExtUtils::Manifest;
local $^W; # ExtUtils::Manifest is not warnings clean.
@@ -3734,7 +3734,7 @@
return;
}
-sub ACTION_manifest {
+sub _check_manifest_skip {
my ($self) = @_;
my $maniskip = 'MANIFEST.SKIP';
@@ -3748,6 +3748,14 @@
$self->_check_mymeta_skip( $maniskip );
}
+ return;
+}
+
+sub ACTION_manifest {
+ my ($self) = @_;
+
+ $self->_check_manifest_skip;
+
require ExtUtils::Manifest; # ExtUtils::Manifest is not warnings clean.
local ($^W, $ExtUtils::Manifest::Quiet) = (0,1);
ExtUtils::Manifest::mkmanifest();