Remove 9 year old patch that now breaks GetControlChars(). ok ajacoutot@

GetControlChars() should return something that looks like a control char
this patch made it return a number instead. Found while porting sslmate.

perl -MTerm::ReadKey -MScalar::Util -e \
'print Scalar::Util::looks_like_number({GetControlChars}->{EOF}) ? 1 : 0;'

The above should return 0 but as returning 1.
This commit is contained in:
jturner 2015-05-02 16:05:06 +00:00
parent 2cf5860ba1
commit ea260918eb
2 changed files with 2 additions and 23 deletions

View File

@ -1,4 +1,4 @@
# $OpenBSD: Makefile,v 1.26 2014/06/14 23:24:59 sthen Exp $
# $OpenBSD: Makefile,v 1.27 2015/05/02 16:05:06 jturner Exp $
SHARED_ONLY= Yes
@ -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

View File

@ -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;