1 files changed, 0 insertions, 34 deletions
diff --git a/contrib/perl5/h2pl/cbreak.pl b/contrib/perl5/h2pl/cbreak.pl
deleted file mode 100644
index 422185e..0000000
--- a/contrib/perl5/h2pl/cbreak.pl
+++ /dev/null
@@ -1,34 +0,0 @@
-$sgttyb_t   = 'C4 S';
-
-sub cbreak {
-    &set_cbreak(1);
-}
-
-sub cooked {
-    &set_cbreak(0);
-}
-
-sub set_cbreak {
-    local($on) = @_;
-
-    require 'sizeof.ph';
-    require 'sys/ioctl.ph';
-
-    ioctl(STDIN,&TIOCGETP,$sgttyb)
-        || die "Can't ioctl TIOCGETP: $!";
-
-    @ary = unpack($sgttyb_t,$sgttyb);
-    if ($on) {
-        $ary[4] |= &CBREAK;
-        $ary[4] &= ~&ECHO;
-    } else {
-        $ary[4] &= ~&CBREAK;
-        $ary[4] |= &ECHO;
-    }
-    $sgttyb = pack($sgttyb_t,@ary);
-    ioctl(STDIN,&TIOCSETP,$sgttyb)
-            || die "Can't ioctl TIOCSETP: $!";
-
-}
-
-1;