diff options
Diffstat (limited to 'third_party/git/t/t5562/invoke-with-content-length.pl')
-rw-r--r-- | third_party/git/t/t5562/invoke-with-content-length.pl | 36 |
1 files changed, 0 insertions, 36 deletions
diff --git a/third_party/git/t/t5562/invoke-with-content-length.pl b/third_party/git/t/t5562/invoke-with-content-length.pl deleted file mode 100644 index 0943474af20d..000000000000 --- a/third_party/git/t/t5562/invoke-with-content-length.pl +++ /dev/null @@ -1,36 +0,0 @@ -use 5.008; -use strict; -use warnings; - -my $body_filename = $ARGV[0]; -my @command = @ARGV[1 .. $#ARGV]; - -# read data -my $body_size = -s $body_filename; -$ENV{"CONTENT_LENGTH"} = $body_size; -open(my $body_fh, "<", $body_filename) or die "Cannot open $body_filename: $!"; -my $body_data; -defined read($body_fh, $body_data, $body_size) or die "Cannot read $body_filename: $!"; -close($body_fh); - -my $exited = 0; -$SIG{"CHLD"} = sub { - $exited = 1; -}; - -# write data -my $pid = open(my $out, "|-", @command); -{ - # disable buffering at $out - my $old_selected = select; - select $out; - $| = 1; - select $old_selected; -} -print $out $body_data or die "Cannot write data: $!"; - -sleep 60; # is interrupted by SIGCHLD -if (!$exited) { - close($out); - die "Command did not exit after reading whole body"; -} |