Fix my lazy IO mistake
Graham Knop [Wed, 13 Feb 2013 09:39:26 +0000 (04:39 -0500)]
lib/Distar.pm

index ad971be..df7fb8f 100644 (file)
@@ -85,8 +85,7 @@ sub run_preflight {
 }
 
 sub MY::postamble {
-    open my $fh, '<', 'maint/Makefile.include';
-    ($fh ? do { local $/; <$fh> } : '' ) . <<'END';
+    my $post = <<'END';
 preflight:
        perl -IDistar/lib -MDistar -erun_preflight $(VERSION)
 release: preflight
@@ -103,6 +102,10 @@ readmefile: create_distdir
        pod2text $(VERSION_FROM) >$(DISTVNAME)/README
        $(NOECHO) cd $(DISTVNAME) && $(ABSPERLRUN) ../Distar/helpers/add-readme-to-manifest
 END
+    if (open my $fh, '<', 'maint/Makefile.include') {
+        $post .= do { local $/; <$fh> };
+    }
+    return $post;
 }
 
 {