Remove patch from 9 years ago that claims to fix GetControlChars but now
actually breaks it.

-- 
James Turner

Index: Makefile
===================================================================
RCS file: /cvs/ports/devel/p5-Term-ReadKey/Makefile,v
retrieving revision 1.26
diff -u -p -u -p -r1.26 Makefile
--- Makefile    14 Jun 2014 23:24:59 -0000      1.26
+++ Makefile    2 May 2015 02:39:25 -0000
@@ -8,7 +8,7 @@ MODULES=                cpan
 V=                     2.30
 DISTNAME=              TermReadKey-${V}
 PKGNAME=               p5-Term-ReadKey-${V}
-REVISION=              6
+REVISION=              7
 CATEGORIES=            devel
 
 PERMIT_PACKAGE_CDROM=  Yes
Index: patches/patch-genchars_pl
===================================================================
RCS file: patches/patch-genchars_pl
diff -N patches/patch-genchars_pl
--- patches/patch-genchars_pl   30 Oct 2005 22:49:13 -0000      1.1
+++ /dev/null   1 Jan 1970 00:00:00 -0000
@@ -1,21 +0,0 @@
-$OpenBSD: patch-genchars_pl,v 1.1 2005/10/30 22:49:13 millert Exp $
---- genchars.pl.orig   Tue Jan 11 16:15:17 2005
-+++ genchars.pl        Sun Oct 30 11:02:36 2005
-@@ -174,7 +174,7 @@ XS(XS_Term__ReadKey_GetControlChars)
-                       EXTEND(sp,MAXCC*2);             ".join('',map("
- #if defined($values[$_]) && ($values[$_] < LEGALMAXCC)        "."
- PUSHs(sv_2mortal(newSVpv(cc_names[$_],strlen(cc_names[$_])))); /* 
$possible{$values[$_]} */
--PUSHs(sv_2mortal(newSVpv((char*)&s.c_cc[$values[$_]],1)));    "."
-+PUSHs(sv_2mortal(newSViv((IV)s.c_cc[$values[$_]])));  "."
- #endif                        "                               ,0..$#values))."
-                       
-               }
-@@ -394,7 +394,7 @@ XS(XS_Term__ReadKey_GetControlChars)
-                       int i;
-                       EXTEND(sp,MAXCC*2);             ".join('',map("
- PUSHs(sv_2mortal(newSVpv(cc_names[$_],strlen(cc_names[$_])))); /* $values[$_] 
*/
--PUSHs(sv_2mortal(newSVpv(&s.$billy{$values[$_]},1)));         
",0..$#values))."
-+PUSHs(sv_2mortal(newSViv((IV)s.$billy{$values[$_]})));        
",0..$#values))."
-                       
-               }
-               PUTBACK;

Reply via email to