This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Upgrade to ExtUtils-MakeMaker-6.47_02
authorNicholas Clark <nick@ccl4.org>
Fri, 17 Oct 2008 08:46:28 +0000 (08:46 +0000)
committerNicholas Clark <nick@ccl4.org>
Fri, 17 Oct 2008 08:46:28 +0000 (08:46 +0000)
p4raw-id: //depot/perl@34498

29 files changed:
lib/ExtUtils/Command/MM.pm
lib/ExtUtils/Liblist.pm
lib/ExtUtils/Liblist/Kid.pm
lib/ExtUtils/MM.pm
lib/ExtUtils/MM_AIX.pm
lib/ExtUtils/MM_Any.pm
lib/ExtUtils/MM_BeOS.pm
lib/ExtUtils/MM_Cygwin.pm
lib/ExtUtils/MM_DOS.pm
lib/ExtUtils/MM_MacOS.pm
lib/ExtUtils/MM_NW5.pm
lib/ExtUtils/MM_OS2.pm
lib/ExtUtils/MM_QNX.pm
lib/ExtUtils/MM_UWIN.pm
lib/ExtUtils/MM_Unix.pm
lib/ExtUtils/MM_VMS.pm
lib/ExtUtils/MM_VOS.pm
lib/ExtUtils/MM_Win32.pm
lib/ExtUtils/MM_Win95.pm
lib/ExtUtils/MY.pm
lib/ExtUtils/MakeMaker.pm
lib/ExtUtils/MakeMaker/Config.pm
lib/ExtUtils/MakeMaker/bytes.pm
lib/ExtUtils/MakeMaker/vmsish.pm
lib/ExtUtils/Mkbootstrap.pm
lib/ExtUtils/Mksymlists.pm
lib/ExtUtils/t/min_perl_version.t
lib/ExtUtils/testlib.pm
t/lib/MakeMaker/Test/Utils.pm

index a9e7e14..052e9ed 100644 (file)
@@ -10,7 +10,7 @@ our @ISA = qw(Exporter);
 
 our @EXPORT  = qw(test_harness pod2man perllocal_install uninstall 
                   warn_if_old_packlist);
-our $VERSION = '6.47_01';
+our $VERSION = '6.47_02';
 
 my $Is_VMS = $^O eq 'VMS';
 
index 87b8d7d..571c95b 100644 (file)
@@ -2,7 +2,7 @@ package ExtUtils::Liblist;
 
 use strict;
 
-our $VERSION = '6.47_01';
+our $VERSION = '6.47_02';
 
 use File::Spec;
 require ExtUtils::Liblist::Kid;
index 5c16dbc..beb10d8 100644 (file)
@@ -9,7 +9,7 @@ use 5.006;
 # Broken out of MakeMaker from version 4.11
 
 use strict;
-our $VERSION = 6.47_01;
+our $VERSION = 6.47_02;
 
 use Config;
 use Cwd 'cwd';
index d81d19c..a21d940 100644 (file)
@@ -3,7 +3,7 @@ package ExtUtils::MM;
 use strict;
 use ExtUtils::MakeMaker::Config;
 
-our $VERSION = '6.47_01';
+our $VERSION = '6.47_02';
 
 require ExtUtils::Liblist;
 require ExtUtils::MakeMaker;
index 6d7d632..6306c14 100644 (file)
@@ -1,7 +1,7 @@
 package ExtUtils::MM_AIX;
 
 use strict;
-our $VERSION = '6.47_01';
+our $VERSION = '6.47_02';
 
 require ExtUtils::MM_Unix;
 our @ISA = qw(ExtUtils::MM_Unix);
index f2519d6..53849ae 100644 (file)
@@ -1,7 +1,7 @@
 package ExtUtils::MM_Any;
 
 use strict;
-our $VERSION = '6.47_01';
+our $VERSION = '6.47_02';
 
 use Carp;
 use File::Spec;
index 52dd0f8..ec35c80 100644 (file)
@@ -26,7 +26,7 @@ require ExtUtils::MM_Any;
 require ExtUtils::MM_Unix;
 
 our @ISA = qw( ExtUtils::MM_Any ExtUtils::MM_Unix );
-our $VERSION = '6.47_01';
+our $VERSION = '6.47_02';
 
 
 =item os_flavor
index 9f5e753..b85f55a 100644 (file)
@@ -9,7 +9,7 @@ require ExtUtils::MM_Any;
 require ExtUtils::MM_Unix;
 our @ISA = qw( ExtUtils::MM_Any ExtUtils::MM_Unix );
 
-our $VERSION = '6.47_01';
+our $VERSION = '6.47_02';
 
 
 =head1 NAME
index f032b56..4f273df 100644 (file)
@@ -2,7 +2,7 @@ package ExtUtils::MM_DOS;
 
 use strict;
 
-our $VERSION = 6.47_01;
+our $VERSION = 6.47_02;
 
 require ExtUtils::MM_Any;
 require ExtUtils::MM_Unix;
index 737359c..e4d3bb6 100644 (file)
@@ -2,7 +2,7 @@ package ExtUtils::MM_MacOS;
 
 use strict;
 
-our $VERSION = 6.47_01;
+our $VERSION = 6.47_02;
 
 sub new {
     die <<'UNSUPPORTED';
index cfe9eb0..103804f 100644 (file)
@@ -22,7 +22,7 @@ use strict;
 use ExtUtils::MakeMaker::Config;
 use File::Basename;
 
-our $VERSION = '6.47_01';
+our $VERSION = '6.47_02';
 
 require ExtUtils::MM_Win32;
 our @ISA = qw(ExtUtils::MM_Win32);
index 922260e..92b2c1c 100644 (file)
@@ -5,7 +5,7 @@ use strict;
 use ExtUtils::MakeMaker qw(neatvalue);
 use File::Spec;
 
-our $VERSION = '6.47_01';
+our $VERSION = '6.47_02';
 
 require ExtUtils::MM_Any;
 require ExtUtils::MM_Unix;
index e60ea4d..ddde91c 100644 (file)
@@ -1,7 +1,7 @@
 package ExtUtils::MM_QNX;
 
 use strict;
-our $VERSION = '6.47_01';
+our $VERSION = '6.47_02';
 
 require ExtUtils::MM_Unix;
 our @ISA = qw(ExtUtils::MM_Unix);
index e227ff1..fe37a2b 100644 (file)
@@ -1,7 +1,7 @@
 package ExtUtils::MM_UWIN;
 
 use strict;
-our $VERSION = 6.47_01;
+our $VERSION = 6.47_02;
 
 require ExtUtils::MM_Unix;
 our @ISA = qw(ExtUtils::MM_Unix);
index 8c619c5..d018fe0 100644 (file)
@@ -15,7 +15,7 @@ use ExtUtils::MakeMaker qw($Verbose neatvalue);
 
 # If we make $VERSION an our variable parse_version() breaks
 use vars qw($VERSION);
-$VERSION = '6.47_01';
+$VERSION = '6.47_02';
 
 require ExtUtils::MM_Any;
 our @ISA = qw(ExtUtils::MM_Any);
index 9311252..65610b8 100644 (file)
@@ -15,7 +15,7 @@ BEGIN {
 
 use File::Basename;
 
-our $VERSION = '6.47_01';
+our $VERSION = '6.47_02';
 
 require ExtUtils::MM_Any;
 require ExtUtils::MM_Unix;
index 59460dd..3da60ec 100644 (file)
@@ -1,7 +1,7 @@
 package ExtUtils::MM_VOS;
 
 use strict;
-our $VERSION = '6.47_01';
+our $VERSION = '6.47_02';
 
 require ExtUtils::MM_Unix;
 our @ISA = qw(ExtUtils::MM_Unix);
index 6f034b1..05b81e9 100644 (file)
@@ -27,7 +27,7 @@ use ExtUtils::MakeMaker qw( neatvalue );
 require ExtUtils::MM_Any;
 require ExtUtils::MM_Unix;
 our @ISA = qw( ExtUtils::MM_Any ExtUtils::MM_Unix );
-our $VERSION = '6.47_01';
+our $VERSION = '6.47_02';
 
 $ENV{EMXSHELL} = 'sh'; # to run `commands`
 
index 81fff73..ee22922 100644 (file)
@@ -2,7 +2,7 @@ package ExtUtils::MM_Win95;
 
 use strict;
 
-our $VERSION = '6.47_01';
+our $VERSION = '6.47_02';
 
 require ExtUtils::MM_Win32;
 our @ISA = qw(ExtUtils::MM_Win32);
index ea407be..c299590 100644 (file)
@@ -3,7 +3,7 @@ package ExtUtils::MY;
 use strict;
 require ExtUtils::MM;
 
-our $VERSION = 6.47_01;
+our $VERSION = 6.47_02;
 our @ISA = qw(ExtUtils::MM);
 
 {
index 8e2d1c5..6d6037b 100644 (file)
@@ -18,7 +18,7 @@ our @Overridable;
 my @Prepend_parent;
 my %Recognized_Att_Keys;
 
-our $VERSION = '6.47_01';
+our $VERSION = '6.47_02';
 
 # Emulate something resembling CVS $Revision$
 (our $Revision = $VERSION) =~ s{_}{};
index 1fe9e56..655aceb 100644 (file)
@@ -2,7 +2,7 @@ package ExtUtils::MakeMaker::Config;
 
 use strict;
 
-our $VERSION = '6.47_01';
+our $VERSION = '6.47_02';
 
 use Config ();
 
index 43c235f..dc13bfa 100644 (file)
@@ -2,7 +2,7 @@ package ExtUtils::MakeMaker::bytes;
 
 use strict;
 
-our $VERSION = 6.47_01;
+our $VERSION = 6.47_02;
 
 my $Have_Bytes = eval { require bytes; 1; };
 
index 10c2200..7fa5e6a 100644 (file)
@@ -2,7 +2,7 @@ package ExtUtils::MakeMaker::vmsish;
 
 use strict;
 
-our $VERSION = 6.47_01;
+our $VERSION = 6.47_02;
 
 my $IsVMS = $^O eq 'VMS';
 
index 66fc617..4de3561 100644 (file)
@@ -3,7 +3,7 @@ package ExtUtils::Mkbootstrap;
 # There's just too much Dynaloader incest here to turn on strict vars.
 use strict 'refs';
 
-our $VERSION = '6.47_01';
+our $VERSION = '6.47_02';
 
 require Exporter;
 our @ISA = ('Exporter');
index b749da2..316b733 100644 (file)
@@ -10,7 +10,7 @@ use Config;
 
 our @ISA = qw(Exporter);
 our @EXPORT = qw(&Mksymlists);
-our $VERSION = '6.47_01';
+our $VERSION = '6.47_02';
 
 sub Mksymlists {
     my(%spec) = @_;
index f488fa5..7e44570 100644 (file)
@@ -184,6 +184,8 @@ END
 # ----- META.yml output -----
 {
     my $distdir  = 'Min-PerlVers-0.05';
+    $distdir =~ s{\.}{_}g if $Is_VMS;
+
     my $meta_yml = "$distdir/META.yml";
     my @make_out    = run(qq{$make metafile});
     END { rmtree $distdir }
index 6a2d437..b369433 100644 (file)
@@ -3,7 +3,7 @@ package ExtUtils::testlib;
 use strict;
 use warnings;
 
-our $VERSION = 6.47_01;
+our $VERSION = 6.47_02;
 
 use Cwd;
 use File::Spec;
index 8c9fc7b..9cbd015 100644 (file)
@@ -4,21 +4,20 @@ use File::Spec;
 use strict;
 use Config;
 
-use vars qw($VERSION @ISA @EXPORT);
-
 require Exporter;
-@ISA = qw(Exporter);
+our @ISA = qw(Exporter);
 
-$VERSION = 0.04;
+our $VERSION = 0.04;
 
-@EXPORT = qw(which_perl perl_lib makefile_name makefile_backup
-             make make_run run make_macro calibrate_mtime
-             setup_mm_test_root
-             have_compiler slurp
-            );
+our $Is_VMS   = $^O eq 'VMS';
+our $Is_MacOS = $^O eq 'MacOS';
 
-my $Is_VMS   = $^O eq 'VMS';
-my $Is_MacOS = $^O eq 'MacOS';
+our @EXPORT = qw(which_perl perl_lib makefile_name makefile_backup
+                 make make_run run make_macro calibrate_mtime
+                 setup_mm_test_root
+                 have_compiler slurp
+                 $Is_VMS $Is_MacOS
+                );
 
 
 =head1 NAME
@@ -325,23 +324,22 @@ sub have_compiler {
 
 =item slurp
 
-  $text = slurp($filename);
+  $contents = slurp($filename);
+
+Returns the $contents of $filename.
 
-Returns the contents of a file if it can be read, otherwise undef.
-Contents of excessively large files are truncated to a couple of
-kilobytes, though.
+Will die if $filename cannot be opened.
 
 =cut
 
 sub slurp {
     my $filename = shift;
-    my $text = undef;
-    local *FH;
-    local $/ = \8192;
-    if (open FH, $filename) {
-        $text = <FH>;
-        close FH;
-    }
+
+    local $/ = undef;
+    open my $fh, $filename or die "Can't open $filename for reading: $!";
+    my $text = <$fh>;
+    close $fh;
+
     return $text;
 }