From: gugod <gugod@cpan.org>
Date: Thu, 23 Dec 2010 00:18:53 +0000 (+0000)
Subject: [rt.cpan.org #63466] Add ending newline if input lacks one
X-Git-Tag: v0.9.4~3
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=cc5db92a0bedaa07593dc91ef75babb9e1c2fb86;p=p5sagit%2FApp-FatPacker.git

[rt.cpan.org #63466] Add ending newline if input lacks one
---

diff --git a/lib/App/FatPacker.pm b/lib/App/FatPacker.pm
index 2f39841..4399341 100644
--- a/lib/App/FatPacker.pm
+++ b/lib/App/FatPacker.pm
@@ -182,7 +182,7 @@ sub script_command_file {
   my @segments = map {
     (my $stub = $_) =~ s/\.pm$//;
     my $name = uc join '_', split '/', $stub;
-    my $data = $files{$_}; $data =~ s/^/  /mg;
+    my $data = $files{$_}; $data =~ s/^/  /mg; $data =~ s/(?<!\n)\z/\n/;
     '$fatpacked{'.perlstring($_).qq!} = <<'${name}';\n!
     .qq!${data}${name}\n!;
   } sort keys %files;