diff options
| author | Perl 5 Porters <perl5-porters@africa.nicoh.com> | 1996-09-03 04:42:42 +0000 |
|---|---|---|
| committer | Andy Dougherty <doughera@lafcol.lafayette.edu> | 1996-09-03 04:42:42 +0000 |
| commit | 8a1da95f424b3f503ca14c0d79874d7cc4fdddf4 (patch) | |
| tree | 0ab39ae29239195eddf65316b14aa83967e806c1 /lib/ExtUtils/Manifest.pm | |
| parent | cee7b94a06fb7b044854046abe55cbd88bdb2b55 (diff) | |
| download | perl-8a1da95f424b3f503ca14c0d79874d7cc4fdddf4.tar.gz | |
Updated to MakeMaker-5.38.
Diffstat (limited to 'lib/ExtUtils/Manifest.pm')
| -rw-r--r-- | lib/ExtUtils/Manifest.pm | 22 |
1 files changed, 14 insertions, 8 deletions
diff --git a/lib/ExtUtils/Manifest.pm b/lib/ExtUtils/Manifest.pm index 14d0f6e1be..9859b98d72 100644 --- a/lib/ExtUtils/Manifest.pm +++ b/lib/ExtUtils/Manifest.pm @@ -1,21 +1,23 @@ package ExtUtils::Manifest; - require Exporter; -@ISA=('Exporter'); -@EXPORT_OK = ('mkmanifest', 'manicheck', 'fullcheck', 'filecheck', - 'skipcheck', 'maniread', 'manicopy'); - use Config; use File::Find; use File::Copy 'copy'; use Carp; +use strict; + +use vars qw(@ISA @EXPORT_OK $VERSION $Debug $Verbose $Is_VMS $Quiet $MANIFEST $found); + +@ISA=('Exporter'); +@EXPORT_OK = ('mkmanifest', 'manicheck', 'fullcheck', 'filecheck', + 'skipcheck', 'maniread', 'manicopy'); $Debug = 0; $Verbose = 1; $Is_VMS = $^O eq 'VMS'; -$VERSION = $VERSION = substr(q$Revision: 1.24 $,10,4); +$VERSION = substr(q$Revision: 1.27 $,10,4); $Quiet = 0; @@ -181,7 +183,7 @@ sub manicopy { } sub cp_if_diff { - my($from,$to, $how)=@_; + my($from, $to, $how)=@_; -f $from || carp "$0: $from not found"; my($diff) = 0; local(*F,*T); @@ -197,7 +199,11 @@ sub cp_if_diff { if (-e $to) { unlink($to) or confess "unlink $to: $!"; } - &$how($from, $to); + STRICT_SWITCH: { + best($from,$to), last STRICT_SWITCH if $how eq 'best'; + cp($from,$to), last STRICT_SWITCH if $how eq 'cp'; + ln($from,$to), last STRICT_SWITCH if $how eq 'ln'; + } } } |