about summary refs log tree commit diff
path: root/third_party/git/t/t5562/invoke-with-content-length.pl
diff options
context:
space:
mode:
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.pl36
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 0943474af2..0000000000
--- 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";
-}