multiconcat: don't fold adjacent constants

[perl5.git] / nostdio.h

diff --git a/nostdio.h b/nostdio.h
index f6a13b4..64276aa 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,12 +127,8 @@ struct _FILE;
 #define pclose(f)  _CANNOT _pclose_
 #endif
 
+#endif /*not define EBCDIC */
+
 /*
- * Local variables:
- * c-indentation-style: bsd
- * c-basic-offset: 4
- * indent-tabs-mode: t
- * End:
- *
- * ex: set ts=8 sts=4 sw=4 noet:
+ * ex: set ts=8 sts=4 sw=4 et:
  */