This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
up patchlevel to 73, update Changes &c.
authorGurusamy Sarathy <gsar@cpan.org>
Mon, 13 Jul 1998 04:41:07 +0000 (04:41 +0000)
committerGurusamy Sarathy <gsar@cpan.org>
Mon, 13 Jul 1998 04:41:07 +0000 (04:41 +0000)
p4raw-id: //depot/perl@1464

Changes
patchlevel.h
pod/perlhist.pod
t/op/array.t
win32/Makefile
win32/config_H.bc
win32/config_H.gc
win32/config_H.vc
win32/makefile.mk

diff --git a/Changes b/Changes
index 80eca35..594300f 100644 (file)
--- 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
 ----------------
 
 ____________________________________________________________________________
index a1c4cdf..7e86b50 100644 (file)
@@ -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.
index e028fa6..7938a99 100644 (file)
@@ -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
 
index 0fd6952..8dea44d 100755 (executable)
@@ -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
 }
 
index f0d4c69..23a8b88 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.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
 
index 0cf173f..8edaf2f 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.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
  *     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:
  *     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.
  *     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:
  *     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
index e6d3648..7be1471 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.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
  *     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:
  *     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.
  *     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:
  *     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
index 5ea487b..0ffcd76 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.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
  *     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:
  *     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.
  *     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:
  *     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
index 27dc1d3..04cc020 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.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