integrate cfgperl contents into mainline

p4raw-id: //depot/perl@4387

5 files changed, 249 insertions, 7 deletions

diff --git a/Changes b/Changes
index b9c1815392..40c0eca71c 100644
--- a/Changes
+++ b/Changes
@@ -79,6 +79,211 @@ Version 5.005_62        Development release working toward 5.006
 ----------------
 
 ____________________________________________________________________________
+[  4386] By: gsar                                  on 1999/10/15  05:45:36
+        Log: various little goofs in change#4385
+     Branch: perl
+	   ! win32/include/dirent.h win32/win32.c
+____________________________________________________________________________
+[  4385] By: gsar                                  on 1999/10/15  04:49:09
+        Log: win32_*dir() cleanup; win32_readdir() iterates as necessary
+             rather than win32_opendir() reading all files up front (untested)
+     Branch: perl
+	   ! win32/include/dirent.h win32/win32.c
+____________________________________________________________________________
+[  4384] By: gsar                                  on 1999/10/15  01:34:09
+        Log: Benchmark notes (from Barrie Slaymaker <barries@slaysys.com>)
+     Branch: perl
+	   ! lib/Benchmark.pm pod/perldelta.pod
+____________________________________________________________________________
+[  4383] By: gsar                                  on 1999/10/15  01:22:32
+        Log: include info about Perl Mongers in perlfaq2 (from David H. Adler
+             <dha@panix.com>)
+     Branch: perl
+	   ! pod/perlfaq2.pod
+____________________________________________________________________________
+[  4382] By: gsar                                  on 1999/10/15  01:14:22
+        Log: From: jand@ActiveState.com (Jan Dubois)
+             Date: Fri, 15 Oct 1999 01:14:23 +0200
+             Message-ID: <380f61ae.18202914@smtprelay.t-online.de>
+             Subject: [PATCH 5.005_61] Prevent "Out of memory" error in POSIX's strftime()
+     Branch: perl
+	   ! ext/POSIX/POSIX.xs
+____________________________________________________________________________
+[  4381] By: jhi                                   on 1999/10/14  22:11:36
+        Log: Integrate with Sarathy.
+     Branch: cfgperl
+	  !> XSUB.h cop.h embed.h embed.pl ext/File/Glob/bsd_glob.c
+	  !> lib/Time/Local.pm perl.c perlapi.c pod/perlop.pod pp_ctl.c
+	  !> proto.h scope.c scope.h t/op/runlevel.t util.c win32/Makefile
+	  !> win32/makefile.mk
+____________________________________________________________________________
+[  4380] By: jhi                                   on 1999/10/14  22:08:22
+        Log: Warn inside character classes about unknown backslash escapes
+             (that are not caught earlier because of being completely unknown,
+             such as \m), such as \z (because they make do sense inside regexen,
+             but not inside character classes).
+     Branch: cfgperl
+	   ! pod/perldelta.pod pod/perldiag.pod regcomp.c
+	   ! t/pragma/warn/regcomp
+____________________________________________________________________________
+[  4379] By: gsar                                  on 1999/10/14  18:26:56
+        Log: clarify significance of parens for "x" (from M.J.T. Guy
+             <mjtg@cus.cam.ac.uk>)
+     Branch: perl
+	   ! pod/perlop.pod
+____________________________________________________________________________
+[  4378] By: gsar                                  on 1999/10/14  18:25:20
+        Log: make timelocal work better when time is close to the epoch
+             east of GMT (from Keiki SATOH <kki@wakusei.ne.jp>)
+     Branch: perl
+	   ! lib/Time/Local.pm
+____________________________________________________________________________
+[  4377] By: gsar                                  on 1999/10/14  18:15:11
+        Log: integrate cfgperl contents into mainline
+     Branch: perl
+	  +> ext/DB_File/hints/sco.pl
+	  !> MANIFEST hints/aix.sh hints/linux.sh hints/svr5.sh
+	  !> pod/perldelta.pod pod/perldiag.pod pod/perlop.pod
+	  !> pod/perlre.pod regcomp.c t/op/re_tests t/pragma/warn/regcomp
+____________________________________________________________________________
+[  4376] By: gsar                                  on 1999/10/14  17:47:35
+        Log: fix POPSTACK panics that ensued from bad interaction between
+             runlevels and stack of stacks (change#3988 done right);
+             basically, we pop the runlevel if the stacklevel is not the
+             same one we started the runlevel with
+     Branch: perl
+	   ! cop.h perl.c pp_ctl.c t/op/runlevel.t util.c
+____________________________________________________________________________
+[  4375] By: gsar                                  on 1999/10/14  15:54:48
+        Log: avoid warnings
+     Branch: perl
+	   ! ext/File/Glob/bsd_glob.c
+____________________________________________________________________________
+[  4374] By: jhi                                   on 1999/10/14  10:08:44
+        Log: Warn about false ranges like \d-\w (see the change #4355).
+             The invalid ranges (b-a) warning message also enhanced.
+     Branch: cfgperl
+	   ! pod/perldelta.pod pod/perldiag.pod regcomp.c t/op/re_tests
+	   ! t/pragma/warn/regcomp
+____________________________________________________________________________
+[  4373] By: gsar                                  on 1999/10/14  03:49:54
+        Log: File::Glob fixes for Windows
+     Branch: perl
+	   ! XSUB.h ext/File/Glob/bsd_glob.c win32/Makefile
+	   ! win32/makefile.mk
+____________________________________________________________________________
+[  4372] By: gsar                                  on 1999/10/14  02:21:31
+        Log: avoid inefficiency in change#3386 (every longjmp() was followed
+             by an avoidable call to setjmp())
+     Branch: perl
+	   ! embed.h embed.pl perl.c perlapi.c pod/perldelta.pod pp_ctl.c
+	   ! proto.h scope.c scope.h
+____________________________________________________________________________
+[  4371] By: jhi                                   on 1999/10/13  21:17:17
+        Log: Integrate with Sarathy.
+     Branch: cfgperl
+	  !> op.c pod/perldelta.pod
+____________________________________________________________________________
+[  4370] By: gsar                                  on 1999/10/13  18:08:45
+        Log: misc tweaks
+     Branch: perl
+	   ! op.c pod/perldelta.pod
+____________________________________________________________________________
+[  4369] By: jhi                                   on 1999/10/13  16:18:58
+        Log: Integrate with Sarathy.
+     Branch: cfgperl
+	  !> pod/perldelta.pod pod/perldiag.pod pod/perlfunc.pod
+____________________________________________________________________________
+[  4368] By: gsar                                  on 1999/10/13  16:14:16
+        Log: pod nits from various perl porters
+     Branch: perl
+	   ! pod/perldelta.pod pod/perldiag.pod pod/perlfunc.pod
+____________________________________________________________________________
+[  4367] By: jhi                                   on 1999/10/13  12:10:30
+        Log: From: Vlad Harchev <hvv@hippo.ru>
+             To: perl5-porters@perl.org
+             Subject: [ID 19991013.002] fix for 'perlop.pod' shipped with perl5.00503
+             Date: Wed, 13 Oct 1999 15:48:59 +0500 (SAMST)
+             Message-Id: <Pine.LNX.4.10.9910131546580.3542-100000@localhost.localdomain>
+     Branch: cfgperl
+	   ! pod/perlop.pod
+____________________________________________________________________________
+[  4366] By: gsar                                  on 1999/10/13  08:11:11
+        Log: typos and language goofs pointed out by Hugo van der Sanden
+             <hv@crypt.compulink.co.uk>
+     Branch: perl
+	   ! pod/perldelta.pod pod/perldiag.pod
+____________________________________________________________________________
+[  4365] By: jhi                                   on 1999/10/13  07:27:44
+        Log: Integrate with Sarathy.
+     Branch: cfgperl
+	  +> ext/File/Glob/Changes ext/File/Glob/Glob.pm
+	  +> ext/File/Glob/Glob.xs ext/File/Glob/Makefile.PL
+	  +> ext/File/Glob/TODO ext/File/Glob/bsd_glob.c
+	  +> ext/File/Glob/bsd_glob.h ext/NDBM_File/hints/sco.pl
+	  +> t/lib/glob-basic.t t/lib/glob-global.t t/lib/glob-taint.t
+	  !> Changes MANIFEST README.win32 ext/ODBM_File/hints/sco.pl
+	  !> lib/perl5db.pl op.c pod/perldelta.pod pod/perlfaq8.pod
+	  !> pod/perlfunc.pod pod/perlop.pod pod/perlport.pod t/op/glob.t
+	  !> t/op/readdir.t t/op/taint.t t/pragma/overload.t util.c
+____________________________________________________________________________
+[  4364] By: gsar                                  on 1999/10/13  07:06:04
+        Log: debugger tweak (from M.J.T. Guy <mjtg@cus.cam.ac.uk>)
+     Branch: perl
+	   ! lib/perl5db.pl
+____________________________________________________________________________
+[  4363] By: jhi                                   on 1999/10/13  07:03:43
+        Log: From: Mike Hopkirk (hops) <hops@scoot.pdev.sco.com>
+             To: perl5-porters@perl.org
+             Subject: [ID 19991012.002] Latest UnixWare7 (svr5.sh) hints file
+             Date: Tue, 12 Oct 1999 19:48:11 -0700 (PDT)
+             Message-Id: <199910130248.TAA14636@scoot.pdev.sco.com>
+     Branch: cfgperl
+	   ! hints/svr5.sh
+____________________________________________________________________________
+[  4362] By: jhi                                   on 1999/10/13  06:57:16
+        Log: Add DB_File hint for SCO ODT.
+             From: hops@sco.com
+             To: perl5-porters@perl.org
+             Subject: [ID 19991012.004] Build patch for perl5.005_03 on ODT3 ( 3.2v4.2)
+             Date: Tue, 12 Oct 1999 20:16:04 PDT
+             Message-Id: <199910122016.aa18415@charmstr.pdev.sco.com>
+     Branch: cfgperl
+	   + ext/DB_File/hints/sco.pl
+	   ! MANIFEST
+____________________________________________________________________________
+[  4361] By: gsar                                  on 1999/10/13  06:56:08
+        Log: PL_numeric_radix used without being defined (from Ilya
+             Zakharevich)
+     Branch: perl
+	   ! util.c
+____________________________________________________________________________
+[  4360] By: gsar                                  on 1999/10/13  06:43:03
+        Log: use libdbm.nfs.a if available (libdbm.a is missing dbmclose())
+             From: hops@sco.com
+             Date: Tue, 12 Oct 1999 20:16:04 PDT
+             Message-Id: <199910122016.aa18415@charmstr.pdev.sco.com>
+             Subject: [ID 19991012.004] Build patch for perl5.005_03 on ODT3 ( 3.2v4.2)
+     Branch: perl
+	   + ext/NDBM_File/hints/sco.pl
+	   ! MANIFEST ext/ODBM_File/hints/sco.pl
+____________________________________________________________________________
+[  4359] By: gsar                                  on 1999/10/13  06:34:53
+        Log: various pod tweaks (from M.J.T. Guy <mjtg@cus.cam.ac.uk>)
+     Branch: perl
+	   ! README.win32 pod/perlfaq8.pod pod/perlfunc.pod pod/perlop.pod
+	   ! pod/perlport.pod
+____________________________________________________________________________
+[  4358] By: gsar                                  on 1999/10/12  19:10:27
+        Log: perldelta updates
+     Branch: perl
+	   ! pod/perldelta.pod
+____________________________________________________________________________
+[  4357] By: gsar                                  on 1999/10/12  17:11:18
+        Log: update perldelta for change#4356
+     Branch: perl
+	   ! Changes pod/perldelta.pod
+____________________________________________________________________________
 [  4356] By: gsar                                  on 1999/10/12  16:53:31
         Log: add File::BSDGlob as File::Glob and load it at compile-time
              if perl was built with -DPERL_INTERNAL_GLOB
diff --git a/pod/perldelta.pod b/pod/perldelta.pod
index 3ff77cc1c4..6fb3807a88 100644
--- a/pod/perldelta.pod
+++ b/pod/perldelta.pod
@@ -1413,7 +1413,12 @@ your signed integers.  See L<perlfunc/unpack>.
 
 (W) You used a backslash-character combination which is not recognized
 by Perl.  This combination appears in an interpolated variable or a
-C<'>-delimited regular expression.
+C<'>-delimited regular expression.  The character was understood literally.
+
+=item /%s/: Unrecognized escape \\%c in character class passed through
+
+(W) You used a backslash-character combination which is not recognized
+by Perl inside character classes.  The character was understood literally.
 
 =item /%s/ should probably be written as "%s"
 
@@ -1791,7 +1796,7 @@ subvert Perl's population of %ENV for nefarious purposes.
 =item Unrecognized escape \\%c passed through
 
 (W) You used a backslash-character combination which is not recognized
-by Perl.
+by Perl.  The character was understood literally.
 
 =item Unterminated attribute parameter in attribute list
 
diff --git a/pod/perldiag.pod b/pod/perldiag.pod
index 11758e0e88..a6a723cc86 100644
--- a/pod/perldiag.pod
+++ b/pod/perldiag.pod
@@ -110,7 +110,12 @@ your signed integers.  See L<perlfunc/unpack>.
 
 (W) You used a backslash-character combination which is not recognized
 by Perl.  This combination appears in an interpolated variable or a 
-C<'>-delimited regular expression.
+C<'>-delimited regular expression.  The character was understood literally.
+
+=item /%s/: Unrecognized escape \\%c in character class passed through
+
+(W) You used a backslash-character combination which is not recognized
+by Perl inside character classes.  The character was understood literally.
 
 =item /%s/ should probably be written as "%s"
 
diff --git a/regcomp.c b/regcomp.c
index 0dafdd0b9b..2a27b07743 100644
--- a/regcomp.c
+++ b/regcomp.c
@@ -2061,9 +2061,9 @@ tryagain:
 		    default:
 			if (!SIZE_ONLY && ckWARN(WARN_UNSAFE) && isALPHA(*p))
 			    Perl_warner(aTHX_ WARN_UNSAFE, 
-				   "/%.127s/: Unrecognized escape \\%c passed through",
-				   PL_regprecomp,
-				   *p);
+					"/%.127s/: Unrecognized escape \\%c passed through",
+					PL_regprecomp,
+					*p);
 			goto normal_default;
 		    }
 		    break;
@@ -2364,6 +2364,13 @@ S_regclass(pTHX)
 		value = scan_oct(--PL_regcomp_parse, 3, &numlen);
 		PL_regcomp_parse += numlen;
 		break;
+	    default:
+		if (!SIZE_ONLY && ckWARN(WARN_UNSAFE) && isALPHA(value))
+		    Perl_warner(aTHX_ WARN_UNSAFE, 
+				"/%.127s/: Unrecognized escape \\%c in character class passed through",
+				PL_regprecomp,
+				value);
+		break;
 	    }
 	}
 	if (namedclass > OOB_NAMEDCLASS) {
@@ -2808,6 +2815,13 @@ S_regclassutf8(pTHX)
 		value = scan_oct(--PL_regcomp_parse, 3, &numlen);
 		PL_regcomp_parse += numlen;
 		break;
+	    default:
+		if (!SIZE_ONLY && ckWARN(WARN_UNSAFE) && isALPHA(value))
+		    Perl_warner(aTHX_ WARN_UNSAFE, 
+				"/%.127s/: Unrecognized escape \\%c in character class passed through",
+				PL_regprecomp,
+				value);
+		break;
 	    }
 	}
 	if (namedclass > OOB_NAMEDCLASS) {
diff --git a/t/pragma/warn/regcomp b/t/pragma/warn/regcomp
index 88909626db..92b8208a65 100644
--- a/t/pragma/warn/regcomp
+++ b/t/pragma/warn/regcomp
@@ -19,6 +19,10 @@
 
   /%.127s/: false [] range \"%*.*s\" in regexp [S_regclassutf8]
 
+  /%.127s/: Unrecognized escape \\%c in character class passed through"	[S_regclass] 
+
+  /%.127s/: Unrecognized escape \\%c in character class passed through"	[S_regclassutf8] 
+
 __END__
 # regcomp.c [S_regpiece]
 use warnings 'unsafe' ;
@@ -40,8 +44,9 @@ Strange *+?{} on zero-length expression at - line 4.
 ########
 # regcomp.c [S_regatom]
 use warnings 'unsafe' ;
-$a =~ /\m/ ;
+$a =~ /a\mb\b/ ;
 no warnings 'unsafe' ;
+$a =~ /a\mb\b/ ;
 EXPECT
 Unrecognized escape \m passed through at - line 3.
 ########
@@ -139,3 +144,11 @@ EXPECT
 /[[:digit:]-b]/: false [] range "[:digit:]-" in regexp at - line 11.
 /[[:alpha:]-[:digit:]]/: false [] range "[:alpha:]-" in regexp at - line 12.
 /[[:digit:]-[:alpha:]]/: false [] range "[:digit:]-" in regexp at - line 13.
+########
+# regcomp.c [S_regclass S_regclassutf8]
+use warnings 'unsafe' ;
+$a =~ /[a\zb]/ ;
+no warnings 'unsafe' ;
+$a =~ /[a\zb]/ ;
+EXPECT
+/[a\zb]/: Unrecognized escape \z in character class passed through at - line 3.