Additions to perldiag for MRO, by Brandon Black.

[perl5.git] / iperlsys.h

diff --git a/iperlsys.h b/iperlsys.h
index 59b2f9a..bc99954 100644 (file)
--- a/iperlsys.h
+++ b/iperlsys.h
@@ -339,7 +339,7 @@ struct IPerlStdIOInfo
 #define PerlSIO_set_cnt(f,c)           PerlIOProc_abort()
 #endif
 #if defined(USE_STDIO_PTR) && defined(STDIO_PTR_LVALUE)
-#define PerlSIO_set_ptr(f,p)           FILE_ptr(f) = ((STDCHAR*)(p))
+#define PerlSIO_set_ptr(f,p)           (FILE_ptr(f) = (p))
 #else
 #define PerlSIO_set_ptr(f,p)           PerlIOProc_abort()
 #endif