This is my patch patch.1n for perl5.001.perl-5.001n

To apply, change to your perl directory, run the command above, then
apply with
    patch -p1 -N  < thispatch.


This is a consolidation patch.  It contains many of the most commonly
applied or agreed-to patches that have been circulating since
patch.1m.

It also changes the 'unofficial patchlevel' in perl.c.

There are some problems (see items marked with '***').
I will attempt to address those in a patch.1o in a few days.

This patch contains the following packages:

    My Jumbo Configure patch vs. 1m, with subsequent patches 1, 2, and 3.
    Mainly, this provides easier use of local libraries, documents
    the installation process in a new INSTALL file, moves important
    questions towards the beginning, and improves detection of 
    signal names (mostly for Linux).

    xsubpp-1.922.

    Patches from Larry:

	eval "1" memory leak patch (as modified by GSAR to apply to 5.001m).

	NETaa14551 Infinite loop in formats,

	NETaa13729 scope.c patch (fixed problems on AIX and others) 

	NETaa14138 "substr() & s///"  (pp_hot.c)

    Patches from ftp.perl.com:

	ftp://ftp.perl.com/pub/perl/src/patches/closure-bug.patch,
	version of 20 Sep 1995
	Includes fix for NETaa14347 (32k limit in regex), and other
	fixes.

	ftp://ftp.perl.com/pub/perl/src/patches/debugger.patch,
	version of 27 Aug 1995
	
	ftp://ftp.perl.com/pub/perl/src/patches/glob-undef.patch,
	version of 4 Sep 1995
	NETaa14421 $_ doesn't undef

	ftp://ftp.perl.com/pub/perl/src/patches/op-segfault.patch,
	version of 21 Aug 1995
	
	ftp://ftp.perl.com/pub/perl/src/patches/warn-ref-hash-key.patch,
	version of 5 Jun 1995

    Tim Bunce's Jumbo DynaLoader patch for Perl5.001m, which is
    NETaa14636 Jumbo DynaLoader patch for Perl5.001m, and
    Additional patch for NETaa14636 Jumbo DynaLoader patch for Perl5.001m
    version of 09 Oct 1995.
    ***This needs some additional parentheses.***

    MakeMaker-5.00.  Supercedes  NETaa13540 (VMS MakeMaker patches).
    (Updates minimod.PL as well.)
    ***This has a couple of minor problems.
    pod2man is run even if it isn't available.
    LD_RUN_PATH gets set to some mysterious values.***

    NETaa14657 Paul Marquess	Net::Ping patch.  I've included
    Net-Ping-1.00.

    NETaa14661  Dean Roehrich     DProf.  Installed as ext/Devel/DProf.
    Configure should pick this up automatically.  (5 Apr 1995
    version.)

    NETaa13742 Jack Shirazi Socket in 5.001.  I've also included
    his socket.t test in t/lib/socket.t.

    c2ph-1.7.

    Dean's perlapi patches of Oct 12, 1995, which superceded those
    of Oct 8, 1995.  This is the one that did  
	mv perlapi.pid perlxs.pod.

    NETaa14310 Tim Bunce A trivial patch for configpm (handy for shell scripts)

    DB_File-1.0 patch from Paul Marquess (pmarquess@bfsec.bt.co.uk)
    last modified 7th October 1995
    version 1.0

    Added or updated the following hints files:
	hints/hpux.sh
	hints/ncr_tower.sh
	hints/netbsd.sh
	hints/ultrix.sh

Patch and enjoy.

    Andy Dougherty		doughera@lafcol.lafayette.edu
    Dept. of Physics
    Lafayette College, Easton PA 18042

1 files changed, 103 insertions, 25 deletions

diff --git a/lib/ExtUtils/Manifest.pm b/lib/ExtUtils/Manifest.pm
index a76006e321..027ead5e1b 100644
--- a/lib/ExtUtils/Manifest.pm
+++ b/lib/ExtUtils/Manifest.pm
@@ -18,7 +18,7 @@ C<ExtUtils::Manifest::fullcheck;>
 
 C<ExtUtils::Manifest::maniread($file);>
 
-C<ExtUtils::Manifest::manicopy($read,$target);>
+C<ExtUtils::Manifest::manicopy($read,$target,$how);>
 
 =head1 DESCRIPTION
 
@@ -49,11 +49,13 @@ Maniread($file) reads a named C<MANIFEST> file (defaults to
 C<MANIFEST> in the current directory) and returns a HASH reference
 with files being the keys and comments being the values of the HASH.
 
-I<Manicopy($read,$target)> copies the files that are the keys in the
-HASH I<%$read> to the named target directory. The HASH reference
+I<Manicopy($read,$target,$how)> copies the files that are the keys in
+the HASH I<%$read> to the named target directory. The HASH reference
 I<$read> is typically returned by the maniread() function. This
 function is useful for producing a directory tree identical to the
-intended distribution tree.
+intended distribution tree. The third parameter $how can be used to
+specify a different system call to do the copying (eg. C<ln> instead
+of C<cp>, which is the default).
 
 =head1 MANIFEST.SKIP
 
@@ -80,20 +82,24 @@ C<&maniread>, and C<&manicopy> are exportable.
 All diagnostic output is sent to C<STDERR>.
 
 =over
-    
+
 =item C<Not in MANIFEST:> I<file>
+
 is reported if a file is found, that is missing in the C<MANIFEST>
 file which is excluded by a regular expression in the file
 C<MANIFEST.SKIP>.
 
 =item C<No such file:> I<file>
+
 is reported if a file mentioned in a C<MANIFEST> file does not
 exist.
 
 =item C<MANIFEST:> I<$!>
+
 is reported if C<MANIFEST> could not be opened.
 
 =item C<Added to MANIFEST:> I<file>
+
 is reported by mkmanifest() if $Verbose is set and a file is added
 to MANIFEST. $Verbose is set to 1 by default.
 
@@ -108,15 +114,17 @@ Andreas Koenig F<E<lt>koenig@franz.ww.TU-Berlin.DEE<gt>>
 require Exporter;
 @ISA=('Exporter');
 @EXPORT_OK = ('mkmanifest', 'manicheck', 'fullcheck', 'filecheck', 
-	      'maniread', 'manicopy');
+	      'skipcheck', 'maniread', 'manicopy');
 
+use Config;
 use File::Find;
 use Carp;
 
 $Debug = 0;
 $Verbose = 1;
+$Is_VMS = $Config{'osname'} eq 'VMS';
 
-($Version) = sprintf("%d.%02d", q$Revision: 1.4 $ =~ /(\d+)\.(\d+)/);
+($Version) = sprintf("%d.%02d", q$Revision: 1.11 $ =~ /(\d+)\.(\d+)/);
 $Version = $Version; #avoid warning
 
 $Quiet = 0;
@@ -137,19 +145,22 @@ sub mkmanifest {
 	if ($Verbose){
 	    warn "Added to MANIFEST: $file\n" unless exists $read->{$file};
 	}
+	my $text = $all{$file};
+	($file,$text) = split(/\s+/,$text,2) if $Is_VMS;
 	my $tabs = (5 - (length($file)+1)/8);
 	$tabs = 1 if $tabs < 1;
-	$tabs = 0 unless $all{$file};
-	print M $file, "\t" x $tabs, $all{$file}, "\n";
+	$tabs = 0 unless $text;
+	print M $file, "\t" x $tabs, $text, "\n";
     }
     close M;
 }
 
 sub manifind {
     local $found = {};
-    find(sub {return if -d $_;
+    find(sub {return if -d $File::Find::name;
 	      (my $name = $File::Find::name) =~ s|./||;
 	      warn "Debug: diskfile $name\n" if $Debug;
+	      $name  =~ s#(.*)\.$#\L$1# if $Is_VMS;
 	      $found->{$name} = "";}, ".");
     $found;
 }
@@ -166,6 +177,10 @@ sub filecheck {
     return @{(_manicheck(2))[1]};
 }
 
+sub skipcheck {
+    _manicheck(6);
+}
+
 sub _manicheck {
     my($arg) = @_;
     my $read = maniread();
@@ -176,8 +191,8 @@ sub _manicheck {
 	foreach $file (sort keys %$read){
 	    warn "Debug: manicheck checking from MANIFEST $file\n" if $Debug;
 	    unless ( exists $found->{$file} ) {
-	      warn "No such file: $file\n" unless $Quiet;
-	      push @missfile, $file;
+		warn "No such file: $file\n" unless $Quiet;
+		push @missfile, $file;
 	    }
 	}
     }
@@ -185,12 +200,16 @@ sub _manicheck {
 	$read ||= {};
 	my $matches = _maniskip();
 	my $found = manifind();
+	my $skipwarn = $arg & 4;
 	foreach $file (sort keys %$found){
-	    next if &$matches($file);
+	    if (&$matches($file)){
+		warn "Skipping $file\n" if $skipwarn;
+		next;
+	    }
 	    warn "Debug: manicheck checking from disk $file\n" if $Debug;
 	    unless ( exists $read->{$file} ) {
-	      warn "Not in MANIFEST: $file\n" unless $Quiet;
-	      push @missentry, $file;
+		warn "Not in MANIFEST: $file\n" unless $Quiet;
+		push @missentry, $file;
 	    }
 	}
     }
@@ -208,7 +227,8 @@ sub maniread {
     }
     while (<M>){
 	chomp;
-	/^(\S+)\s*(.*)/ and $read->{$1}=$2;
+	if ($Is_VMS) { /^(\S+)/ and $read->{"\L$1"}=$_; }
+	else         { /^(\S+)\s*(.*)/ and $read->{$1}=$2; }
     }
     close M;
     $read;
@@ -229,9 +249,10 @@ sub _maniskip {
 	push @skip, $_;
     }
     close M;
+    my $opts = $Is_VMS ? 'oi ' : 'o ';
     my $sub = "\$matches = "
 	. "sub { my(\$arg)=\@_; return 1 if "
-	. join (" || ",  (map {s!/!\\/!g; "\$arg =~ m/$_/o "} @skip), 0)
+	. join (" || ",  (map {s!/!\\/!g; "\$arg =~ m/$_/$opts"} @skip), 0)
 	. " }";
     eval $sub;
     print "Debug: $sub\n" if $Debug;
@@ -239,26 +260,83 @@ sub _maniskip {
 }
 
 sub manicopy {
-    my($read,$target)=@_;
+    my($read,$target,$how)=@_;
     croak "manicopy() called without target argument" unless defined $target;
+    $how = 'cp' unless defined $how && $how;
     require File::Path;
     require File::Basename;
     my(%dirs,$file);
+    $target = VMS::Filespec::unixify($target) if $Is_VMS;
+    umask 0;
     foreach $file (keys %$read){
+	$file = VMS::Filespec::unixify($file) if $Is_VMS;
 	my $dir = File::Basename::dirname($file);
-	File::Path::mkpath("$target/$dir");
-	cp_if_diff($file, "$target/$file");
+	File::Path::mkpath(["$target/$dir"],1,0755);
+	if ($Is_VMS) { vms_cp_if_diff($file,"$target/$file"); }
+	else         { cp_if_diff($file, "$target/$file", $how); }
     }
 }
 
 sub cp_if_diff {
-    my($from,$to)=@_;
+    my($from,$to, $how)=@_;
     -f $from || carp "$0: $from not found";
-    system "cmp", "-s", $from, $to;
-    if ($?) {
-	unlink($to);   # In case we don't have write permissions.
-	(system 'cp', $from, $to) == 0 or confess "system 'cp': $!";
+    my($diff) = 0;
+    local(*F,*T);
+    open(F,$from) or croak "Can't read $from: $!\n";
+    if (open(T,$to)) {
+	while (<F>) { $diff++,last if $_ ne <T>; }
+	$diff++ unless eof(T);
+	close T;
+    }
+    else { $diff++; }
+    close F;
+    if ($diff) {
+	if (-e $to) {
+	    unlink($to) or confess "unlink $to: $!";
+	}
+	&$how($from, $to);
+    }
+}
+
+# Do the comparisons here rather than spawning off another process
+sub vms_cp_if_diff {
+    my($from,$to) = @_;
+    my($diff) = 0;
+    local(*F,*T);
+    open(F,$from) or croak "Can't read $from: $!\n";
+    if (open(T,$to)) {
+	while (<F>) { $diff++,last if $_ ne <T>; }
+	$diff++ unless eof(T);
+	close T;
+    }
+    else { $diff++; }
+    close F;
+    if ($diff) {
+	system('copy',vmsify($from),vmsify($to)) & 1
+	    or confess "Copy failed: $!";
     }
 }
 
+sub cp {
+    my ($srcFile, $dstFile) = @_;
+    my $buf;
+    open (IN,"<$srcFile") or die "Can't open input $srcFile: $!\n";
+    open (OUT,">$dstFile") or die "Can't open output $dstFile: $!\n";
+    my ($perm,$access,$mod) = (stat IN)[2,8,9];
+    syswrite(OUT, $buf, $len) while $len = sysread(IN, $buf, 8192);
+    close IN;
+    close OUT;
+    utime $access, $mod, $dstFile;
+    # chmod a+rX-w,go-w
+    chmod(  0444 | ( $perm & 0111 ? 0111 : 0 ),  $dstFile );
+}
+
+sub ln {
+    my ($srcFile, $dstFile) = @_;
+    link($srcFile, $dstFile);
+    local($_) = $dstFile; # chmod a+r,go-w+X (except "X" only applies to u=x)
+    my $mode= 0444 | (stat)[2] & 0700;
+    chmod(  $mode | ( $mode & 0100 ? 0111 : 0 ),  $_  );
+}
+
 1;