This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
The NO_C99_LONG_DOUBLE_MATH is no more used.
[perl5.git] / nostdio.h
index ef8d652..c815fd8 100644 (file)
--- a/nostdio.h
+++ b/nostdio.h
@@ -25,6 +25,8 @@ struct _FILE;
 #define FILE struct _FILE
 #endif
 
+#ifndef EBCDIC
+
 #define _CANNOT "CANNOT"
 
 #undef clearerr
@@ -125,6 +127,8 @@ struct _FILE;
 #define pclose(f)  _CANNOT _pclose_
 #endif
 
+#endif /*not define EBCDIC */
+
 /*
  * Local variables:
  * c-indentation-style: bsd