fix protocol_receive_file not to use STDIN

1 files changed, 2 insertions, 2 deletions

diff --git a/dgit b/dgit
index b1ed904..549b251 100755
--- 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";