fix fatnode not parsing if included package did not end in new line

diff --git a/lib/Object/Remote/FatNode.pm b/lib/Object/Remote/FatNode.pm
index bdf094b..8ce1d7d 100644 (file)
--- a/lib/Object/Remote/FatNode.pm
+++ b/lib/Object/Remote/FatNode.pm
@@ -160,8 +160,11 @@ sub generate_fatpack_hash {
   my $data = $files{$orig} or die $orig; $data =~ s/^/  /mg;
   return () if $did_pack{$hash_name}{$orig};
   $did_pack{$hash_name}{$orig} = 1;
-  return '$'.$hash_name.'{'.perlstring($orig).qq!} = <<'${name}';\n!
-  .qq!${data}${name}\n!;
+  $data .= "\n" unless $data =~ m/\n$/;
+  my $ret = '$'.$hash_name.'{'.perlstring($orig).qq!} = <<'${name}';\n!
+    .qq!${data}${name}\n!;
+#  warn $ret;
+  return $ret;
 }
 
 my @segments = (