From: Gurusamy Sarathy Date: Mon, 13 Jul 1998 04:41:07 +0000 (+0000) Subject: up patchlevel to 73, update Changes &c. X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=05fc92f103e6b2c614e47ffd2b374aa5fcc8327a;p=p5sagit%2Fp5-mst-13.2.git up patchlevel to 73, update Changes &c. p4raw-id: //depot/perl@1464 --- diff --git a/Changes b/Changes index 80eca35..594300f 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 + 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 + 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 + 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 + 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: + 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 a1c4cdf..7e86b50 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 e028fa6..7938a99 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 0fd6952..8dea44d 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 f0d4c69..23a8b88 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 0cf173f..8edaf2f 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 e6d3648..7be1471 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 5ea487b..0ffcd76 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 27dc1d3..04cc020 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