--- Curses-1.06/Curses.c.orig Tue Jul 30 02:42:30 2002
+++ Curses-1.06/Curses.c Tue Jul 30 03:09:25 2002
@@ -272,7 +272,7 @@
SV *sv;
int argnum;
{
- if (Perl_sv_isa(sv, "Curses::Window")) {
+ if (sv_isa( sv, "Curses::Window")) {
WINDOW *ret = (WINDOW *)SvIV((SV*)SvRV(sv));
return ret;
}
--- Curses-1.06/CursesFun.c.orig Tue Jul 30 04:04:30 2002
+++ Curses-1.06/CursesFun.c Tue Jul 30 07:23:06 2002
@@ -1276,8 +1276,8 @@
c_exactargs("newterm", items, 3);
{
char * type = ST(0) != &PL_sv_undef ? (char *)SvPV(ST(0),PL_na) : NU
LL;
- FILE * outfd = IoIFP(sv_2io(ST(1)));
- FILE * infd = IoIFP(sv_2io(ST(2)));
+ FILE * outfd = PerlIO_findFILE(IoIFP(sv_2io(ST(1))));
+ FILE * infd = PerlIO_findFILE(IoIFP(sv_2io(ST(2))));
SCREEN * ret = newterm(type, outfd, infd);
ST(0) = sv_newmortal();
@@ -3450,7 +3450,7 @@
c_exactargs("putwin", items, 2);
{
WINDOW *win = c_sv2window(ST(0), 0);
- FILE * filep = IoIFP(sv_2io(ST(1)));
+ FILE * filep = PerlIO_findFILE(IoIFP(sv_2io(ST(1))));
int ret = putwin(win, filep);
ST(0) = sv_newmortal();
@@ -3469,7 +3469,7 @@
#ifdef C_GETWIN
c_exactargs("getwin", items, 1);
{
- FILE * filep = IoIFP(sv_2io(ST(0)));
+ FILE * filep = PerlIO_findFILE(IoIFP(sv_2io(ST(0))));
WINDOW * ret = getwin(filep);
ST(0) = sv_newmortal();
In reply to Re: Red Hat 9 --- Curses.pm installation woes.
by Paladin
in thread Red Hat 9 --- Curses.pm installation woes.
by blue_cowdawg
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |