fix protocol_receive_file not to use STDIN

[dgit.git] / dgit

diff --git a/dgit b/dgit
index b1ed90447748bb25d95f75f9575badc26e00aa08..549b2515f0a5633077320bbf755b26b3b9c3c50d 100755 (executable)
--- a/dgit
+++ b/dgit
@@ -223,9 +223,9 @@ sub protocol_receive_file ($$) {
        my ($y,$l) = protocol_expect {
            m/^data-block (.*})$|data-end$/;
            length $1 ? (1,$1) : (0);
-       } \*STDIN;
+       } $fh;
        last unless $y;
-       my $d = protocol_read_bytes \*STDIN, $1;
+       my $d = protocol_read_bytes $fh, $1;
        print PF $d or die $!;
     }
     printdebug "received into $ourfn\n";