re: [MacPerl] Re: Mac Penguins from Mars, Unix Penguins from Venus?

[schinder@pjstoaster.pg.md.us (Paul Schinder)]

Felix Gallo <fsg@coriolan.amicus.com> writes:
} Our favorite Tim writes:
} > > From: "William J. Middleton" <wjm@best.com>
} > > 
} > >   I've been spending some time getting Penguin to work on Macintosh.
} > > I'm happy to say, all of IO, PGP, and the core Penguin stuff
} > > is working fine, when I go Mac <-> Mac.
} > > 
} > >   The problem, as you might guess, is waddling from unix <-> mac.
} > > The line termination characters cause IO to hang for lack of
} > > an autoflush().
} > 
} > Eh?
} 
} Yeah, I'm curious too, especially considering line 34 of Penguin's
} TCP/Client.pm:
} 
}     $self->{'Socket'}->autoflush();
} 
} Also, Penguin uses $fh->getline, so I would expect IO to be doing
} the right thing there.
} 
} What's the exact behavior, Bill?  Is it bidirectionally bust?

In Net::FTP, there's a line

 #$me->autoflush(1);

(notice i have it commented out).  autoflush looks like (from
IO::Socket.pm of the Net::FTP distribution)

sub autoflush {
 my $sock = shift;
 my $val = @_ ? shift : 0;

 select((select($sock), $| = $val)[$[]);
}

This is a great way to lock up my Powerbook 165.  Hard freeze, every
time.  Is this the behavior you're seeing in Penguin?

} 
} Felix
} 
---
--------
Paul J. Schinder
NASA Goddard Space Flight Center,
Code 693, Greenbelt, MD 20771 USA
schinder@pjstoaster.pg.md.us