up patchlevel to 73, update Changes &c.

p4raw-id: //depot/perl@1464

9 files changed, 144 insertions, 61 deletions

diff --git a/Changes b/Changes
index 80eca35e45..594300f331 100644
--- a/Changes
+++ b/Changes
@@ -65,7 +65,81 @@ indicator:
 
 
 ----------------
-Version 5.004_72        Developer release working toward 5.005
+Version 5.004_73        Developer release working toward 5.005
+----------------
+
+____________________________________________________________________________
+[  1463] By: gsar                                  on 1998/07/13  02:58:51
+        Log: avoid empty rm -f in MM_Unix.pm
+     Branch: perl
+           ! lib/ExtUtils/MM_Unix.pm
+____________________________________________________________________________
+[  1462] By: gsar                                  on 1998/07/13  02:54:52
+        Log: update perldelta
+     Branch: perl
+           ! pod/perldelta.pod
+____________________________________________________________________________
+[  1461] By: gsar                                  on 1998/07/13  02:44:30
+        Log: added patch, tweaked PERL_OBJECT things
+             From:    Graham Barr <gbarr@pobox.com>
+             Date:    Sun, 12 Jul 1998 19:57:47 CDT
+             Message-Id: <19980712195747.C493@pobox.com>
+             Subject: [ PATCH perl5.004_72] patch to add qr//
+     Branch: perl
+	   ! dump.c embed.h ext/Opcode/Opcode.pm global.sym globals.c
+	   ! keywords.h keywords.pl op.c op.h opcode.h opcode.pl
+	   ! pod/perlfunc.pod pp.c pp_hot.c pp_proto.h proto.h regcomp.c
+           ! regexp.h sv.c t/op/pat.t toke.c
+____________________________________________________________________________
+[  1460] By: gsar                                  on 1998/07/13  01:25:07
+        Log: add a few more PURIFY guards
+     Branch: perl
+           ! av.c sv.c
+____________________________________________________________________________
+[  1459] By: gsar                                  on 1998/07/12  23:38:31
+        Log: add tests for change#1458 and then some
+     Branch: perl
+           ! t/op/array.t
+____________________________________________________________________________
+[  1458] By: gsar                                  on 1998/07/12  22:42:47
+        Log: apply patch for smarter AASSIGN_COMMON detection; regen headers
+             From:    Stephen McCamant <alias@mcs.com>
+             Date:    Sun, 12 Jul 1998 17:17:00 CDT
+             Message-Id: <13737.12300.950886.821143@alias-2.pr.mcs.net>
+             Subject: [PATCH] @a=@a=qw(1) not working, both 5.004_04 and 5.004_71
+     Branch: perl
+           ! op.c opcode.h opcode.pl
+____________________________________________________________________________
+[  1457] By: gsar                                  on 1998/07/12  22:06:05
+        Log: small tweaks from Jarkko Hietaniemi <jhi@cc.hut.fi>
+     Branch: perl
+           ! Configure Makefile.SH ext/Socket/Socket.xs perl.c
+____________________________________________________________________________
+[  1456] By: gsar                                  on 1998/07/12  21:56:39
+        Log: From: Doug MacEachern <dougm@pobox.com>
+             Date: Sun, 12 Jul 1998 14:29:29 -0400
+             Message-Id: <199807121829.OAA00525@postman.opengroup.org>
+             Subject: [PATCH 5.004_72] Embed.pm support for PERL_OBJECT
+     Branch: perl
+           ! lib/ExtUtils/Embed.pm
+____________________________________________________________________________
+[  1455] By: gsar                                  on 1998/07/12  21:54:02
+        Log: applied installperl patch, corrected other little nits
+             From: andreas.koenig@kulturbox.de (Andreas J. Koenig)
+             Date: 12 Jul 1998 16:27:21 +0200
+             Message-ID: <sfcn2afrvp2.fsf@dubravka.in-berlin.de>
+             Subject: [5.004_72] installperl tweak
+     Branch: perl
+           ! Changes Configure README.win32 installperl win32/makefile.mk
+____________________________________________________________________________
+[  1454] By: gsar                                  on 1998/07/12  10:14:24
+        Log: update MANIFEST, Changes
+     Branch: perl
+           - lib/Bundle/CPAN.pm
+           ! Changes MANIFEST
+
+----------------
+Version 5.004_72
 ----------------
 
 ____________________________________________________________________________
diff --git a/patchlevel.h b/patchlevel.h
index a1c4cdffbe..7e86b502cd 100644
--- a/patchlevel.h
+++ b/patchlevel.h
@@ -1,6 +1,6 @@
 #ifndef __PATCHLEVEL_H_INCLUDED__
 #define PATCHLEVEL 4
-#define SUBVERSION 72
+#define SUBVERSION 73
 
 /*
 	local_patches -- list of locally applied less-than-subversion patches.
diff --git a/pod/perlhist.pod b/pod/perlhist.pod
index e028fa6731..7938a99299 100644
--- a/pod/perlhist.pod
+++ b/pod/perlhist.pod
@@ -286,6 +286,8 @@ the strings?).
           5.004_69      1998-Jun-29
           5.004_70      1998-Jul-06
           5.004_71      1998-Jul-09
+          5.004_72      1998-Jul-12
+          5.004_73      1998-Jul-13
 
 =head2 SELECTED RELEASE SIZES
 
diff --git a/t/op/array.t b/t/op/array.t
index 0fd6952ffe..8dea44de3f 100755
--- a/t/op/array.t
+++ b/t/op/array.t
@@ -2,6 +2,10 @@
 
 print "1..63\n";
 
+#
+# @foo, @bar, and @ary are also used from tie-stdarray after tie-ing them
+#
+
 @ary = (1,2,3,4,5);
 if (join('',@ary) eq '12345') {print "ok 1\n";} else {print "not ok 1\n";}
 
@@ -143,59 +147,62 @@ t("@foo" eq "foo bar");
 t("@bar" eq "foo bar");						# 43
 
 # try the same with local
-@foo = ( 'foo', 'bar', 'burbl', 'blah');
+# XXX tie-stdarray fails the tests involving local, so we use
+# different variable names to escape the 'tie'
+
+@bee = ( 'foo', 'bar', 'burbl', 'blah');
 {
 
-    local @foo = @foo;
-    t("@foo" eq "foo bar burbl blah");				# 44
+    local @bee = @bee;
+    t("@bee" eq "foo bar burbl blah");				# 44
     {
-	local (undef,@foo) = @foo;
-	t("@foo" eq "bar burbl blah");				# 45
+	local (undef,@bee) = @bee;
+	t("@bee" eq "bar burbl blah");				# 45
 	{
-	    local @foo = ('XXX',@foo,'YYY');
-	    t("@foo" eq "XXX bar burbl blah YYY");		# 46
+	    local @bee = ('XXX',@bee,'YYY');
+	    t("@bee" eq "XXX bar burbl blah YYY");		# 46
 	    {
-		local @foo = local(@foo) = qw(foo bar burbl blah);
-		t("@foo" eq "foo bar burbl blah");		# 47
+		local @bee = local(@bee) = qw(foo bar burbl blah);
+		t("@bee" eq "foo bar burbl blah");		# 47
 		{
-		    local (@bar) = local(@foo) = qw(foo bar);
-		    t("@foo" eq "foo bar");			# 48
-		    t("@bar" eq "foo bar");			# 49
+		    local (@bim) = local(@bee) = qw(foo bar);
+		    t("@bee" eq "foo bar");			# 48
+		    t("@bim" eq "foo bar");			# 49
 		}
-		t("@foo" eq "foo bar burbl blah");		# 50
+		t("@bee" eq "foo bar burbl blah");		# 50
 	    }
-	    t("@foo" eq "XXX bar burbl blah YYY");		# 51
+	    t("@bee" eq "XXX bar burbl blah YYY");		# 51
 	}
-	t("@foo" eq "bar burbl blah");				# 52
+	t("@bee" eq "bar burbl blah");				# 52
     }
-    t("@foo" eq "foo bar burbl blah");				# 53
+    t("@bee" eq "foo bar burbl blah");				# 53
 }
 
 # try the same with my
 {
 
-    my @foo = @foo;
-    t("@foo" eq "foo bar burbl blah");				# 54
+    my @bee = @bee;
+    t("@bee" eq "foo bar burbl blah");				# 54
     {
-	my (undef,@foo) = @foo;
-	t("@foo" eq "bar burbl blah");				# 55
+	my (undef,@bee) = @bee;
+	t("@bee" eq "bar burbl blah");				# 55
 	{
-	    my @foo = ('XXX',@foo,'YYY');
-	    t("@foo" eq "XXX bar burbl blah YYY");		# 56
+	    my @bee = ('XXX',@bee,'YYY');
+	    t("@bee" eq "XXX bar burbl blah YYY");		# 56
 	    {
-		my @foo = my @foo = qw(foo bar burbl blah);
-		t("@foo" eq "foo bar burbl blah");		# 57
+		my @bee = my @bee = qw(foo bar burbl blah);
+		t("@bee" eq "foo bar burbl blah");		# 57
 		{
-		    my (@bar) = my(@foo) = qw(foo bar);
-		    t("@foo" eq "foo bar");			# 58
-		    t("@bar" eq "foo bar");			# 59
+		    my (@bim) = my(@bee) = qw(foo bar);
+		    t("@bee" eq "foo bar");			# 58
+		    t("@bim" eq "foo bar");			# 59
 		}
-		t("@foo" eq "foo bar burbl blah");		# 60
+		t("@bee" eq "foo bar burbl blah");		# 60
 	    }
-	    t("@foo" eq "XXX bar burbl blah YYY");		# 61
+	    t("@bee" eq "XXX bar burbl blah YYY");		# 61
 	}
-	t("@foo" eq "bar burbl blah");				# 62
+	t("@bee" eq "bar burbl blah");				# 62
     }
-    t("@foo" eq "foo bar burbl blah");				# 63
+    t("@bee" eq "foo bar burbl blah");				# 63
 }
 
diff --git a/win32/Makefile b/win32/Makefile
index f0d4c69fab..23a8b8811d 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.00472
+INST_VER	= \5.00473
 
 #
 # uncomment to enable threads-capabilities
@@ -67,7 +67,7 @@ INST_VER	= \5.00472
 #
 # if you have the source for des_fcrypt(), uncomment this and make sure the
 # file exists (see README.win32).  File should be located in the same
-# directory as this file.
+# directory as this file.  Not (yet) supported with PERL_OBJECT.
 #
 #CRYPT_SRC	= des_fcrypt.c
 
diff --git a/win32/config_H.bc b/win32/config_H.bc
index 0cf173f085..8edaf2f51c 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.00472\\bin\\MSWin32-x86"	/**/
-#define BIN_EXP "c:\\perl\\5.00472\\bin\\MSWin32-x86"	/**/
+#define BIN "c:\\perl\\5.00473\\bin\\MSWin32-x86"	/**/
+#define BIN_EXP "c:\\perl\\5.00473\\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.00472\\lib\\MSWin32-x86"		/**/
+#define ARCHLIB "c:\\perl\\5.00473\\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.00472\\lib"		/**/
-#define PRIVLIB_EXP (win32_get_privlib("5.00472"))	/**/
+#define PRIVLIB "c:\\perl\\5.00473\\lib"		/**/
+#define PRIVLIB_EXP (win32_get_privlib("5.00473"))	/**/
 
 /* 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.00472\\lib\\MSWin32-x86"		/**/
+#define SITEARCH "c:\\perl\\site\\5.00473\\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.00472\\lib"		/**/
-#define SITELIB_EXP (win32_get_sitelib("5.00472"))	/**/
+#define SITELIB "c:\\perl\\site\\5.00473\\lib"		/**/
+#define SITELIB_EXP (win32_get_sitelib("5.00473"))	/**/
 
 /* 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 e6d3648537..7be147192a 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.00472\\bin\\MSWin32-x86"	/**/
-#define BIN_EXP "c:\\perl\\5.00472\\bin\\MSWin32-x86"	/**/
+#define BIN "c:\\perl\\5.00473\\bin\\MSWin32-x86"	/**/
+#define BIN_EXP "c:\\perl\\5.00473\\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.00472\\lib\\MSWin32-x86"		/**/
+#define ARCHLIB "c:\\perl\\5.00473\\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.00472\\lib"		/**/
-#define PRIVLIB_EXP (win32_get_privlib("5.00472"))	/**/
+#define PRIVLIB "c:\\perl\\5.00473\\lib"		/**/
+#define PRIVLIB_EXP (win32_get_privlib("5.00473"))	/**/
 
 /* 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.00472\\lib\\MSWin32-x86"		/**/
+#define SITEARCH "c:\\perl\\site\\5.00473\\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.00472\\lib"		/**/
-#define SITELIB_EXP (win32_get_sitelib("5.00472"))	/**/
+#define SITELIB "c:\\perl\\site\\5.00473\\lib"		/**/
+#define SITELIB_EXP (win32_get_sitelib("5.00473"))	/**/
 
 /* 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 5ea487b42a..0ffcd7614b 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.00472\\bin\\MSWin32-x86"	/**/
-#define BIN_EXP "c:\\perl\\5.00472\\bin\\MSWin32-x86"	/**/
+#define BIN "c:\\perl\\5.00473\\bin\\MSWin32-x86"	/**/
+#define BIN_EXP "c:\\perl\\5.00473\\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.00472\\lib\\MSWin32-x86"		/**/
+#define ARCHLIB "c:\\perl\\5.00473\\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.00472\\lib"		/**/
-#define PRIVLIB_EXP (win32_get_privlib("5.00472"))	/**/
+#define PRIVLIB "c:\\perl\\5.00473\\lib"		/**/
+#define PRIVLIB_EXP (win32_get_privlib("5.00473"))	/**/
 
 /* 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.00472\\lib\\MSWin32-x86"		/**/
+#define SITEARCH "c:\\perl\\site\\5.00473\\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.00472\\lib"		/**/
-#define SITELIB_EXP (win32_get_sitelib("5.00472"))	/**/
+#define SITELIB "c:\\perl\\site\\5.00473\\lib"		/**/
+#define SITELIB_EXP (win32_get_sitelib("5.00473"))	/**/
 
 /* STARTPERL:
  *	This variable contains the string to put in front of a perl
diff --git a/win32/makefile.mk b/win32/makefile.mk
index 27dc1d347a..04cc02055f 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.00472
+INST_VER	*= \5.00473
 
 #
 # uncomment to enable threads-capabilities
@@ -75,7 +75,7 @@ CCTYPE		*= BORLAND
 #
 # if you have the source for des_fcrypt(), uncomment this and make sure the
 # file exists (see README.win32).  File should be located in the same
-# directory as this file.
+# directory as this file.  Not (yet) supported with PERL_OBJECT.
 #
 #CRYPT_SRC	*= des_fcrypt.c