cpet/openbsd-ports
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix GetControlChars() function; wilfried@ OK

Browse Source
This commit is contained in:
millert 2005-10-30 22:49:13 +00:00
parent 8dae46ec3b
commit 40027b4e79
1 changed files with 21 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
devel/p5-Term-ReadKey/patches/patch-genchars_pl Normal file
View File

@ -0,0 +1,21 @@
$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;