diff options
Diffstat (limited to 'dev-perl/Curses/files/Curses-1.06-p5.8-fixes.diff')
| -rw-r--r-- | dev-perl/Curses/files/Curses-1.06-p5.8-fixes.diff | 44 |
1 files changed, 0 insertions, 44 deletions
diff --git a/dev-perl/Curses/files/Curses-1.06-p5.8-fixes.diff b/dev-perl/Curses/files/Curses-1.06-p5.8-fixes.diff deleted file mode 100644 index a75be95f81e4..000000000000 --- a/dev-perl/Curses/files/Curses-1.06-p5.8-fixes.diff +++ /dev/null @@ -1,44 +0,0 @@ -diff -Naurp Curses-1.06.old/Curses.c Curses-1.06/Curses.c ---- Curses-1.06.old/Curses.c Wed Jul 25 13:10:38 2001 -+++ Curses-1.06/Curses.c Wed Aug 28 17:00:40 2002 -@@ -272,7 +272,7 @@ c_sv2window(sv, argnum) - 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; - } -diff -Naurp Curses-1.06.old/CursesFun.c Curses-1.06/CursesFun.c ---- Curses-1.06.old/CursesFun.c Wed Jul 25 14:09:35 2001 -+++ Curses-1.06/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(); |