fix up B modules for PL_* changes
[p5sagit/p5-mst-13.2.git] / ext / IO / IO.xs
index f226a79..a434cca 100644 (file)
@@ -7,7 +7,14 @@
 #  include <unistd.h>
 #endif
 #ifdef I_FCNTL
+#if defined(__GNUC__) && defined(__cplusplus) && defined(WIN32)
+#define _NO_OLDNAMES
+#endif 
 #  include <fcntl.h>
+#if defined(__GNUC__) && defined(__cplusplus) && defined(WIN32)
+#undef _NO_OLDNAMES
+#endif 
+
 #endif
 
 #ifdef PerlIO
@@ -94,7 +101,7 @@ fgetpos(handle)
            ST(0) = sv_2mortal(newSVpv((char*)&pos, sizeof(Fpos_t)));
        }
        else {
-           ST(0) = &sv_undef;
+           ST(0) = &PL_sv_undef;
            errno = EINVAL;
        }
 
@@ -104,7 +111,7 @@ fsetpos(handle, pos)
        SV *            pos
     CODE:
        char *p;
-       if (handle && (p = SvPVx(pos, na)) && na == sizeof(Fpos_t))
+       if (handle && (p = SvPVx(pos, PL_na)) && PL_na == sizeof(Fpos_t))
 #ifdef PerlIO
            RETVAL = PerlIO_setpos(handle, (Fpos_t*)p);
 #else
@@ -139,7 +146,7 @@ new_tmpfile(packname = "IO::File")
            SvREFCNT_dec(gv);   /* undo increment in newRV() */
        }
        else {
-           ST(0) = &sv_undef;
+           ST(0) = &PL_sv_undef;
            SvREFCNT_dec(gv);
        }
 
@@ -153,7 +160,7 @@ constant(name)
        if (constant(name, &i))
            ST(0) = sv_2mortal(newSViv(i));
        else
-           ST(0) = &sv_undef;
+           ST(0) = &PL_sv_undef;
 
 int
 ungetc(handle, c)