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();

Reply via email to