Fix for jwiegley#18 and added newline at end of reverse output

fredrike · fredrike · commit 52a8d61eed08 · 2013-10-10T13:46:46.000+02:00
diff --git a/git-forest b/git-forest
@@ -618,7 +618,6 @@ sub TIEHANDLE
 	my $self  = {};
 
 	open($self->{fh}, ">&STDOUT");
-	binmode $self->{fh}, ":utf8";
 
 	return bless $self, $class;
 }
@@ -637,5 +636,6 @@ sub UNTIE
 	my $fh   = $self->{fh};
 
 	print $fh join($/, reverse split(/\n/s, $self->{saved}));
+	print $fh "\n";
 	undef $self->{saved};
 }

Original file line number	Diff line number	Diff line change
`@@ -618,7 +618,6 @@ sub TIEHANDLE`
`618`	`618`	`my $self = {};`
`619`	`619`
`620`	`620`	`open($self->{fh}, ">&STDOUT");`
`621`		`- binmode $self->{fh}, ":utf8";`
`622`	`621`
`623`	`622`	`return bless $self, $class;`
`624`	`623`	`}`
`@@ -637,5 +636,6 @@ sub UNTIE`
`637`	`636`	`my $fh = $self->{fh};`
`638`	`637`
`639`	`638`	`print $fh join($/, reverse split(/\n/s, $self->{saved}));`
	`639`	`+ print $fh "\n";`
`640`	`640`	`undef $self->{saved};`
`641`	`641`	`}`