Fixed bug due to a typo.
authorFlavio Poletti <flavio@polettix.it>
Mon, 8 Sep 2008 09:55:01 +0000 (8 11:55 +0200)
committerFlavio Poletti <flavio@polettix.it>
Mon, 8 Sep 2008 09:55:01 +0000 (8 11:55 +0200)
remote

diff --git a/remote b/remote
index 6448e4b..c02a23b 100755 (executable)
--- a/remote
+++ b/remote
@@ -283,17 +283,17 @@ sub _interact_with_program {
    binmode $in;
    binmode $out;
 
-   my $offset = 0;    # for taking stuff from $self->{_programfile}
+   my $offset = 0;    # for taking stuff from $self->{_tarfile}
    my $to_select = IO::Select->new($in);
    my $from_select = IO::Select->new($out, $err);
    my @result;
    while ($from_select->exists($out)) {
       if ($to_select->can_write(0)) {
-         my $nwritten = syswrite $in, $self->{_programfile}, 4096, $offset
+         my $nwritten = syswrite $in, $self->{_tarfile}, 4096, $offset
            or die "print(): $OS_ERROR";
 
          $offset += $nwritten;
-         if ($offset == length($self->{_programfile})) {
+         if ($offset == length($self->{_tarfile})) {
             $to_select->remove($in);
             undef $in;
          }