--- 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();