diff options
| author |   Michael Cummings <mcummings@gentoo.org> | 2002-09-09 21:53:26 +0000 |
|---|---|---|
| committer | Michael Cummings <mcummings@gentoo.org> | 2002-09-09 21:53:26 +0000 |
| commit | 0227fa76a3c8d98584a051b7ab9d11704c8f0448 (patch) | |
| tree | 29e1ea66f948bb8475e173b0b7af78a656c1b595 /dev-perl/Curses/files | |
| parent | This test eclass has been tested on all platforms and is no longer (diff) | |
| download | gentoo-2-0227fa76a3c8d98584a051b7ab9d11704c8f0448.tar.gz gentoo-2-0227fa76a3c8d98584a051b7ab9d11704c8f0448.tar.bz2 gentoo-2-0227fa76a3c8d98584a051b7ab9d11704c8f0448.zip | |
These are syntax fixes for the new perl eclass. The new perl eclass uses a corrected makemaker for perl.
Diffstat (limited to 'dev-perl/Curses/files')
| -rw-r--r-- | dev-perl/Curses/files/Curses-1.06-p5.8-fixes.diff | 44 | ||||
| -rw-r--r-- | dev-perl/Curses/files/digest-Curses-1.06-r1 | 1 |
2 files changed, 45 insertions, 0 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 new file mode 100644 index 000000000000..a75be95f81e4 --- /dev/null +++ b/dev-perl/Curses/files/Curses-1.06-p5.8-fixes.diff @@ -0,0 +1,44 @@ +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(); diff --git a/dev-perl/Curses/files/digest-Curses-1.06-r1 b/dev-perl/Curses/files/digest-Curses-1.06-r1 new file mode 100644 index 000000000000..12676945ccb1 --- /dev/null +++ b/dev-perl/Curses/files/digest-Curses-1.06-r1 @@ -0,0 +1 @@ +MD5 569c7966f2e591676f7eb09e5b7a84c0 Curses-1.06.tar.gz 75923 |