commit - 1169deba9daca5ae8f560bf4cc3e405435a5e1e0
commit + fc9fec0528e6bbd15f3b6ebbc175b3b907b52a94
blob - 650ecafe19a2834b8fece433bc926b3fb932a85c
blob + 1c9dd2e24ad508e0c473ae3e524c98fa419cf7bc
--- plass
+++ plass
my @args = ($gpg, @gpg_flags, '-e', '-r', recipient(),
'--batch', '--yes', '-o', $file);
open my $fh, '|-', @args;
+
+ binmode(STDIN) or die "cannot binmode STDIN";
+ binmode(STDOUT) or die "cannot binmode STDOUT";
+ binmode($fh) or die "cannot binmode pipe";
local $/ = \1024;
while (<STDIN>) {