----------------
-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
----------------
____________________________________________________________________________
#ifndef __PATCHLEVEL_H_INCLUDED__
#define PATCHLEVEL 4
-#define SUBVERSION 72
+#define SUBVERSION 73
/*
local_patches -- list of locally applied less-than-subversion patches.
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
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";}
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
}
# 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
#
# 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
* 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
* 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
* 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
# 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
#
# 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
projects / p5sagit/p5-mst-13.2.git / commitdiff