This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
s/TMP_CRLF_PATCH/PERL_STRICT_CR/ with sense reversed, so they
authorGurusamy Sarathy <gsar@cpan.org>
Sun, 26 Jul 1998 21:12:11 +0000 (21:12 +0000)
committerGurusamy Sarathy <gsar@cpan.org>
Sun, 26 Jul 1998 21:12:11 +0000 (21:12 +0000)
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

README.win32
patchlevel.h
pod/perldelta.pod
toke.c
win32/Makefile
win32/config_H.bc
win32/config_H.gc
win32/config_H.vc
win32/makefile.mk
win32/win32.c

index 6d9b015..6ac163a 100644 (file)
@@ -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.
index 0f4e051..148b1b8 100644 (file)
@@ -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.
index 808b3f6..d43f657 100644 (file)
@@ -135,7 +135,12 @@ features make them less often a problem.  See L<New Diagnostics>.
 Perl has a new Social Contract for contributors.  See F<Porting/Contract>.
 
 The license included in much of the Perl documentation has changed.
-See L<perl> 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<perl> 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<TMP_CRLF_PATCH> 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<PERL_STRICT_CR> 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 (file)
--- 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'))
index e33cb91..2c1e672 100644 (file)
@@ -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
index 1bca361..8017e55 100644 (file)
@@ -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
  *     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:
  *     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.
  *     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:
  *     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
index 65c06f5..ffa5c1c 100644 (file)
@@ -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
  *     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:
  *     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.
  *     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:
  *     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
index 4d09b34..ab2bec6 100644 (file)
@@ -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
  *     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:
  *     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.
  *     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:
  *     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
index 249c0aa..a4420fe 100644 (file)
@@ -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
index 03a9bd8..721b62a 100644 (file)
@@ -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