From: Gurusamy Sarathy Date: Sun, 26 Jul 1998 21:12:11 +0000 (+0000) Subject: s/TMP_CRLF_PATCH/PERL_STRICT_CR/ with sense reversed, so they X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b8957cf14d64aac7919c660fa810962ddf2b2dee;p=p5sagit%2Fp5-mst-13.2.git s/TMP_CRLF_PATCH/PERL_STRICT_CR/ with sense reversed, so they can disable it from config.sh if they want; up patchlevel to 5_01; little tweaks to pods p4raw-id: //depot/maint-5.005/perl@1668 --- diff --git a/README.win32 b/README.win32 index 6d9b015..6ac163a 100644 --- a/README.win32 +++ b/README.win32 @@ -70,7 +70,7 @@ If the build fails under that shell, try building again with the cmd shell. The Makefile also has known incompatibilites with the "command.com" shell that comes with Windows95, so building under Windows95 should be considered "unsupported". However, there have been reports of successful -build attempts using 4DOS/NT version 3.00 under Windows95, using dmake, but +build attempts using 4DOS/NT version 6.01 under Windows95, using dmake, but your mileage may vary. The surest way to build it is on WindowsNT, using the cmd shell. diff --git a/patchlevel.h b/patchlevel.h index 0f4e051..148b1b8 100644 --- a/patchlevel.h +++ b/patchlevel.h @@ -1,6 +1,6 @@ #ifndef __PATCHLEVEL_H_INCLUDED__ #define PATCHLEVEL 5 -#define SUBVERSION 0 +#define SUBVERSION 1 /* local_patches -- list of locally applied less-than-subversion patches. diff --git a/pod/perldelta.pod b/pod/perldelta.pod index 808b3f6..d43f657 100644 --- a/pod/perldelta.pod +++ b/pod/perldelta.pod @@ -135,7 +135,12 @@ features make them less often a problem. See L. Perl has a new Social Contract for contributors. See F. The license included in much of the Perl documentation has changed. -See L and the individual perl man pages listed therein. +Most of the Perl documentation was previously under the implicit GNU +General Public License or the Artistic License (at the user's choice). +Now much of the documentation unambigously states the terms under which +it may be distributed. Those terms are in general much less restrictive +than the GNU GPL. See L and the individual perl man pages listed +therein. =head1 Core Changes @@ -301,13 +306,15 @@ and in XSUBs. =head2 More generous treatment of carriage returns -Perl used to complain if it encountered carriage returns in scripts. Now -they are treated like whitespace. Literal carriage returns inside -string literals and here documents are ignored if they are paired with -newlines, or treated like newlines if they stand alone. This behavior -means that literal carriage returns in files should be avoided. You -can get the older, more compatible (but less generous) behavior by -defining the preprocessor symbol C when building perl. +Perl used to complain if it encountered literal carriage returns in +scripts. Now they are mostly treated like whitespace within program text. +Inside string literals and here documents, literal carriage returns are +ignored if they occur paired with newlines, or get interpreted as newlines +if they stand alone. This behavior means that literal carriage returns +in files should be avoided. You can get the older, more compatible (but +less generous) behavior by defining the preprocessor symbol +C when building perl. Of course, all this has nothing +whatever to do with how escapes like C<\r> are handled within strings. Note that this doesn't somehow magically allow you to keep all text files in DOS format. The generous treatment only applies to files that perl diff --git a/toke.c b/toke.c index 64c6981..9475b25 100644 --- a/toke.c +++ b/toke.c @@ -11,8 +11,6 @@ * "It all comes from here, the stench and the peril." --Frodo */ -#define TMP_CRLF_PATCH - #include "EXTERN.h" #include "perl.h" @@ -1988,7 +1986,7 @@ yylex(void) } goto retry; case '\r': -#ifndef TMP_CRLF_PATCH +#ifdef PERL_STRICT_CR warn("Illegal character \\%03o (carriage return)", '\r'); croak( "(Maybe you didn't strip carriage returns after a network transfer?)\n"); @@ -5168,7 +5166,7 @@ scan_heredoc(register char *s) *d++ = '\n'; *d = '\0'; len = d - PL_tokenbuf; -#ifdef TMP_CRLF_PATCH +#ifndef PERL_STRICT_CR d = strchr(s, '\r'); if (d) { char *olds = s; @@ -5244,7 +5242,7 @@ scan_heredoc(register char *s) } PL_curcop->cop_line++; PL_bufend = SvPVX(PL_linestr) + SvCUR(PL_linestr); -#ifdef TMP_CRLF_PATCH +#ifndef PERL_STRICT_CR if (PL_bufend - PL_linestart >= 2) { if ((PL_bufend[-2] == '\r' && PL_bufend[-1] == '\n') || (PL_bufend[-2] == '\n' && PL_bufend[-1] == '\r')) @@ -5543,7 +5541,7 @@ scan_str(char *start) if (s < PL_bufend) break; /* handle case where we are done yet :-) */ -#ifdef TMP_CRLF_PATCH +#ifndef PERL_STRICT_CR if (to - SvPVX(sv) >= 2) { if ((to[-2] == '\r' && to[-1] == '\n') || (to[-2] == '\n' && to[-1] == '\r')) diff --git a/win32/Makefile b/win32/Makefile index e33cb91..2c1e672 100644 --- a/win32/Makefile +++ b/win32/Makefile @@ -25,7 +25,7 @@ INST_TOP = $(INST_DRV)\perl # versioned installation can be obtained by setting INST_TOP above to a # path that includes an arbitrary version string. # -INST_VER = \5.005 +INST_VER = \5.00501 # # uncomment to enable threads-capabilities diff --git a/win32/config_H.bc b/win32/config_H.bc index 1bca361..8017e55 100644 --- a/win32/config_H.bc +++ b/win32/config_H.bc @@ -34,8 +34,8 @@ * This symbol is the filename expanded version of the BIN symbol, for * programs that do not want to deal with that at run-time. */ -#define BIN "c:\\perl\\5.005\\bin\\MSWin32-x86" /**/ -#define BIN_EXP "c:\\perl\\5.005\\bin\\MSWin32-x86" /**/ +#define BIN "c:\\perl\\5.00501\\bin\\MSWin32-x86" /**/ +#define BIN_EXP "c:\\perl\\5.00501\\bin\\MSWin32-x86" /**/ /* CPPSTDIN: * This symbol contains the first part of the string which will invoke @@ -1829,7 +1829,7 @@ * This symbol contains the ~name expanded version of ARCHLIB, to be used * in programs that are not prepared to deal with ~ expansion at run-time. */ -#define ARCHLIB "c:\\perl\\5.005\\lib\\MSWin32-x86" /**/ +#define ARCHLIB "c:\\perl\\5.00501\\lib\\MSWin32-x86" /**/ /*#define ARCHLIB_EXP "" /**/ /* DLSYM_NEEDS_UNDERSCORE: @@ -1875,8 +1875,8 @@ * This symbol contains the ~name expanded version of PRIVLIB, to be used * in programs that are not prepared to deal with ~ expansion at run-time. */ -#define PRIVLIB "c:\\perl\\5.005\\lib" /**/ -#define PRIVLIB_EXP (win32_get_privlib("5.005")) /**/ +#define PRIVLIB "c:\\perl\\5.00501\\lib" /**/ +#define PRIVLIB_EXP (win32_get_privlib("5.00501")) /**/ /* SITEARCH: * This symbol contains the name of the private library for this package. @@ -1891,7 +1891,7 @@ * This symbol contains the ~name expanded version of SITEARCH, to be used * in programs that are not prepared to deal with ~ expansion at run-time. */ -#define SITEARCH "c:\\perl\\site\\5.005\\lib\\MSWin32-x86" /**/ +#define SITEARCH "c:\\perl\\site\\5.00501\\lib\\MSWin32-x86" /**/ /*#define SITEARCH_EXP "" /**/ /* SITELIB: @@ -1907,8 +1907,8 @@ * This symbol contains the ~name expanded version of SITELIB, to be used * in programs that are not prepared to deal with ~ expansion at run-time. */ -#define SITELIB "c:\\perl\\site\\5.005\\lib" /**/ -#define SITELIB_EXP (win32_get_sitelib("5.005")) /**/ +#define SITELIB "c:\\perl\\site\\5.00501\\lib" /**/ +#define SITELIB_EXP (win32_get_sitelib("5.00501")) /**/ /* STARTPERL: * This variable contains the string to put in front of a perl diff --git a/win32/config_H.gc b/win32/config_H.gc index 65c06f5..ffa5c1c 100644 --- a/win32/config_H.gc +++ b/win32/config_H.gc @@ -34,8 +34,8 @@ * This symbol is the filename expanded version of the BIN symbol, for * programs that do not want to deal with that at run-time. */ -#define BIN "c:\\perl\\5.005\\bin\\MSWin32-x86" /**/ -#define BIN_EXP "c:\\perl\\5.005\\bin\\MSWin32-x86" /**/ +#define BIN "c:\\perl\\5.00501\\bin\\MSWin32-x86" /**/ +#define BIN_EXP "c:\\perl\\5.00501\\bin\\MSWin32-x86" /**/ /* CPPSTDIN: * This symbol contains the first part of the string which will invoke @@ -1829,7 +1829,7 @@ * This symbol contains the ~name expanded version of ARCHLIB, to be used * in programs that are not prepared to deal with ~ expansion at run-time. */ -#define ARCHLIB "c:\\perl\\5.005\\lib\\MSWin32-x86" /**/ +#define ARCHLIB "c:\\perl\\5.00501\\lib\\MSWin32-x86" /**/ /*#define ARCHLIB_EXP "" /**/ /* DLSYM_NEEDS_UNDERSCORE: @@ -1875,8 +1875,8 @@ * This symbol contains the ~name expanded version of PRIVLIB, to be used * in programs that are not prepared to deal with ~ expansion at run-time. */ -#define PRIVLIB "c:\\perl\\5.005\\lib" /**/ -#define PRIVLIB_EXP (win32_get_privlib("5.005")) /**/ +#define PRIVLIB "c:\\perl\\5.00501\\lib" /**/ +#define PRIVLIB_EXP (win32_get_privlib("5.00501")) /**/ /* SITEARCH: * This symbol contains the name of the private library for this package. @@ -1891,7 +1891,7 @@ * This symbol contains the ~name expanded version of SITEARCH, to be used * in programs that are not prepared to deal with ~ expansion at run-time. */ -#define SITEARCH "c:\\perl\\site\\5.005\\lib\\MSWin32-x86" /**/ +#define SITEARCH "c:\\perl\\site\\5.00501\\lib\\MSWin32-x86" /**/ /*#define SITEARCH_EXP "" /**/ /* SITELIB: @@ -1907,8 +1907,8 @@ * This symbol contains the ~name expanded version of SITELIB, to be used * in programs that are not prepared to deal with ~ expansion at run-time. */ -#define SITELIB "c:\\perl\\site\\5.005\\lib" /**/ -#define SITELIB_EXP (win32_get_sitelib("5.005")) /**/ +#define SITELIB "c:\\perl\\site\\5.00501\\lib" /**/ +#define SITELIB_EXP (win32_get_sitelib("5.00501")) /**/ /* STARTPERL: * This variable contains the string to put in front of a perl diff --git a/win32/config_H.vc b/win32/config_H.vc index 4d09b34..ab2bec6 100644 --- a/win32/config_H.vc +++ b/win32/config_H.vc @@ -34,8 +34,8 @@ * This symbol is the filename expanded version of the BIN symbol, for * programs that do not want to deal with that at run-time. */ -#define BIN "c:\\perl\\5.005\\bin\\MSWin32-x86" /**/ -#define BIN_EXP "c:\\perl\\5.005\\bin\\MSWin32-x86" /**/ +#define BIN "c:\\perl\\5.00501\\bin\\MSWin32-x86" /**/ +#define BIN_EXP "c:\\perl\\5.00501\\bin\\MSWin32-x86" /**/ /* CPPSTDIN: * This symbol contains the first part of the string which will invoke @@ -1829,7 +1829,7 @@ * This symbol contains the ~name expanded version of ARCHLIB, to be used * in programs that are not prepared to deal with ~ expansion at run-time. */ -#define ARCHLIB "c:\\perl\\5.005\\lib\\MSWin32-x86" /**/ +#define ARCHLIB "c:\\perl\\5.00501\\lib\\MSWin32-x86" /**/ /*#define ARCHLIB_EXP "" /**/ /* DLSYM_NEEDS_UNDERSCORE: @@ -1875,8 +1875,8 @@ * This symbol contains the ~name expanded version of PRIVLIB, to be used * in programs that are not prepared to deal with ~ expansion at run-time. */ -#define PRIVLIB "c:\\perl\\5.005\\lib" /**/ -#define PRIVLIB_EXP (win32_get_privlib("5.005")) /**/ +#define PRIVLIB "c:\\perl\\5.00501\\lib" /**/ +#define PRIVLIB_EXP (win32_get_privlib("5.00501")) /**/ /* SITEARCH: * This symbol contains the name of the private library for this package. @@ -1891,7 +1891,7 @@ * This symbol contains the ~name expanded version of SITEARCH, to be used * in programs that are not prepared to deal with ~ expansion at run-time. */ -#define SITEARCH "c:\\perl\\site\\5.005\\lib\\MSWin32-x86" /**/ +#define SITEARCH "c:\\perl\\site\\5.00501\\lib\\MSWin32-x86" /**/ /*#define SITEARCH_EXP "" /**/ /* SITELIB: @@ -1907,8 +1907,8 @@ * This symbol contains the ~name expanded version of SITELIB, to be used * in programs that are not prepared to deal with ~ expansion at run-time. */ -#define SITELIB "c:\\perl\\site\\5.005\\lib" /**/ -#define SITELIB_EXP (win32_get_sitelib("5.005")) /**/ +#define SITELIB "c:\\perl\\site\\5.00501\\lib" /**/ +#define SITELIB_EXP (win32_get_sitelib("5.00501")) /**/ /* STARTPERL: * This variable contains the string to put in front of a perl diff --git a/win32/makefile.mk b/win32/makefile.mk index 249c0aa..a4420fe 100644 --- a/win32/makefile.mk +++ b/win32/makefile.mk @@ -29,7 +29,7 @@ INST_TOP *= $(INST_DRV)\perl # versioned installation can be obtained by setting INST_TOP above to a # path that includes an arbitrary version string. # -INST_VER *= \5.005 +INST_VER *= \5.00501 # # uncomment to enable threads-capabilities diff --git a/win32/win32.c b/win32/win32.c index 03a9bd8..721b62a 100644 --- a/win32/win32.c +++ b/win32/win32.c @@ -1175,6 +1175,7 @@ win32_crypt(const char *txt, const char *salt) return des_fcrypt(crypt_buffer, txt, salt); #else die("The crypt() function is unimplemented due to excessive paranoia."); + return Nullch; #endif } #endif