diff options
Diffstat (limited to 'dev-perl/Curses/files/Curses-1.07-p5.8-fixes.diff')
| -rw-r--r-- | dev-perl/Curses/files/Curses-1.07-p5.8-fixes.diff | 32 |
1 files changed, 32 insertions, 0 deletions
diff --git a/dev-perl/Curses/files/Curses-1.07-p5.8-fixes.diff b/dev-perl/Curses/files/Curses-1.07-p5.8-fixes.diff new file mode 100644 index 000000000000..39c559aa8985 --- /dev/null +++ b/dev-perl/Curses/files/Curses-1.07-p5.8-fixes.diff @@ -0,0 +1,32 @@ +diff -Naurp Curses-1.07.old/CursesFun.c Curses-1.07/CursesFun.c +--- Curses-1.07.old/CursesFun.c Wed Jul 25 14:09:35 2001 ++++ Curses-1.07/CursesFun.c Wed Aug 28 17:03:28 2002 +@@ -1276,8 +1276,8 @@ XS(XS_Curses_newterm) + c_exactargs("newterm", items, 3); + { + char * type = ST(0) != &PL_sv_undef ? (char *)SvPV(ST(0),PL_na) : NULL; +- 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 @@ XS(XS_Curses_putwin) + 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 @@ XS(XS_Curses_getwin) + #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(); |