From: Graham Knop <haarg@haarg.org>
Date: Sun, 17 Aug 2014 15:46:51 +0000 (-0400)
Subject: write MANIFEST.SKIP when writing Makefile
X-Git-Tag: v0.002000~15
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=eddb1ce69b879b31fcacd6e59fa33269fad340b5;p=p5sagit%2FDistar.git

write MANIFEST.SKIP when writing Makefile
---

diff --git a/lib/Distar.pm b/lib/Distar.pm
index fa64aed..dc43ad0 100644
--- a/lib/Distar.pm
+++ b/lib/Distar.pm
@@ -30,8 +30,6 @@ sub author {
     if !ref $Author;
 }
 
-our $Ran_Preflight;
-
 our @Manifest = (
   'lib' => '.pm',
   'lib' => '.pod',
@@ -77,7 +75,6 @@ sub write_manifest_skip {
 }
 
 sub run_preflight {
-  $Ran_Preflight = 1;
   my $version = $ARGV[0];
 
   my $make = $Config{make};
@@ -140,6 +137,12 @@ sub run_preflight {
     });
   }
 
+  sub flush {
+    my $self = shift;
+    Distar::write_manifest_skip();
+    $self->SUPER::flush(@_);
+  }
+
   sub dist_test {
     my $self = shift;
     my $dist_test = $self->SUPER::dist_test(@_) . <<'END'
@@ -171,8 +174,4 @@ END
   }
 }
 
-END {
-  write_manifest_skip() unless $Ran_Preflight
-}
-
 1;