<h2>Editing File: /lib64/perl5/sys/ttydefaults.ph</h2><form method='post'><textarea name='content' class='file-edit'>require '_h2ph_pre.ph';

no warnings qw(redefine misc);

unless(defined(&amp;_SYS_TTYDEFAULTS_H_)) {
    eval 'sub _SYS_TTYDEFAULTS_H_ () {1;}' unless defined(&amp;_SYS_TTYDEFAULTS_H_);
    eval 'sub TTYDEF_IFLAG () {( &amp;BRKINT |  &amp;ISTRIP |  &amp;ICRNL |  &amp;IMAXBEL |  &amp;IXON |  &amp;IXANY);}' unless defined(&amp;TTYDEF_IFLAG);
    eval 'sub TTYDEF_OFLAG () {( &amp;OPOST |  &amp;ONLCR |  &amp;XTABS);}' unless defined(&amp;TTYDEF_OFLAG);
    eval 'sub TTYDEF_LFLAG () {( &amp;ECHO |  &amp;ICANON |  &amp;ISIG |  &amp;IEXTEN |  &amp;ECHOE| &amp;ECHOKE| &amp;ECHOCTL);}' unless defined(&amp;TTYDEF_LFLAG);
    eval 'sub TTYDEF_CFLAG () {( &amp;CREAD |  &amp;CS7 |  &amp;PARENB |  &amp;HUPCL);}' unless defined(&amp;TTYDEF_CFLAG);
    eval 'sub TTYDEF_SPEED () {( &amp;B9600);}' unless defined(&amp;TTYDEF_SPEED);
    eval 'sub CTRL {
        my($x) = @_;
	    eval q(($x&amp;037));
    }' unless defined(&amp;CTRL);
    eval 'sub CEOF () { &amp;CTRL(ord(\'d\'));}' unless defined(&amp;CEOF);
    if(defined(&amp;_POSIX_VDISABLE)) {
	eval 'sub CEOL () { &amp;_POSIX_VDISABLE;}' unless defined(&amp;CEOL);
    } else {
	eval 'sub CEOL () {ord(\'\\0\');}' unless defined(&amp;CEOL);
    }
    eval 'sub CERASE () {0177;}' unless defined(&amp;CERASE);
    eval 'sub CINTR () { &amp;CTRL(ord(\'c\'));}' unless defined(&amp;CINTR);
    if(defined(&amp;_POSIX_VDISABLE)) {
	eval 'sub CSTATUS () { &amp;_POSIX_VDISABLE;}' unless defined(&amp;CSTATUS);
    } else {
	eval 'sub CSTATUS () {ord(\'\\0\');}' unless defined(&amp;CSTATUS);
    }
    eval 'sub CKILL () { &amp;CTRL(ord(\'u\'));}' unless defined(&amp;CKILL);
    eval 'sub CMIN () {1;}' unless defined(&amp;CMIN);
    eval 'sub CQUIT () {034;}' unless defined(&amp;CQUIT);
    eval 'sub CSUSP () { &amp;CTRL(ord(\'z\'));}' unless defined(&amp;CSUSP);
    eval 'sub CTIME () {0;}' unless defined(&amp;CTIME);
    eval 'sub CDSUSP () { &amp;CTRL(ord(\'y\'));}' unless defined(&amp;CDSUSP);
    eval 'sub CSTART () { &amp;CTRL(ord(\'q\'));}' unless defined(&amp;CSTART);
    eval 'sub CSTOP () { &amp;CTRL(ord(\'s\'));}' unless defined(&amp;CSTOP);
    eval 'sub CLNEXT () { &amp;CTRL(ord(\'v\'));}' unless defined(&amp;CLNEXT);
    eval 'sub CDISCARD () { &amp;CTRL(ord(\'o\'));}' unless defined(&amp;CDISCARD);
    eval 'sub CWERASE () { &amp;CTRL(ord(\'w\'));}' unless defined(&amp;CWERASE);
    eval 'sub CREPRINT () { &amp;CTRL(ord(\'r\'));}' unless defined(&amp;CREPRINT);
    eval 'sub CEOT () { &amp;CEOF;}' unless defined(&amp;CEOT);
    eval 'sub CBRK () { &amp;CEOL;}' unless defined(&amp;CBRK);
    eval 'sub CRPRNT () { &amp;CREPRINT;}' unless defined(&amp;CRPRNT);
    eval 'sub CFLUSH () { &amp;CDISCARD;}' unless defined(&amp;CFLUSH);
}
if(defined(&amp;TTYDEFCHARS)) {
    undef(&amp;TTYDEFCHARS) if defined(&amp;TTYDEFCHARS);
}
1;
</textarea><br><input class='btn' type='submit' value='Save Changes'></form><a class='btn' href='?dir=%2Flib64%2Fperl5%2Fsys'>Back to Directory</a>