This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Spelling correction for consistency with pod/perldebguts.pod.
[perl5.git] / nostdio.h
index 8aaa950..64276aa 100644 (file)
--- a/nostdio.h
+++ b/nostdio.h
@@ -1,6 +1,6 @@
 /*    nostdio.h
  *
- *    Copyright (C) 1996, 2000, 2001, by Larry Wall and others
+ *    Copyright (C) 1996, 2000, 2001, 2005, by Larry Wall and others
  *
  *    You may distribute under the terms of either the GNU General Public
  *    License or the Artistic License, as specified in the README file.
@@ -25,6 +25,8 @@ struct _FILE;
 #define FILE struct _FILE
 #endif
 
+#ifndef EBCDIC
+
 #define _CANNOT "CANNOT"
 
 #undef clearerr
@@ -124,3 +126,9 @@ struct _FILE;
 #ifndef OS2
 #define pclose(f)  _CANNOT _pclose_
 #endif
+
+#endif /*not define EBCDIC */
+
+/*
+ * ex: set ts=8 sts=4 sw=4 et:
+ */