| … | |
… | |
| 548 | system "exec @@RXVT_NAME|| -pty-fd " . (fileno $slave) . " &"; |
548 | system "exec @@RXVT_NAME|| -pty-fd " . (fileno $slave) . " &"; |
| 549 | close $slave; |
549 | close $slave; |
| 550 | |
550 | |
| 551 | syswrite $URXVT, "Type a secret password: "; |
551 | syswrite $URXVT, "Type a secret password: "; |
| 552 | my $secret = do { local $/ = "\r"; <$URXVT> }; |
552 | my $secret = do { local $/ = "\r"; <$URXVT> }; |
| 553 | print "No so secret anymore: $secret\n"; |
553 | print "Not so secret anymore: $secret\n"; |
| 554 | |
554 | |
| 555 | =item B<-pe> I<string> |
555 | =item B<-pe> I<string> |
| 556 | |
556 | |
| 557 | Comma-separated list of perl extension scripts to use (or not to use) in |
557 | Comma-separated list of perl extension scripts to use (or not to use) in |
| 558 | this terminal instance. See resource B<perl-ext> for details. |
558 | this terminal instance. See resource B<perl-ext> for details. |
