diff options
| author | Andy Dougherty <doughera.lafayette.edu> | 1995-12-02 02:58:02 +0000 |
|---|---|---|
| committer | Andy Dougherty <doughera.lafayette.edu> | 1995-12-02 02:58:02 +0000 |
| commit | 864a5fa82f3880839549be048858ea56b16abc8d (patch) | |
| tree | f50f7087522db8e0177e38aeb9dd02fcd04005a1 /lib/ExtUtils/Manifest.pm | |
| parent | 382b8d976294e2f8b1ced0b3776a3fb280b0ecd4 (diff) | |
| download | perl-864a5fa82f3880839549be048858ea56b16abc8d.tar.gz | |
MakeMaker-5.10
Upgrade to MakeMaker-5.10
and a revised minimod.PL that now writes a pod section into ExtUtils::Miniperl.
Diffstat (limited to 'lib/ExtUtils/Manifest.pm')
| -rw-r--r-- | lib/ExtUtils/Manifest.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lib/ExtUtils/Manifest.pm b/lib/ExtUtils/Manifest.pm index d19b332c7a..d2da929d84 100644 --- a/lib/ExtUtils/Manifest.pm +++ b/lib/ExtUtils/Manifest.pm @@ -136,7 +136,7 @@ $Debug = 0; $Verbose = 1; $Is_VMS = $Config{'osname'} eq 'VMS'; -$VERSION = $VERSION = substr(q$Revision: 1.15 $,10,4); +$VERSION = $VERSION = substr(q$Revision: 1.16 $,10,4); $Quiet = 0; @@ -144,13 +144,13 @@ sub mkmanifest { my $manimiss = 0; my $read = maniread() or $manimiss++; $read = {} if $manimiss; + local *M; + rename "MANIFEST", "MANIFEST.bak" unless $manimiss; + open M, ">MANIFEST" or die "Could not open MANIFEST: $!"; my $matches = _maniskip(); my $found = manifind(); my($key,$val,$file,%all); my %all = (%$found, %$read); - local *M; - rename "MANIFEST", "MANIFEST.bak" unless $manimiss; - open M, ">MANIFEST" or die "Could not open MANIFEST: $!"; foreach $file (sort keys %all) { next if &$matches($file); if ($Verbose){ |