write MANIFEST.SKIP when writing Makefile
Graham Knop [Sun, 17 Aug 2014 15:46:51 +0000 (11:46 -0400)]
lib/Distar.pm

index fa64aed..dc43ad0 100644 (file)
@@ -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;