*** empty log message ***

diff --git a/doc/pty-fd b/doc/pty-fd
index 4d0812ce54ac4564e77ef3eac61c507e319c20e7..cc13261d8f344195ab09d3355a8c9c65262dbdb3 100755 (executable)
--- a/doc/pty-fd
+++ b/doc/pty-fd
@@ -7,6 +7,7 @@ my $pty = new IO::Pty;
 fcntl $pty, F_SETFD, 0; # clear close-on-exec
 
 system "rxvt -pty-fd " . (fileno $pty) . "&";
+close $pty;
 
 # now communicate with rxvt
 my $slave = $pty->slave;

diff --git a/doc/rxvt.1.pod b/doc/rxvt.1.pod
index 1035bc539027922bc37a8a544fcd2c3f3dcc6f17..3c4d081e9a332ce0146b8403288409493a72e676 100644 (file)
--- a/doc/rxvt.1.pod
+++ b/doc/rxvt.1.pod
@@ -421,8 +421,8 @@ longer example is in F<doc/pty-fd>):
 
    my $pty = new IO::Pty;
    fcntl $pty, F_SETFD, 0; # clear close-on-exec
-
    system "@@RXVT_NAME@@ -pty-fd " . (fileno $pty) . "&";
+   close $pty;
 
    # now communicate with rxvt
    my $slave = $pty->slave;