Change 13637 by jhi@alpha on 2001/12/12 00:37:20
Detypo and rename.
Affected files ...
.... //depot/perl/doio.c#182 edit
.... //depot/perl/perl.h#422 edit
.... //depot/perl/perlio.c#149 edit
.... //depot/perl/perliol.h#24 edit
Differences ...
==== //depot/perl/doio.c#182 (text) ====
Index: perl/doio.c
--- perl/doio.c.~1~ Tue Dec 11 17:45:06 2001
+++ perl/doio.c Tue Dec 11 17:45:06 2001
@@ -1108,7 +1108,7 @@
* This is a stub for any XS code which might have been calling it.
*/
char *name = ":raw";
-#ifdef PERLIO_CRLF
+#ifdef PERLIO_USING_CRLF
if (!(mode & O_BINARY)))
name = ":crlf";
#endif
==== //depot/perl/perl.h#422 (text) ====
Index: perl/perl.h
--- perl/perl.h.~1~ Tue Dec 11 17:45:06 2001
+++ perl/perl.h Tue Dec 11 17:45:06 2001
@@ -3945,11 +3945,11 @@
/* If you have different O_TEXT and O_BINARY and you are a CLRF shop,
* that is, you are somehow DOSish. */
# if !defined(__BEOS__)
-# define PERLIO_CLRF 1
+# define PERLIO_USING_CRLF 1
# else
/* If you have O_TEXT different from your O_BINARY but you still are
* not a CRLF shop. */
-# undef PERLIO_CLRF
+# undef PERLIO_USING_CRLF
# endif
#endif
==== //depot/perl/perlio.c#149 (text) ====
Index: perl/perlio.c
--- perl/perlio.c.~1~ Tue Dec 11 17:45:06 2001
+++ perl/perlio.c Tue Dec 11 17:45:06 2001
@@ -859,7 +859,7 @@
PerlIO_default_buffer(pTHX_ PerlIO_list_t *av)
{
PerlIO_funcs *tab = &PerlIO_perlio;
-#ifdef PERLIO_CRLF
+#ifdef PERLIO_USING_CRLF
tab = &PerlIO_crlf;
#else
if (PerlIO_stdio.Set_ptrcnt)
@@ -1076,7 +1076,7 @@
/* Can't flush if switching encodings. */
if (!(names && memEQ(names, ":encoding(", 10))) {
PerlIO_flush(f);
-#ifdef PERLIO_CRLF
+#ifdef PERLIO_USING_CRLF
if (!names && (mode & O_BINARY)) {
PerlIO *top = f;
while (*top) {
@@ -1781,7 +1781,7 @@
*s++ = '+';
}
}
-#ifdef PERLIO_CRLF
+#ifdef PERLIO_USING_CRLF
if (!(flags & PERLIO_F_CRLF))
*s++ = 'b';
#endif
@@ -2367,7 +2367,7 @@
while (*mode) {
*tmode++ = *mode++;
}
-#ifdef PERLIO_CRLF
+#ifdef PERLIO_USING_CRLF
*tmode++ = 'b';
#endif
*tmode = '\0';
@@ -2906,7 +2906,7 @@
return NULL;
} else {
fd = PerlIO_fileno(f);
-#ifdef PERLIO_CRLF
+#ifdef PERLIO_USING_CRLF
/*
* do something about failing setmode()? --jhi
*/
==== //depot/perl/perliol.h#24 (text) ====
Index: perl/perliol.h
--- perl/perliol.h.~1~ Tue Dec 11 17:45:06 2001
+++ perl/perliol.h Tue Dec 11 17:45:06 2001
@@ -111,7 +111,7 @@
extern SV *PerlIO_arg_fetch(PerlIO_list_t *av, IV n);
#define PerlIOArg PerlIO_arg_fetch(layers,n)
-#ifdef PERLIO_CRLF
+#ifdef PERLIO_USING_CRLF
#define PERLIO_STDTEXT "t"
#else
#define PERLIO_STDTEXT ""
End of Patch.
