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:
parent
2cf5860ba1
commit
ea260918eb
@ -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
|
||||
|
@ -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;
|
Loading…
x
Reference in New Issue
Block a user