Updated to MakeMaker-5.38.
Perl 5 Porters [Tue, 3 Sep 1996 04:42:42 +0000 (04:42 +0000)]
lib/ExtUtils/Liblist.pm
lib/ExtUtils/Manifest.pm
lib/ExtUtils/Mkbootstrap.pm
lib/ExtUtils/Mksymlists.pm

index 097203e..dc8b943 100644 (file)
@@ -1,8 +1,8 @@
 package ExtUtils::Liblist;
-
+use vars qw($VERSION);
 # Broken out of MakeMaker from version 4.11
 
-$ExtUtils::Liblist::VERSION = substr q$Revision: 1.20 $, 10;
+$VERSION = substr q$Revision: 1.20 $, 10;
 
 use Config;
 use Cwd 'cwd';
index 14d0f6e..9859b98 100644 (file)
@@ -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';
+         }
     }
 }
 
index 77339bd..35d5236 100644 (file)
@@ -1,7 +1,7 @@
 package ExtUtils::Mkbootstrap;
 
-$VERSION = substr q$Revision: 1.11 $, 10;
-# $Id: Mkbootstrap.pm,v 1.11 1996/05/31 08:23:54 k Exp k $
+$VERSION = substr q$Revision: 1.13 $, 10;
+# $Date: 1996/09/03 17:04:43 $
 
 use Config;
 use Exporter;
index 3583194..47c37bf 100644 (file)
@@ -7,7 +7,7 @@ use Exporter;
 use vars qw( @ISA @EXPORT $VERSION );
 @ISA = 'Exporter';
 @EXPORT = '&Mksymlists';
-$VERSION = '1.03';
+$VERSION = substr q$Revision: 1.12 $, 10;
 
 sub Mksymlists {
     my(%spec) = @_;