propagate window size to slave pty; allows emacs to run!

pmurias · Aug 10, 2009 · e8c8ce4 · e8c8ce4
1 parent fc551d5
commit e8c8ce4
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/lib/App/Persistent/Server/Connection.pm b/lib/App/Persistent/Server/Connection.pm
@@ -77,6 +77,9 @@ class App::Persistent::Server::Connection {
                         my $run = shift;
                         $self->_mk_printer($run->pty_handle, 'NormalOutput');
 
+                        # TODO: clone the pclient's winsize, not the parent's
+                        $run->pty_handle->fh->slave->clone_winsize_from(\*STDIN);
+
                         $run->completion_condvar->cb(
                             sub {
                                 my ($cv) = @_;