ensure Document->save does not mangle newlines on windows

Perl-Critic · Apr 23, 2016 · bdb491a · bdb491a
1 parent 2a888ea
commit bdb491a
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/lib/PPI/Document.pm b/lib/PPI/Document.pm
@@ -346,6 +346,7 @@ sub save {
 	my $self = shift;
 	local *FILE;
 	open( FILE, '>', $_[0] )    or return undef;
+	binmode FILE;
 	print FILE $self->serialize or return undef;
 	close FILE                  or return undef;
 	return 1;