[inseparable changes from changes to perl-5.004_01-mt2]

 BUILD PROCESS

Subject: [PATCH] INSTALL-1.18
From: Andy Dougherty <doughera@fractal.phys.lafayette.edu>
Files: INSTALL
Msg-ID: Pine.SOL.3.95q.970529142739.662D-100000@fractal.lafayette.edu

    (applied based on p5p patch as commit 0dcb58f4e9dab7110393871db954eb94cbf90dd0)

Subject: improved gnuwin32 Configure support
From: Chris Faylor <cgf@bbc.com>
Files: Configure

    private-msgid: 199706070318.XAA09214@hardy.bbc.com

Subject: installhtml problems finding splitpod
From: Larry W. Virden <lvirden@cas.org>
Files: installhtml INSTALL

Subject: oddity in Configure
From: Mike Stok <mike@stok.co.uk>
Files: Configure

Subject: Compiling perl5.004 on NEWS-OS 4.x
From: Makoto MATSUSHITA (=?ISO-2022-JP?B?GyRCJF4kRCQ3JD8kXiQzJEgbKEI=?=) <matusita@ics.es.osaka-u.ac.jp>
Files: Configure hints/newsos4.sh
Msg-ID: 19970521132814F.matusita@ics.es.osaka-u.ac.jp

    (applied based on p5p patch as commit 4e81affe051125c1f0c81f7d518efaa52584a56d)

 CORE LANGUAGE

Subject: first true value returned by scalar C<...> is wrong
From: Hans Mulder <hansm@euronet.nl>
Files: pp_ctl.c t/op/flip.t

Subject: Regex Bug in 5.003_26 thru 003_99a
From: Andreas Karrer <karrer@ife.ee.ethz.ch>
Files: regcomp.h regcomp.c regexec.c
Msg-ID: 199705161915.PAA18721@rio.atlantic.net

    (applied based on p5p patch as commit c8756f30ff24381844a7b05f062074a87dc23910)

Subject: -w interacts badly with -Dt
From: Spider Boardman <spider@Orb.Nashua.NH.US>
Files: sv.c

Subject: No DESTROY on untie. Tie memory leak fixed.
From: Gurusamy Sarathy <gsar@engin.umich.edu>
Files: pp_hot.c
Msg-ID: 199705172156.RAA20561@aatma.engin.umich.edu

    (applied based on p5p patch as commit 5117ca915f2c72e17e52c313797ad394bd76c418)

Subject: magic_clear_all_env proto should match svt_clear
From: Nick Ing-Simmons <nik@tiuk.ti.com>
Files: proto.h mg.c

Subject: ENV leaks on win32 (was Re: Comments on ENV patch sought)
From: Hans Mulder <hansm@euronet.nl>
Files: embed.h perl.h proto.h global.sym mg.c t/op/magic.t
Msg-ID: 199705292240.AAA01135@mail.euronet.nl

    (applied based on p5p patch as commit 66b1d5575fd5eb6242bac2e9a08b163be8b1b960)

Subject: Patch to show @INC when require dies
From: Jim Avera <avera@hal.com>
Files: pp_ctl.c
Msg-ID: 9705230121.AA27872@membrane.hal.com

    (applied based on p5p patch as commit 2683423cd7aae39c7c67a005320f39d6e84a2f1f)

Subject: bug with m// nested inside s///e
From: Hans Mulder <hansm@euro.net>
Files: op.c t/op/subst.t

 DOCUMENTATION

Subject: perlembed Win32 update
From: Doug MacEachern <dougm@opengroup.org>
Files: pod/perlembed.pod

Subject: perldiag.pod patch - "(W) substr outside string" is "(S)evere" if used as lvalue.
From: John Hughes <john@AtlanTech.COM>
Files: pod/perldiag.pod

Subject: local(%ENV) looses magic - document behaviour
From: Gurusamy Sarathy <gsar@engin.umich.edu>
Files: pod/perlsub.pod

Subject: perlguts caveats
From: Gurusamy Sarathy <gsar@engin.umich.edu>
Files: pod/perlguts.pod
Msg-ID: 199705180052.UAA22066@aatma.engin.umich.edu,
	199705180202.WAA22826@aatma.engin.umich.edu,
Msg-IDs: 1997May17.235722.2033087@hmivax.humgen.upenn.edu,
	 199705301341.JAA05204@aatma.engin.umich.edu

    (applied based on p5p patch as commits:
      04343c6db20ad44e9b9b5531ea62e7099311ed51
      6e2bfd7f4281bd19f5eefda1f130d62ef05c8ead
      9edb2b4665db2ce663d9133a47065be4582a8114)

Subject: pod2man produces broken pages
From: Davin Milun <milun@cs.Buffalo.EDU>
Files: pod/pod2man.PL
Msg-ID: 199705310447.AAA15721@obelix.cs.Buffalo.EDU
Msg-ID: 1997May25.192350.2055977@hmivax.humgen.upenn.edu

    (applied based on p5p patch as commits:
      3ad491548632328bb8df33165fefb8d5b9b7b7a9
      ca023ceb228b064c65630ce565435e433344bfd5)

Subject: Perl 5 pod2man fix
From: Franklin Chen <chen@adi.com>
Files: pod/pod2man.PL

    Subject: perlguts man page corrupted
    
    perlguts.1 has garbled headings, e.g., the following is a result of
    "man perlguts":
    
    ===
         What is an
    
         Perl uses a special typedef IV which is a simple integer
         type that is guaranteed to be large enough to hold a pointer
         (as well as an integer).
    ===
    
    p5p-msgid: 199705210013.UAA09599@menhaden.adi.com

Subject: reference form chomp to chop in perlfunc
From: Hans Mulder <hansm@euronet.nl>
Files: pod/perlfunc.pod

Subject: pod2man gags if "=pod" is before "=head1 NAME"
From: Warren Hyde <whyde@pezz.sps.mot.com>
Files: pod/pod2man.PL
Msg-ID: 9705212115.AA21730@pezz.sps.mot.com

    (applied based on p5p patch as commit a8aaa22cf27ba31be005a4b638b78d4105203ee9)

Subject: perlfunc.pod unclear about return value range of rand
From: "Tuomas J. Lukka" <tjl@lukka.student.harvard.edu>
Files: pod/perlfunc.pod

    Subject: Re: Array feature request 
    
    Tom Phoenix writes:
    >On Fri, 16 May 1997, Tuomas J. Lukka wrote:
    >
    >> To detract further, the perlfunc.pod says
    >> 
    >> 	"returns a random fractional number between 0 and EXPR".
    >> 
    >> Does that mean inclusive or exclusive i.e. do I run a risk of one
    >> in a billion receiving an undef one past the array limit and growing
    >> the array? If yes or if not, should that be mentioned?
    >
    >           0  <=  rand(EXPR)  <  EXPR
    >
    >Hope this helps!
    
    Yes, this behaviour is expected but it is definitely not documented
    in the pods. 
    
    p5p-msgid: m0wSMiC-000C9xC@lukka.student.harvard.edu

Subject: Error in perllol manpage
From: Chris Wick <cwick@lmc.com>
Files: pod/perllol.pod

Subject: 5.004 removed deprecated %OVERLOAD support silently
From: Jonathan Biggar <jon@sems.com>
Files: pod/perldelta.pod

    This is a bug report for perl from jon@sems.com,
    generated with the help of perlbug 1.17 running under perl 5.004.
    
    p5p-msgid: 199705232319.QAA28388@clamp.netlabs.com

Subject: Documentation bugs
From: Stephen Potter <spp@psa.pencom.com>
Files: pod/perldata.pod pod/perldiag.pod pod/perlfaq8.pod pod/perlfaq9.pod pod/perlop.pod pod/perlsub.pod pod/perltoot.pod

Subject: make html --> unusable xref links
From: "Darren/Torin/Who Ever..." <torin@daft.com>
Files: INSTALL pod/perldiag.pod installhtml

    Jim Avera writes:
     > By default (without editing the Makefile) the resulting .html files
     > are useless -- they have broken cross-reference links.
     > 
     > If you set HTMLROOT=. in pod/Makefile, then cross-references
     > say .//pod/... which does not work either.  
     > Setting HTMLROOT to an absolute path doesn't work either (the
     > spurrious /pod/ is always there).
    
     [seconded]
    
    p5p-msgid: 199705162008.XAA06906@alpha.hut.fi

Subject: pod/*.html -- all hyperlinks are invalid
From: "Darren/Torin/Who Ever..." <torin@daft.com>
Files: INSTALL pod/perldiag.pod installhtml

    The INSTALL file says:
    
     (cd pod && make html && mv *.html <www home dir>)
    
    But the resulting *.html files have hyperlinks that look like this;
    
     <A HREF="/pod/perlfaq.html">perlfaq</A>
    
    The /pod/ part shouldn't be there.  As a result, all of the hyperlinks are
    invalid (unless, of course, you install the *.html files in /pod/).
    
    [Please do not change anything below this line]
    
    p5p-msgid: 199705171830.OAA15652@erawan.cognex.com

Subject: Re: make html - any takers? 
From: "Darren/Torin/Who Ever..." <torin@daft.com>
Files: INSTALL pod/perldiag.pod installhtml

    On Sat, 07 Jun 1997 02:27:49 -0000, Tim Bunce wrote:
    >My reading of the following is that the best short term fix is for
    >INSTALL to be changed so it no longer suggests 
    >
    >	(cd pod && make html && mv *.html <www home dir>)
    >
    >Comments welcome. Proven portable and tested patches preferred :-)
    
    Win32 uses something similar to the suggested method with
    installhtml, and it seems to work reasonably well.  I'll supply
    a patch if I wander anywhere close to a UNIX box in the
    next 24 hours, and someone else hasn't already done it. :-)
    
    >When I follow the doc in installhtml, I get htmlwhich mostly works.
    >
    >Here's a sample:
    >
    >perl -w /ldata2/gnu/perl5.004/installhtml \
    >	--podpath=lib:ext:pod:vms:win32:plan9:os2:h2pl:x2p:Porting:eg \
    >	--podroot=/ldata2/gnu/perl5.004 \
    >	--htmldir=/projects/sprs_lwv/HTML/perl \
    >	--htmlroot=/projects/sprs_lwv/HTML/perl \
    >	--recurse \
    >	--splithead=pod/perlipc.pod \
    >	--splititem=pod/perlfunc.pod \
    >	--libpods=perlfunc:perlguts:perlvar:perlrun:perlop \
    >	--verbose
    
     - Sarathy.
       gsar@engin.umich.edu
    
    p5p-msgid: 199706081749.NAA04552@aatma.engin.umich.edu

Subject: Re: make html --> unusable xref links
From: "Darren/Torin/Who Ever..." <torin@daft.com>
Files: INSTALL pod/perldiag.pod installhtml

    According to Jarkko Hietaniemi  <jhi@iki.fi>:
    :Jim Avera writes:
    : > If you set HTMLROOT=. in pod/Makefile, then cross-references
    : > say .//pod/... which does not work either.  
    : > Setting HTMLROOT to an absolute path doesn't work either (the
    : > spurrious /pod/ is always there).
    : > 
    : > What is the intent of the current setup (p54rc1)?
    
    When I follow the doc in installhtml, I get htmlwhich mostly works.
    
    Here's a sample:
    
    perl -w /ldata2/gnu/perl5.004/installhtml \
    	--podpath=lib:ext:pod:vms:win32:plan9:os2:h2pl:x2p:Porting:eg \
    	--podroot=/ldata2/gnu/perl5.004 \
    	--htmldir=/projects/sprs_lwv/HTML/perl \
    	--htmlroot=/projects/sprs_lwv/HTML/perl \
    	--recurse \
    	--splithead=pod/perlipc.pod \
    	--splititem=pod/perlfunc.pod \
    	--libpods=perlfunc:perlguts:perlvar:perlrun:perlop \
    	--verbose
    
    p5p-msgid: 1997May16.191039.2033079@hmivax.humgen.upenn.edu

Subject: Re: make html --> unusable xref links
From: "Darren/Torin/Who Ever..." <torin@daft.com>
Files: INSTALL pod/perldiag.pod installhtml

    p5p-msgid: 87hgg2y1h4.fsf@perv.daft.com

Subject: make html --> unusable xref links
From: "Darren/Torin/Who Ever..." <torin@daft.com>
Files: INSTALL pod/perldiag.pod installhtml

    I don't understand how "make html" is intended to be used.
    
    By default (without editing the Makefile) the resulting .html files
    are useless -- they have broken cross-reference links.
    
    If you set HTMLROOT=. in pod/Makefile, then cross-references
    say .//pod/... which does not work either.  
    Setting HTMLROOT to an absolute path doesn't work either (the
    spurrious /pod/ is always there).
    
    What is the intent of the current setup (p54rc1)?
    
    -Jim
    
    p5p-msgid: 9705161931.AA01075@membrane.hal.com

Subject: 5.004 POD stuff
From: "Darren/Torin/Who Ever..." <torin@daft.com>
Files: INSTALL pod/perldiag.pod installhtml
Msg-ID: 9705191839.AA28702@lemming.engeast

    (applied based on p5p patch as commit 1f8d2005982035a50557598064a5e9b1eef2b182)

 LIBRARY AND EXTENSIONS

Subject: sdbm can fail if a config.h exists in system directories
From: Tim Bunce <Tim.Bunce@ig.co.uk>
Files: ext/SDBM_File/sdbm/Makefile.PL

Subject: LWP and SIG __DIE__ traps not playing well together!
From: Gisle Aas <aas@bergen.sn.no>
Files: lib/AutoLoader.pm

Subject: Memory Consumption of autosplit_lib_modules/sv_gets (workaround)
From: Gurusamy Sarathy <gsar@engin.umich.edu>
Files: lib/AutoSplit.pm

Subject: Comments of this Sys::Syslog patch
From: Jarkko Hietaniemi <jhi@iki.fi>
Files: lib/Sys/Syslog.pm

    Subject: clpm: 5.004 Sys::Syslog
    
    Russ Allbery  <rra@stanford.edu> writes:
    >Richard Dows <marius@randomc.com> writes:
    >
    >> I wanted to use Sys::Syslog, and so I tested it with a small script.  I
    >> get an error like so:
    >
    >> Undefined subroutine &Sys::Syslog::hostname called at
    >> /usr/local/lib/perl5/Sys/Syslog.pm line 92.  BEGIN failed--compilation
    >> aborted at stest line 3.
    >
    >This problem is fixed in (the just released) 5.004.
    
    However, 5.004 changed the behavior of Syslog.pm in an icky way.
    
    In 5.003, Syslog called Sys::Hostname to get the name of the
    host, and happily used that as the logging host.
    
    Now, Syslog calls Sys::Hostname to get the name of the host,
    strips off all the domain info, and uses that as the host:
    
    sub connect {
        unless ($host) {
    	require Sys::Hostname;
    	my($host_uniq) = Sys::Hostname::hostname();
    	($host) = $host_uniq =~ /([\w\-]+)/;
        }
    
       ....etc.....
    
    Was this intentional? It screws up systems which use an FQDN as their
    hostname and don't list the stripped-down version in their /etc/hosts
    file, because inet_aton fails on the stripped-down name.
    
    Was /([\w\-\.]+)/ what was meant?
    
    -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
             Alan Schwartz           | Disclaimer: I represent no one
                                     |
    alansz@cogsci.berkeley.edu       | "Life is what happens to you while
    UC Berkeley                      |  you're busy making other plans"
    Cognitive Psychology             |          - J. Lennon
    -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
    
    p5p-msgid: 199705231621.TAA16790@alpha.hut.fi

Subject: Patch to CPAN.pm (perl5.004) for ncftp
From: "Richard L. Maus <rmaus@monmouth.com>
Files: lib/CPAN.pm
Msg-ID: 337FBAC8.167EB0E7@monmouth.com

    (applied based on p5p patch as commit 1f8d2005982035a50557598064a5e9b1eef2b182)
    

Subject: [PATCH] Harness.pm bug w/perl5.004 & VMS
From: Dan Sugalski <sugalsd@lbcc.cc.or.us>
Files: lib/Test/Harness.pm
Msg-ID: 3.0.1.32.19970530102300.008a2730@stargate.lbcc.cc.or.us

    (applied based on p5p patch as commit 2d8ca5da0888ace50c79900af6ef82761bea90b2)

Subject: more Fcntl constants [PATCH]
From: Jarkko Hietaniemi <jhi@iki.fi>
Files: ext/Fcntl/Fcntl.pm ext/Fcntl/Fcntl.xs

 PORTABILITY

Subject: win32: additional default libraries
From: Gurusamy Sarathy <gsar@engin.umich.edu>
Files: lib/ExtUtils/MM_Win32.pm
Msg-ID: 199705291332.JAA21560@aatma.engin.umich.edu

    (full description at 14ba8c9ed9cfdc22434f89b374aaf17cc48fd4a0)
    (base was difficult to find)

Subject: clean up perlocal.pod output on VMS
From: Peter Prymmer <pvhp@forte.com>
Files: lib/ExtUtils/MM_VMS.pm

Subject: Re: Term::ReadKey on Win32: set console
From: Gurusamy Sarathy <gsar@engin.umich.edu>
Files: lib/Term/ReadLine.pm

Subject: Pod::Text nit for Win32
From: Gurusamy Sarathy <gsar@engin.umich.edu>
Files: lib/Pod/Text.pm

Subject: MakeMaker stumbles on Win32 UNC paths
From: Warren Jones <wjones@TC.FLUKE.COM>
Files: lib/ExtUtils/MM_Win32.pm

Subject: build problem on SGI R10000 PowerChallenge (IRIX 6.2) lseek proto
From: Jarkko Hietaniemi <jhi@iki.fi>
Files: doio.c

Subject: Perl 5.004 + Linux 2.0.30 & semctl()
From: Andy Dougherty <doughera@fractal.phys.lafayette.edu>
Files: doio.c

Subject: lib/io_udp.t fails on VMS
From: Jonathan Hudson <Jonathan.Hudson@jrhudson.demon.co.uk>
Files: pp_sys.c
Msg-ID: XFMail.970522181042.Jonathan.Hudson@jrhudson.demon.co.uk

    (applied based on p5p patch as commit 490ab354c465618bcdee84ecc1d256c265518f0a)

Subject: (NEXT|OPEN)STEP hints
From: Gerd Knops <gerti@BITart.com>
Files: hints/next_3.sh hints/next_4.sh

Subject: win32: user defined shell
From: Gurusamy Sarathy <gsar@engin.umich.edu>
Files: pod/perlrun.pod win32/win32.c
Msg-ID: 199705291339.JAA21682@aatma.engin.umich.edu

    (applied based on p5p patch as commit 174c211a66516a872d3a421681076bee9a56fa2b)

Subject: win32: Configure cf_email
From: Gurusamy Sarathy <gsar@engin.umich.edu>
Files: win32/Makefile win32/config.bc win32/config.vc win32/config_sh.PL win32/makefile.mk
Msg-ID: 199705301335.JAA05079@aatma.engin.umich.edu

    (applied based on p5p patch as commit d484a8290f98952e0e3a67e0aae9aa08c631f5c2)

Subject: README.win32 nits
From: Gurusamy Sarathy <gsar@engin.umich.edu>
Files: README.win32

Subject: SVR4 hints for DDE SMES Supermax Enterprise Server
From: Jarkko Hietaniemi <jhi@iki.fi>
Files: hints/svr4.sh

Subject: porting.help
From: Tim Bunce <Tim.Bunce@ig.co.uk>
Files: Porting/pumpkin.pod Porting/preprel

Subject: "Major 5.004 Win32 update (Borland win32 support, and other patches)",
	 "($a,undef,$b) = qw(a b c) and ties delaying DESTROY fixes"
From: Gurusamy Sarathy <gsar@engin.umich.edu>
Files: MANIFEST pod/perlguts.pod win32/include/sys/socket.h EXTERN.h opcode.h perl.h regcomp.h ext/Fcntl/Fcntl.pm ext/SDBM_File/Makefile.PL lib/ExtUtils/Install.pm lib/ExtUtils/MM_Unix.pm lib/ExtUtils/MM_Win32.pm lib/ExtUtils/MakeMaker.pm lib/ExtUtils/Mksymlists.pm lib/File/DosGlob.pm t/op/mkdir.t t/op/stat.t win32/win32.h win32/win32io.h win32/win32iop.h README.win32 doio.c gv.c mg.c op.c perlio.c pp.c pp_ctl.c pp_hot.c pp_sys.c util.c win32/Makefile win32/config.bc win32/config.vc win32/config_H.bc win32/config_H.vc win32/makedef.pl win32/makefile.mk win32/makeperldef.pl win32/perlglob.c win32/perllib.c win32/win32.c win32/win32io.c win32/win32sck.c

Subject: Re: Maintenance release (remove PERL_DUMMY_SIZE)
From: Gurusamy Sarathy <gsar@engin.umich.edu>
Files: opcode.h perl.h regcomp.h win32/win32.h gv.c

Subject: ENV leaks on win32 (was Re: Comments on ENV patch sought)
From: Gurusamy Sarathy <gsar@engin.umich.edu>
Files: win32/win32.h win32/win32io.h win32/win32iop.h global.sym mg.c perl.c t/op/magic.t util.c win32/makedef.pl win32/win32.c win32/win32io.c

Subject: win32: ExtUtils::Liblist support
From: Gurusamy Sarathy <gsar@engin.umich.edu>
Files: lib/ExtUtils/Liblist.pm win32/Makefile win32/config.bc win32/makefile.mk

Subject: Re: borland C++Perl embedding failures re __declspec()
From: Gurusamy Sarathy <gsar@engin.umich.edu>
Files: win32/win32.c

 TESTS

Subject: Tests depend on locale
From: "Jan D." <jan.djarv@mbox200.swipnet.se>
Files: t/lib/safe2.t t/op/mkdir.t
Msg-ID: 199705191230.PAA21070@alpha.hut.fi,
	199705191127.NAA08148@ostrich.gaia.swipnet.se

    (applied based on p5p patch as commit 3458556dd685b1767b760a72bd2e9007b5c4575e)

Subject: More simple regexp tests and test docs
From: Hans Mulder <hansm@euronet.nl>
Files: t/op/re_tests t/op/regexp.t

Subject: Re: Using undef to ignore values returned from split
From: Hugo van der Sanden <hv@crypt.compulink.co.uk>
Files: t/op/split.t

 UTILITIES

Subject: bad test of -A flag in h2xs
From: "Jeffrey S. Haemer" <jsh@woodcock.boulder.qms.com>
Files: utils/h2xs.PL

Subject: h2xs missing from utils/Makefile
From: Hans Mulder <hansm@euronet.nl>
Files: utils/Makefile

Subject: final newline missing in MANIFEST generated by h2xs
From: Hans Mulder <hansm@euronet.nl>
Files: utils/h2xs.PL

2 files changed, 363 insertions, 0 deletions

diff --git a/Porting/makerel b/Porting/makerel
new file mode 100644
index 0000000000..21bac1e378
--- /dev/null
+++ b/Porting/makerel
@@ -0,0 +1,90 @@
+#!/bin/env perl -w
+
+# A first attempt at some automated support for making a perl release.
+# Very basic but functional - if you're on a unix system.
+# You should have at least run preprel before this.
+#
+# No matter how automated this gets, you'll always need to read
+# and re-read pumpkin.pod checking for things to be done at various
+# stages of the process.
+#
+# Tim Bunce, June 1997
+
+use ExtUtils::Manifest qw(fullcheck);
+
+$|=1;
+$relroot = "..";	# XXX make an option
+
+die "Must be in root of the perl source tree.\n"
+	unless -f "./MANIFEST" and -f "patchlevel.h";
+
+$patchlevel_h = `grep '#define ' patchlevel.h`;
+print $patchlevel_h;
+$patchlevel = $1 if $patchlevel_h =~ /PATCHLEVEL\s+(\d+)/;
+$subversion = $1 if $patchlevel_h =~ /SUBVERSION\s+(\d+)/;
+die "Unable to parse patchlevel.h" unless $subversion > 0;
+$vers = sprintf("5.%03d", $patchlevel);
+$vers.= sprintf( "_%02d", $subversion) if $subversion;
+
+$perl = "perl$vers";
+$reldir = "$relroot/$perl";
+
+print "\nMaking a release for $perl in $reldir\n\n";
+
+
+print "Cross-checking the MANIFEST...\n";
+($missfile, $missentry) = fullcheck();
+die "Can't make a release with MANIFEST files missing.\n" if @$missfile;
+die "Can't make a release with files not listed in MANIFEST.\n" if @$missentry;
+print "\n";
+
+
+print "Setting file permissions...\n";
+system("find . -type f -print | xargs chmod -w");
+system("chmod +w configure"); # special case (see pumpkin.pod)
+@exe = qw(
+    Configure
+    configpm
+    configure
+    embed.pl
+    installperl
+    installman
+    keywords.pl
+    myconfig
+    opcode.pl
+    perly.fixer
+    t/TEST
+    t/*/*.t
+    *.SH
+    vms/ext/Stdio/test.pl
+    vms/ext/filespec.t
+    vms/fndvers.com
+    x2p/*.SH
+    Porting/patchls
+    Porting/makerel
+);
+system("chmod +x @exe");
+print "\n";
+
+
+print "Creating $reldir release directory...\n";
+die "$reldir release directory already exists\n"   if -e "../$perl";
+die "$reldir.tar.gz release file already exists\n" if -e "../$perl.tar.gz";
+mkdir($reldir, 0755) or die "mkdir $reldir: $!\n";
+print "\n";
+
+
+print "Copying files to release directory...\n";
+# ExtUtils::Manifest maniread does not preserve the order
+$cmd = "awk '{print \$1}' MANIFEST | cpio -pdm $reldir";
+system($cmd) == 0 or die "$cmd failed";
+print "\n";
+
+chdir $relroot or die $!;
+
+print "Creating and compressing the tar file...\n";
+$cmd = "tar cf - $perl | gzip --best > $perl.tar.gz";
+system($cmd) == 0 or die "$cmd failed";
+print "\n";
+
+system("ls -ld $perl*");
diff --git a/Porting/patchls b/Porting/patchls
new file mode 100644
index 0000000000..e9e902fc48
--- /dev/null
+++ b/Porting/patchls
@@ -0,0 +1,273 @@
+#!/bin/perl -w
+# 
+# Originally from Tom Horsley. Generally hacked and extended by Tim Bunce.
+#
+# Input is one or more patchfiles, output is a list of files to be patched.
+#
+# $Id: patchls,v 1.3 1997/06/10 21:38:45 timbo Exp $
+
+require "getopts.pl";
+
+use Text::Wrap qw(wrap $columns);
+use Text::Tabs qw(expand unexpand);
+use strict;
+
+$columns = 70;
+
+$::opt_p = undef;	# like patch -pN, strip off N dir levels from file names
+$::opt_d = 0;
+$::opt_v = 0;
+$::opt_m = 0;
+$::opt_i = 0;
+$::opt_h = 0;
+$::opt_l = 0;
+$::opt_c = 0;
+
+die qq{
+
+  patchls [options] patchfile [ ... ]
+
+    -m     print formatted Meta-information (Subject,From,Msg-ID etc)
+    -p N   strip N levels of directory Prefix (like patch), else automatic
+    -i     Invert: for each patched file list which patch files patch it
+    -h     no filename headers (like grep), only the listing
+    -l     no listing (like grep), only the filename headers
+    -c     attempt to Categorise the patch (sort by category with -m)
+    -v     more verbose
+    -d     still more verbosity for debugging
+
+} unless @ARGV;
+
+&Getopts("mihlvcp:");
+
+my %ls;
+
+# Style 1:
+#	*** perl-5.004/embed.h  Sat May 10 03:39:32 1997
+#	--- perl-5.004.fixed/embed.h    Thu May 29 19:48:46 1997
+#	***************
+#	*** 308,313 ****
+#	--- 308,314 ----
+#
+# Style 2:
+#	--- perl5.004001/mg.c   Sun Jun 08 12:26:24 1997
+#	+++ perl5.004-bc/mg.c   Sun Jun 08 11:56:08 1997
+#	@@ -656,9 +656,27 @@
+# or (rcs, note the different date format)
+#	--- 1.18	1997/05/23 19:22:04
+#	+++ ./pod/perlembed.pod	1997/06/03 21:41:38
+#
+# Variation:
+#	Index: embed.h
+
+my($in, $prevline, $prevtype, $ls);
+
+foreach my $argv (@ARGV) {
+    $in = $argv;
+    unless (open F, "<$in") {
+	warn "Unable to open $in: $!\n";
+	next;
+    }
+    print "Reading $in...\n" if $::opt_v and @ARGV > 1;
+    $ls = $ls{$in} ||= { in => $in };
+    my $type;
+    while (<F>) {
+	unless (/^([-+*]{3}) / || /^(Index):/) {
+	    # not an interesting patch line but possibly meta-information
+	    next unless $::opt_m;
+	    $ls->{From}{$1}=1       if /^From: (.*\S)/i;
+	    $ls->{Title}{$1}=1      if /^Subject: (?:Re: )?(.*\S)/i;
+	    $ls->{'Msg-ID'}{$1}=1   if /^Message-Id: (.*\S)/i;
+	    $ls->{Date}{$1}=1       if /^Date: (.*\S)/i;
+	    next;
+	}
+	$type = $1;
+	next if /^--- [0-9,]+ ----$/ || /^\*\*\* [0-9,]+ \*\*\*\*$/;
+
+	print "Last: $prevline","This: ${_}Got:  $1\n\n" if $::opt_d;
+
+	# Some patches have Index lines but not diff headers
+	# Patch copes with this, so must we
+	add_file($ls, $1), next if /^Index:\s+(.*)/;
+
+	if (	($type eq '---' and $prevtype eq '***')	# Style 1
+	    or	($type eq '+++' and $prevtype eq '---')	# Style 2
+	) {
+	    if (/^[-+*]{3} (\S+)\s+.*\d\d:\d\d:\d\d/) {	# double check
+		add_file($ls, $1);
+	    }
+	    else {
+		warn "$in $.: parse error (prev $prevtype, type $type)\n$prevline$_";
+	    }
+	}
+    }
+    continue {
+	$prevline = $_;
+	$prevtype = $type;
+	$type = '';
+    }
+    $ls->{Title}{$in}=1 if !$ls->{Title} and $::opt_m and $::opt_c
+				and $ls->{files_by_patch};
+    $ls->{category} = intuit_category($ls, $::opt_v) if $::opt_c;
+}
+print "All files read.\n" if $::opt_v and @ARGV > 1;
+
+unless ($::opt_c and $::opt_m) {
+    foreach $in (sort keys %ls) {
+	$ls = $ls{$in};
+	list_files_by_patch($ls);
+    }
+}
+else {
+    my $c = '';
+    foreach $ls (sort { $a->{category} cmp $b->{category} } values %ls) {
+	print "\n  $ls->{category}\n" if $ls->{category} ne $c;
+	$c = $ls->{category};
+	list_files_by_patch($ls);
+    }
+    print "\n";
+}
+
+
+sub add_file {
+    my $ls = shift;
+    my $out = trim_name(shift);
+    ($ls, $out) = ($ls{$out} ||= { in => $out }, $in) if $::opt_i;
+    $ls->{files_by_patch}->{$out} = 1;
+}
+
+
+sub trim_name {		# reduce/tidy file paths from diff lines
+    my $name = shift;
+    $name = "$name ($in)" if $name eq "/dev/null";
+    if (defined $::opt_p) {
+	# strip on -p levels of directory prefix
+	my $dc = $::opt_p;
+	$name =~ s:^[^/]+/(.+)$:$1: while $dc-- > 0;
+    }
+    else {	# try to strip off leading path to perl directory
+	# if absolute path, strip down to any *perl* directory first
+	$name =~ s:^/.*?perl.*?/::i;
+	$name =~ s:.*perl[-_]?5\.[-_a-z0-9.]+/::i;
+	$name =~ s:^\./::;
+    }
+    return $name;
+}
+
+
+sub list_files_by_patch {
+    my $ls = shift;
+    my $name = $ls->{in};
+    my @meta;
+    if ($::opt_m) {
+	foreach(qw(Title From Msg-ID)) {
+	    next unless $ls->{$_};
+	    my @list = sort keys %{$ls->{$_}};
+	    push @meta, sprintf "%7s:  ", $_;
+	    @list = map { "\"$_\"" } @list if $_ eq 'Title';
+	    push @meta, my_wrap("","          ", join(", ",@list)."\n");
+	}
+	$name = "\n$name" if @meta;
+    }
+    # don't print the header unless the file contains something interesting
+    return if !@meta and !$ls->{files_by_patch};
+    print("$ls->{in}\n"),return  if $::opt_l;	# -l = no listing
+
+	# a twisty maze of little options
+    my $cat = ($ls->{category} and !$::opt_m) ? " $ls->{category}" : "";
+    print "$name$cat: "	unless $::opt_h and !$::opt_v;
+    print join('',"\n",@meta) if @meta;
+
+    my @v = sort PATORDER keys %{ $ls->{files_by_patch} };
+    my $v = "@v\n";
+    print $::opt_m ? "  Files:  ".my_wrap("","          ",$v) : $v;
+}
+
+
+sub my_wrap {
+    return expand(wrap(@_));
+}
+
+
+
+# CORE LANGUAGE CHANGES
+# CORE PORTABILITY
+# OTHER CORE CHANGES
+# BUILD PROCESS
+# LIBRARY AND EXTENSIONS
+# TESTS
+# UTILITIES
+# DOCUMENTATION
+
+sub intuit_category {
+    my($ls, $verb) = @_;
+    return 'OTHER' unless $ls->{files_by_patch};
+    my(%c, $refine);
+    foreach (keys %{ $ls->{files_by_patch} }) {
+	++$c{'DOCUMENTATION'},next
+	    if m:^pod/:;
+	++$c{'UTILITIES'},next
+	    if m:^(utils|x2p|h2pl)/:;
+	++$c{'PORTABILITY'},next
+	    if m:^(cygwin32|os2|plan9|qnx|vms|win32)/:
+	    or m:^(hints|Porting|ext/DynaLoader)/:
+	    or m:^README\.:;
+	++$c{'LIBRARY AND EXTENSIONS'},next
+	    if m:^(lib|ext)/:;
+	++$c{'TESTS'},next
+	    if m:^t/:;
+	++$c{'CORE LANGUAGE'},next
+	    if m:^[^/]+\.([chH]|sym)$:;
+	++$c{'BUILD PROCESS'},next
+	    if m:^[A-Z]+$: or m:^[^/]+\.SH$:
+	    or m:^(install|configure):i;
+	print "Couldn't categorise $_\n" if $::opt_v;
+	++$c{OTHER};
+    }
+refine:
+    ++$refine;
+    my @c = sort { $c{$b} <=> $c{$a} || $a cmp $b } keys %c;
+    my @v = map  { $c{$_} } @c;
+    if (@v > 1 and $refine <= 1 and "@v" =~ /^(\d) \1/
+	    and $c[0] =~ m/^(DOC|TESTS|OTHER)/) {
+	print "Tie, promoting $c[1] over $c[0]\n" if $::opt_d;
+	++$c{$c[1]};
+	goto refine;
+    }
+    print "  ", join(", ", map { "$_: $c{$_}" } @c),".\n"
+	if $verb and @v > 1;
+    return $c[0];
+}
+
+
+sub PATORDER {		# PATORDER sort by Chip Salzenberg
+    my ($i, $j);
+
+    $i = ($a =~ m#^[A-Z]+$#);
+    $j = ($b =~ m#^[A-Z]+$#);
+    return $j - $i if $i != $j;
+
+    $i = ($a =~ m#configure|hint#i) || ($a =~ m#[S_]H$#);
+    $j = ($b =~ m#configure|hint#i) || ($b =~ m#[S_]H$#);
+    return $j - $i if $i != $j;
+
+    $i = ($a =~ m#\.pod$#);
+    $j = ($b =~ m#\.pod$#);
+    return $j - $i if $i != $j;
+
+    $i = ($a =~ m#include/#);
+    $j = ($b =~ m#include/#);
+    return $j - $i if $i != $j;
+
+    if ((($i = $a) =~ s#/+[^/]*$##)
+	&& (($j = $b) =~ s#/+[^/]*$##)) {
+	    return $i cmp $j if $i ne $j;
+    }
+
+    $i = ($a =~ m#\.h$#);
+    $j = ($b =~ m#\.h$#);
+    return $j - $i if $i != $j;
+
+    return $a cmp $b;
+}
+