diff options
| author |   Michael Cummings <mcummings@gentoo.org> | 2004-10-02 15:54:10 +0000 |
|---|---|---|
| committer | Michael Cummings <mcummings@gentoo.org> | 2004-10-02 15:54:10 +0000 |
| commit | bb1e4e7e6fb126dc92d84601c2065549158a14bb (patch) | |
| tree | d6fac688e04a19aaf648f2054e166a2965a48b50 /dev-perl/Curses/files | |
| parent | New package for hal-device-manager as broken out of the hal package. (diff) | |
| download | historical-bb1e4e7e6fb126dc92d84601c2065549158a14bb.tar.gz historical-bb1e4e7e6fb126dc92d84601c2065549158a14bb.tar.bz2 historical-bb1e4e7e6fb126dc92d84601c2065549158a14bb.zip | |
new version on cpan; FORMS still broken
Diffstat (limited to 'dev-perl/Curses/files')
| -rw-r--r-- | dev-perl/Curses/files/Curses-1.07-p5.8-fixes.diff | 32 | ||||
| -rw-r--r-- | dev-perl/Curses/files/digest-Curses-1.07 | 1 |
2 files changed, 33 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(); diff --git a/dev-perl/Curses/files/digest-Curses-1.07 b/dev-perl/Curses/files/digest-Curses-1.07 new file mode 100644 index 000000000000..6c47ac7560f3 --- /dev/null +++ b/dev-perl/Curses/files/digest-Curses-1.07 @@ -0,0 +1 @@ +MD5 b238b2f3f4cdde8443a37de224a742f9 Curses-1.07.tgz 77049 |