diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2003-08-18 09:30:25 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-08-18 09:30:25 +0000 |
| commit | 84c414ed42d011474357559ee8367ea7f68b8271 (patch) | |
| tree | b54876e594315b6b2111b72dc4577be9c9b8f799 /lib/ExtUtils/Manifest.pm | |
| parent | 4baa34cc5b793ad45d493b8a14af4c038612636a (diff) | |
| download | perl-84c414ed42d011474357559ee8367ea7f68b8271.tar.gz | |
Integrate:
[ 20749]
Subject: [PATCH] Taint safe Cwd::_qnx_abs_path()
From: Michael G Schwern <schwern@pobox.com>
Date: Sat, 16 Aug 2003 14:58:25 -0700
Message-ID: <20030816215824.GF5859@windhund.schwern.org>
(plus local *REALPATH)
[ 20750]
Subject: [PATCH] Pod::Html test clean-up (was Re: maint @ 20617 (on VMS))
From: "Craig A. Berry" <craigberry@mac.com>
Date: Sun, 17 Aug 2003 23:28:21 -0500
Message-ID: <3F4055E5.2070407@mac.com>
[ 20751]
utf8::is_utf8() wasn't there in 5.8.0.
[ 20752]
I could have sworn the base class method was there.
[ 20753]
Subject: Re: [PATCH] Pod::Html test clean-up (was Re: maint @ 20617 (on VMS))
From: Michael G Schwern <schwern@pobox.com>
Date: Mon, 18 Aug 2003 01:34:34 -0700
Message-ID: <20030818083433.GB823@windhund.schwern.org>
[ 20754]
Upgrade to ExtUtils::MakeMaker 6.16.
[ 20755]
Warn about the slowness of memory debuggers.
[ 20756]
Subject: [PATCH] Pod::Html unifying global variable declaration and initialization
From: Michael G Schwern <schwern@pobox.com>
Date: Mon, 18 Aug 2003 02:44:31 -0700
Message-ID: <20030818094431.GG823@windhund.schwern.org>
p4raw-link: @20756 on //depot/perl: 99cb6bd82261c88aa83ee7d6e9447ada3a00a02e
p4raw-link: @20755 on //depot/perl: a1b65709f580515c8672567698bd83594ba9d2aa
p4raw-link: @20754 on //depot/perl: 2c91f887f15419ab4d5271c3d098f5e3c98ff314
p4raw-link: @20753 on //depot/perl: 33869856bc668ad896e517e1aa0c9d977d5b2676
p4raw-link: @20752 on //depot/perl: c063e98f8c69b3768b03c1dc05dae8a9c315cd4b
p4raw-link: @20751 on //depot/perl: 786c9463ced2257d99e73491484131a7cb28867b
p4raw-link: @20750 on //depot/perl: 383e43c729f9f94a92e4c0cd777de8d2608751de
p4raw-link: @20749 on //depot/perl: 39741d738e6fb2ee9de47dcf0299296483fa68f1
p4raw-id: //depot/maint-5.8/perl@20757
p4raw-branched: from //depot/perl@20748 'branch in'
lib/ExtUtils/t/prereq_print.t
p4raw-integrated: from //depot/perl@20748 'copy in'
lib/ExtUtils/MANIFEST.SKIP (@19099..) lib/ExtUtils/MM_Win95.pm
(@19162..) lib/ExtUtils/t/00setup_dummy.t (@19190..)
lib/Pod/t/pod2html-lib.pl (@19575..) lib/ExtUtils/t/Manifest.t
(@19594..) lib/ExtUtils/Manifest.pm (@19703..)
lib/ExtUtils/Changes lib/ExtUtils/META.yml (@20464..)
lib/ExtUtils/MakeMaker.pm (@20530..) lib/ExtUtils/MM_Win32.pm
(@20560..) lib/ExtUtils/Installed.pm (@20666..)
pod/perlhack.pod (@20732..) lib/utf8.pm (@20735..)
lib/File/Spec/Unix.pm (@20744..) lib/Cwd.pm (@20745..)
lib/Pod/Html.pm (@20753..) 'merge in' MANIFEST (@20708..)
Diffstat (limited to 'lib/ExtUtils/Manifest.pm')
| -rw-r--r-- | lib/ExtUtils/Manifest.pm | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/lib/ExtUtils/Manifest.pm b/lib/ExtUtils/Manifest.pm index 9965e5d92e..819e72cbc8 100644 --- a/lib/ExtUtils/Manifest.pm +++ b/lib/ExtUtils/Manifest.pm @@ -12,7 +12,7 @@ use vars qw($VERSION @ISA @EXPORT_OK $Is_MacOS $Is_VMS $Debug $Verbose $Quiet $MANIFEST $DEFAULT_MSKIP); -$VERSION = 1.39; +$VERSION = 1.41; @ISA=('Exporter'); @EXPORT_OK = qw(mkmanifest manicheck filecheck fullcheck skipcheck @@ -175,7 +175,7 @@ sub manifind { checks if all the files within a C<MANIFEST> in the current directory really do exist. If C<MANIFEST> and the tree below the current -directory are in sync it exits silently, returning an empty list. +directory are in sync it silently returns an empty list. Otherwise it returns a list of files which are listed in the C<MANIFEST> but missing from the directory, and by default also outputs these names to STDERR. @@ -539,14 +539,17 @@ sub maniadd { _fix_manifest($MANIFEST); my $manifest = maniread(); - open(MANIFEST, ">>$MANIFEST") or die "Could not open $MANIFEST: $!"; + my $is_open; foreach my $file (_sort keys %$additions) { next if exists $manifest->{$file}; + $is_open++ or open(MANIFEST, ">>$MANIFEST") or + die "Could not open $MANIFEST: $!"; + my $comment = $additions->{$file} || ''; printf MANIFEST "%-40s%s\n", $file, $comment; } - close MANIFEST; + close MANIFEST if $is_open; } |