use strict;
use warnings;
use POSIX qw(dup2);
+require IO::Handle;
sub new {
my ($class, $git_dir) = @_;
}
close $out_r or die "close failed: $!\n";
close $in_w or die "close failed: $!\n";
+ $out_w->autoflush(1);
$self->{in} = $in_r;
$self->{out} = $out_w;
sub cat_file {
my ($self, $object, $sizeref) = @_;
- $object .= "\n";
- my $len = length($object);
-
$self->_cat_file_begin;
- my $written = syswrite($self->{out}, $object);
- if (!defined $written) {
- die "pipe write error: $!\n";
- } elsif ($written != $len) {
- die "wrote too little to pipe ($written < $len)\n";
- }
+ print { $self->{out} } $object, "\n" or die "pipe write error: $!\n";
my $in = $self->{in};
my $head = <$in>;