| 1 | #!/usr/bin/perl | 1 | #!/usr/bin/perl |
|---|---|---|---|
| 2 | |||
| 3 | # sample script to illustrate the -pty-fd option | ||
| 2 | 4 | ||
| 3 | use IO::Pty; | 5 | use IO::Pty; |
| 4 | use Fcntl; | 6 | use Fcntl; |
| 5 | 7 | ||
| 6 | my $pty = new IO::Pty; | 8 | my $pty = new IO::Pty; |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |