Update ExtUtils-MakeMaker to CPAN version 6.57_01
authorChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Tue, 24 Aug 2010 18:21:23 +0000 (19:21 +0100)
committerChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Tue, 24 Aug 2010 18:21:23 +0000 (19:21 +0100)
  [DELTA]

  6.57_01  Tue Aug 24 01:36:20 PDT 2010
    Improvements
    * parse_abstract() is more robust supporting "Package.pm" and multiple
      dashes and spaces. [rt.perl.org 74438]

    Bug Fixes
    * Recognize .so files in AIX. [rt.cpan.org 41360] (Jens Rehsack)
    * Remove manual image-base generation on Win32/gcc [rt.cpan.org 47138]
      (Yasuhiro Matsumoto)
    * Use the bundled versions of our dependencies if they're not installed.
    * Eliminate use of foreach qw() which will be deprecated in 5.14.
      [rt.cpan.org 57124] (Zefram)

    Test Fixes
    * Guard against old versions of YAML::Tiny that worked differently.
      [rt.cpan.org 55500]

36 files changed:
MANIFEST
Porting/Maintainers.pl
cpan/ExtUtils-MakeMaker/Changes
cpan/ExtUtils-MakeMaker/MANIFEST
cpan/ExtUtils-MakeMaker/README
cpan/ExtUtils-MakeMaker/lib/ExtUtils/Command/MM.pm
cpan/ExtUtils-MakeMaker/lib/ExtUtils/Liblist.pm
cpan/ExtUtils-MakeMaker/lib/ExtUtils/Liblist/Kid.pm
cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM.pm
cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_AIX.pm
cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Any.pm
cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_BeOS.pm
cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Cygwin.pm
cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_DOS.pm
cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Darwin.pm
cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_MacOS.pm
cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_NW5.pm
cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_OS2.pm
cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_QNX.pm
cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_UWIN.pm
cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Unix.pm
cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_VMS.pm
cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_VOS.pm
cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Win32.pm
cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Win95.pm
cpan/ExtUtils-MakeMaker/lib/ExtUtils/MY.pm
cpan/ExtUtils-MakeMaker/lib/ExtUtils/MakeMaker.pm
cpan/ExtUtils-MakeMaker/lib/ExtUtils/MakeMaker/Config.pm
cpan/ExtUtils-MakeMaker/lib/ExtUtils/MakeMaker/FAQ.pod
cpan/ExtUtils-MakeMaker/lib/ExtUtils/MakeMaker/Tutorial.pod
cpan/ExtUtils-MakeMaker/lib/ExtUtils/Mkbootstrap.pm
cpan/ExtUtils-MakeMaker/lib/ExtUtils/Mksymlists.pm
cpan/ExtUtils-MakeMaker/lib/ExtUtils/testlib.pm
cpan/ExtUtils-MakeMaker/t/metafile_file.t
cpan/ExtUtils-MakeMaker/t/parse_abstract.t [new file with mode: 0644]
cpan/ExtUtils-MakeMaker/t/parse_version.t

index bb5b708..9b14309 100644 (file)
--- a/MANIFEST
+++ b/MANIFEST
@@ -990,6 +990,7 @@ cpan/ExtUtils-MakeMaker/t/MM_VMS.t                          See if ExtUtils::MM_VMS works
 cpan/ExtUtils-MakeMaker/t/MM_Win32.t                           See if ExtUtils::MM_Win32 works
 cpan/ExtUtils-MakeMaker/TODO                                   Things TODO in MakeMaker
 cpan/ExtUtils-MakeMaker/t/oneliner.t                           See if MM can generate perl one-liners
+cpan/ExtUtils-MakeMaker/t/parse_abstract.t                     See if parse_abstract works
 cpan/ExtUtils-MakeMaker/t/parse_version.t                      See if parse_version works
 cpan/ExtUtils-MakeMaker/t/PL_FILES.t                           Test PL_FILES in MakeMaker
 cpan/ExtUtils-MakeMaker/t/pm.t                                 See if MakeMaker can handle PM
index f3650a6..145fe80 100755 (executable)
@@ -581,7 +581,7 @@ use File::Glob qw(:case);
     'ExtUtils::MakeMaker' =>
        {
        'MAINTAINER'    => 'mschwern',
-       'DISTRIBUTION'  => 'MSCHWERN/ExtUtils-MakeMaker-6.56.tar.gz',
+       'DISTRIBUTION'  => 'MSCHWERN/ExtUtils-MakeMaker-6.57_01.tar.gz',
        'FILES'         => q[cpan/ExtUtils-MakeMaker],
        'EXCLUDED'      => [ qr{^t/lib/Test/},
                             qr{^inc/ExtUtils/},
index a517482..fff588d 100644 (file)
@@ -1,3 +1,21 @@
+6.57_01  Tue Aug 24 01:36:20 PDT 2010
+    Improvements
+    * parse_abstract() is more robust supporting "Package.pm" and multiple
+      dashes and spaces. [rt.perl.org 74438]
+
+    Bug Fixes
+    * Recognize .so files in AIX. [rt.cpan.org 41360] (Jens Rehsack)
+    * Remove manual image-base generation on Win32/gcc [rt.cpan.org 47138]
+      (Yasuhiro Matsumoto)
+    * Use the bundled versions of our dependencies if they're not installed.
+    * Eliminate use of foreach qw() which will be deprecated in 5.14.
+      [rt.cpan.org 57124] (Zefram)
+
+    Test Fixes
+    * Guard against old versions of YAML::Tiny that worked differently.
+      [rt.cpan.org 55500]
+
+
 6.56  Thu Dec 17 14:02:14 PST 2009
     * Stable release of 6.55_03
 
index b242cc5..93e77bc 100644 (file)
@@ -7,6 +7,7 @@ inc/ExtUtils/Installed.pm
 inc/ExtUtils/Manifest.pm
 inc/ExtUtils/MANIFEST.SKIP
 inc/ExtUtils/Packlist.pm
+INSTALL
 lib/ExtUtils/Command/MM.pm
 lib/ExtUtils/Liblist.pm
 lib/ExtUtils/Liblist/Kid.pm
@@ -91,6 +92,7 @@ t/MM_Unix.t
 t/MM_VMS.t
 t/MM_Win32.t
 t/oneliner.t
+t/parse_abstract.t
 t/parse_version.t
 t/PL_FILES.t
 t/pm.t
@@ -115,3 +117,4 @@ t/writemakefile_args.t
 t/xs.t
 TODO
 META.yml                                 Module meta-data (added by MakeMaker)
+SIGNATURE                                Public-key signature (added by MakeMaker)
index 9586c0b..8629a53 100644 (file)
@@ -1,57 +1,11 @@
 This is a CPAN distribution of the venerable MakeMaker module.  It has been
-backported to work with Perl 5.005_03 and up.
+backported to work with Perl 5.6.0 and up.
 
-If you do not have a make program, several can be found...
-
-Most Unixen: The make utility which comes with your operating system
-should work fine.  If you don't have one, GNU make is recommended,
-most others (Sun, BSD, etc...) will work fine as well.
-http://www.gnu.org/software/make/make.html                GNU make
-
-Windows: nmake or dmake will work.  GNU make will *not*.
-ftp://ftp.microsoft.com/Softlib/MSLFILES/nmake15.exe      nmake
-http://search.cpan.org/dist/dmake/                        dmake
-
-VMS: MMS or the free MadGoat MaKe utility (MMK) will work.
-http://www.madgoat.com/mmk.html                           MMK
-
-If all else fails there is a pure Perl version of make available on
-CPAN which should work on most Unixen.
-http://search.cpan.org/author/NI-S/Make-1.00/             pmake
-
-
-PLEASE NOTE: This distribution does not include the xsubpp or typemap
-programs.  They are extremely specific to your version or Perl, so
-MakeMaker will simply use the one which came with your copy of Perl.
-Do not delete your old ExtUtils/ directory.  An upgraded version of xsubpp
-can be found in the ExtUtils::ParseXS module.
-
-Known Good Systems:
-
-Every stable MakeMaker release is tested at least on:
-
-MacOS X
-Linux/x86
-ActivePerl on Windows
-Cygwin
-OpenVMS
-
-Covering the major portability flavors MakeMaker has to cover.
-(I'm always on the lookout for DJGPP, Solaris, *BSD and OS/2 users)
-
-
-Known Problems:
-
-(See http://rt.cpan.org for a full list of open problems.)
-
-Windows will likely be broken if Perl is installed in C:\Program Files or 
-other prefix with a space in the name.
-
-Using the MMS utility on VMS causes lots of extra newlines.  Unknown
-why this is so, might be a bug in MMS.  Problem not seen with MMK.
-
-GNU make does not work with MakeMaker on Windows.
+See INSTALL for installation instrucitons.  Run "perldoc
+ExtUtils::MakeMaker" (while in this source directory before
+installation) for more documentation.
 
+See http://rt.cpan.org for a full list of open problems.
 
 Please report any bugs via http://rt.cpan.org.
 Send questions and discussion to makemaker@perl.org
index f9b474d..0d23c24 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.56';
+our $VERSION = '6.57_01';
 
 my $Is_VMS = $^O eq 'VMS';
 
index ea4dac4..b21fc01 100644 (file)
@@ -2,7 +2,7 @@ package ExtUtils::Liblist;
 
 use strict;
 
-our $VERSION = '6.56';
+our $VERSION = '6.57_01';
 
 use File::Spec;
 require ExtUtils::Liblist::Kid;
index b807e97..a434a0f 100644 (file)
@@ -9,7 +9,7 @@ use 5.006;
 # Broken out of MakeMaker from version 4.11
 
 use strict;
-our $VERSION = 6.56;
+our $VERSION = 6.57_01;
 
 use Config;
 use Cwd 'cwd';
@@ -39,6 +39,7 @@ sub _unix_os2_ext {
     my($so)   = $Config{so};
     my($libs) = defined $Config{perllibs} ? $Config{perllibs} : $Config{libs};
     my $Config_libext = $Config{lib_ext} || ".a";
+    my $Config_dlext = $Config{dlext};
 
 
     # compute $extralibs, $bsloadlibs and $ldloadlibs from
@@ -130,8 +131,10 @@ sub _unix_os2_ext {
                  && ($Config{'archname'} !~ /RM\d\d\d-svr4/)
                 && ($thislib .= "_s") ){ # we must explicitly use _s version
            } elsif (-f ($fullname="$thispth/lib$thislib$Config_libext")){
+           } elsif (defined($Config_dlext)
+                 && -f ($fullname="$thispth/lib$thislib.$Config_dlext")){
            } elsif (-f ($fullname="$thispth/$thislib$Config_libext")){
-            } elsif (-f ($fullname="$thispth/lib$thislib.dll$Config_libext")){
+           } elsif (-f ($fullname="$thispth/lib$thislib.dll$Config_libext")){
            } elsif (-f ($fullname="$thispth/Slib$thislib$Config_libext")){
            } elsif ($^O eq 'dgux'
                 && -l ($fullname="$thispth/lib$thislib$Config_libext")
index eac5f48..d39118c 100644 (file)
@@ -3,7 +3,7 @@ package ExtUtils::MM;
 use strict;
 use ExtUtils::MakeMaker::Config;
 
-our $VERSION = '6.56';
+our $VERSION = '6.57_01';
 
 require ExtUtils::Liblist;
 require ExtUtils::MakeMaker;
index 5179be4..8490f2f 100644 (file)
@@ -1,7 +1,7 @@
 package ExtUtils::MM_AIX;
 
 use strict;
-our $VERSION = '6.56';
+our $VERSION = '6.57_01';
 
 require ExtUtils::MM_Unix;
 our @ISA = qw(ExtUtils::MM_Unix);
index 4905aeb..a94ab43 100644 (file)
@@ -1,7 +1,7 @@
 package ExtUtils::MM_Any;
 
 use strict;
-our $VERSION = '6.56';
+our $VERSION = '6.57_01';
 
 use Carp;
 use File::Spec;
@@ -984,7 +984,7 @@ sub _dump_hash {
                 );
                 if (exists $customs->{$key}) {
                     my %k_custom = %{$customs->{$key}};
-                    foreach my $k qw(key_sort max_key_length customs) {
+                    foreach my $k (qw(key_sort max_key_length customs)) {
                         $k_options{$k} = $k_custom{$k} if exists $k_custom{$k};
                     }
                 }
index 0b7c8db..1c1eb4f 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.56';
+our $VERSION = '6.57_01';
 
 
 =item os_flavor
index 394fbc6..7bee0b9 100644 (file)
@@ -9,7 +9,7 @@ require ExtUtils::MM_Unix;
 require ExtUtils::MM_Win32;
 our @ISA = qw( ExtUtils::MM_Unix );
 
-our $VERSION = '6.56';
+our $VERSION = '6.57_01';
 
 
 =head1 NAME
index fc0a794..0c50626 100644 (file)
@@ -2,7 +2,7 @@ package ExtUtils::MM_DOS;
 
 use strict;
 
-our $VERSION = 6.56;
+our $VERSION = 6.57_01;
 
 require ExtUtils::MM_Any;
 require ExtUtils::MM_Unix;
index 1cb87c7..d74cbe3 100644 (file)
@@ -7,7 +7,7 @@ BEGIN {
     our @ISA = qw( ExtUtils::MM_Unix );
 }
 
-our $VERSION = '6.56';
+our $VERSION = '6.57_01';
 
 
 =head1 NAME
index cfc8205..b19d037 100644 (file)
@@ -2,7 +2,7 @@ package ExtUtils::MM_MacOS;
 
 use strict;
 
-our $VERSION = 6.56;
+our $VERSION = 6.57_01;
 
 sub new {
     die <<'UNSUPPORTED';
index 0c8f6c0..5f06e20 100644 (file)
@@ -22,7 +22,7 @@ use strict;
 use ExtUtils::MakeMaker::Config;
 use File::Basename;
 
-our $VERSION = '6.56';
+our $VERSION = '6.57_01';
 
 require ExtUtils::MM_Win32;
 our @ISA = qw(ExtUtils::MM_Win32);
index 680502b..dc0390c 100644 (file)
@@ -5,7 +5,7 @@ use strict;
 use ExtUtils::MakeMaker qw(neatvalue);
 use File::Spec;
 
-our $VERSION = '6.56';
+our $VERSION = '6.57_01';
 
 require ExtUtils::MM_Any;
 require ExtUtils::MM_Unix;
index f78d5e8..0650b3c 100644 (file)
@@ -1,7 +1,7 @@
 package ExtUtils::MM_QNX;
 
 use strict;
-our $VERSION = '6.56';
+our $VERSION = '6.57_01';
 
 require ExtUtils::MM_Unix;
 our @ISA = qw(ExtUtils::MM_Unix);
index 5adc46e..62bc1e0 100644 (file)
@@ -1,7 +1,7 @@
 package ExtUtils::MM_UWIN;
 
 use strict;
-our $VERSION = 6.56;
+our $VERSION = 6.57_01;
 
 require ExtUtils::MM_Unix;
 our @ISA = qw(ExtUtils::MM_Unix);
index 3d059be..0719988 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.5601';
+$VERSION = '6.57_01';
 
 require ExtUtils::MM_Any;
 our @ISA = qw(ExtUtils::MM_Any);
@@ -2593,7 +2593,7 @@ sub parse_abstract {
         $inpod = /^=(?!cut)/ ? 1 : /^=cut/ ? 0 : $inpod;
         next if !$inpod;
         chop;
-        next unless /^($package(?:\.pm)?\s+\-+\s+)(.*)/;
+        next unless /^($package(?:\.pm)? \s+ -+ \s+)(.*)/x;
         $result = $2;
         last;
     }
@@ -2634,7 +2634,7 @@ sub parse_version {
         $inpod = /^=(?!cut)/ ? 1 : /^=cut/ ? 0 : $inpod;
         next if $inpod || /^\s*#/;
         chop;
-        next if /^\s*(if|unless)/;
+        next if /^\s*(if|unless|elsif)/;
         if ( m{^ \s* package \s+ \w[\w\:\']* \s+ (v?[0-9._]+) \s* ;  }x ) {
             local $^W = 0;
             $result = $1;
index 2066d03..34b74d2 100644 (file)
@@ -15,7 +15,7 @@ BEGIN {
 
 use File::Basename;
 
-our $VERSION = '6.56';
+our $VERSION = '6.57_01';
 
 require ExtUtils::MM_Any;
 require ExtUtils::MM_Unix;
index 1814a1d..ad86cc8 100644 (file)
@@ -1,7 +1,7 @@
 package ExtUtils::MM_VOS;
 
 use strict;
-our $VERSION = '6.56';
+our $VERSION = '6.57_01';
 
 require ExtUtils::MM_Unix;
 our @ISA = qw(ExtUtils::MM_Unix);
index 19e462d..c41075a 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.56';
+our $VERSION = '6.57_01';
 
 $ENV{EMXSHELL} = 'sh'; # to run `commands`
 
@@ -289,17 +289,6 @@ sub dynamic_lib {
     my($ldfrom) = '$(LDFROM)';
     my(@m);
 
-# one thing for GCC/Mingw32:
-# we try to overcome non-relocateable-DLL problems by generating
-#    a (hopefully unique) image-base from the dll's name
-# -- BKS, 10-19-1999
-    if ($GCC) { 
-       my $dllname = $self->{BASEEXT} . "." . $self->{DLEXT};
-       $dllname =~ /(....)(.{0,4})/;
-       my $baseaddr = unpack("n", $1 ^ $2);
-       $otherldflags .= sprintf("-Wl,--image-base,0x%x0000 ", $baseaddr);
-    }
-
     push(@m,'
 # This section creates the dynamically loadable $(INST_DYNAMIC)
 # from $(OBJECT) and possibly $(MYEXTLIB).
index c471476..1cc0f12 100644 (file)
@@ -2,7 +2,7 @@ package ExtUtils::MM_Win95;
 
 use strict;
 
-our $VERSION = '6.56';
+our $VERSION = '6.57_01';
 
 require ExtUtils::MM_Win32;
 our @ISA = qw(ExtUtils::MM_Win32);
index bed177d..4a0b61f 100644 (file)
@@ -3,7 +3,7 @@ package ExtUtils::MY;
 use strict;
 require ExtUtils::MM;
 
-our $VERSION = 6.56;
+our $VERSION = 6.57_01;
 our @ISA = qw(ExtUtils::MM);
 
 {
index 95a0752..7ab26e0 100644 (file)
@@ -18,7 +18,7 @@ our @Overridable;
 my @Prepend_parent;
 my %Recognized_Att_Keys;
 
-our $VERSION = '6.5601';
+our $VERSION = '6.57_01';
 
 # Emulate something resembling CVS $Revision$
 (our $Revision = $VERSION) =~ s{_}{};
@@ -1000,10 +1000,12 @@ sub flush {
         or die "Unable to open MakeMaker.tmp: $!";
 
     for my $chunk (@{$self->{RESULT}}) {
-        print $fh "$chunk\n";
+        print $fh "$chunk\n"
+            or die "Can't write to MakeMaker.tmp: $!";
     }
 
-    close $fh;
+    close $fh
+        or die "Can't write to MakeMaker.tmp: $!";
     _rename("MakeMaker.tmp", $finalname) or
       warn "rename MakeMaker.tmp => $finalname: $!";
     chmod 0644, $finalname unless $Is_VMS;
@@ -1468,7 +1470,8 @@ the first line in the "=head1 NAME" section. $2 becomes the abstract.
 =item AUTHOR
 
 String containing name (and email address) of package author(s). Is used
-in PPD (Perl Package Description) files for PPM (Perl Package Manager).
+in META.yml and PPD (Perl Package Description) files for PPM (Perl
+Package Manager).
 
 =item BINARY_LOCATION
 
@@ -1942,7 +1945,7 @@ may hold a name for that binary. Defaults to perl
 A hashrefs of items to add to the F<META.yml>.
 
 They differ in how they behave if they have the same key as the
-default metadata.  META_ADD will override the default value with it's
+default metadata.  META_ADD will override the default value with its
 own.  META_MERGE will merge its value with the default.
 
 Unless you want to override the defaults, prefer META_MERGE so as to
@@ -2227,18 +2230,17 @@ will C<die> instead of simply informing the user of the missing dependencies.
 
 It is I<extremely> rare to have to use C<PREREQ_FATAL>. Its use by module
 authors is I<strongly discouraged> and should never be used lightly.
+
 Module installation tools have ways of resolving umet dependencies but
 to do that they need a F<Makefile>.  Using C<PREREQ_FATAL> breaks this.
 That's bad.
 
-The only situation where it is appropriate is when you have
-dependencies that are indispensible to actually I<write> a
-F<Makefile>. For example, MakeMaker's F<Makefile.PL> needs L<File::Spec>.
-If its not available it cannot write the F<Makefile>.
+Assuming you have good test coverage, your tests should fail with
+missing dependencies informing the user more strongly that something
+is wrong.  You can write a F<t/00compile.t> test which will simply
+check that your code compiles and stop "make test" prematurely if it
+doesn't.  See L<Test::More/BAIL_OUT> for more details.
 
-Note: see L<Test::Harness> for a shortcut for stopping tests early
-if you are missing dependencies and are afraid that users might
-use your module with an incomplete environment.
 
 =item PREREQ_PM
 
@@ -2798,6 +2800,8 @@ generated Makefile along with your report.
 
 For more up-to-date information, see L<http://www.makemaker.org>.
 
+Repository available at L<http://github.com/schwern/extutils-makemaker>.
+
 =head1 LICENSE
 
 This program is free software; you can redistribute it and/or 
index 38b60af..0b83432 100644 (file)
@@ -2,7 +2,7 @@ package ExtUtils::MakeMaker::Config;
 
 use strict;
 
-our $VERSION = '6.56';
+our $VERSION = '6.57_01';
 
 use Config ();
 
index d33f82e..f335423 100644 (file)
@@ -1,6 +1,6 @@
 package ExtUtils::MakeMaker::FAQ;
 
-our $VERSION = '1.12';
+our $VERSION = '6.57_01';
 
 1;
 __END__
@@ -241,7 +241,7 @@ do that.  Use at your own risk.  Have fun blowing holes in your foot.
     use File::Spec;
     use File::Find;
     use ExtUtils::Manifest qw(maniread);
-    
+
     my %manifest = map  {( $_ => 1 )}
                    grep { File::Spec->canonpath($_) }
                         keys %{ maniread() };
@@ -250,14 +250,14 @@ do that.  Use at your own risk.  Have fun blowing holes in your foot.
         print "No files found in MANIFEST.  Stopping.\n";
         exit;
     }
-    
+
     find({
           wanted   => sub {
               my $path = File::Spec->canonpath($_);
-    
+
               return unless -f $path;
               return if exists $manifest{ $path };
-    
+
               print "unlink $path\n";
               unlink $path;
           },
@@ -267,6 +267,10 @@ do that.  Use at your own risk.  Have fun blowing holes in your foot.
     );
 
 
+=item Which tar should I use on Windows?
+
+We recommend ptar from Archive::Tar not older that 1.66 with '-C' option. 
+
 =item Which zip should I use on Windows for '[nd]make zipdist'?
 
 We recommend InfoZIP: L<http://www.info-zip.org/Zip.html>
index 8ad7264..d5ff908 100644 (file)
@@ -1,6 +1,6 @@
 package ExtUtils::MakeMaker::Tutorial;
 
-our $VERSION = 0.02;
+our $VERSION = 6.57_01;
 
 
 =head1 NAME
index 707466a..aeb8b27 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.56';
+our $VERSION = '6.57_01';
 
 require Exporter;
 our @ISA = ('Exporter');
index 962c67f..e799293 100644 (file)
@@ -10,7 +10,7 @@ use Config;
 
 our @ISA = qw(Exporter);
 our @EXPORT = qw(&Mksymlists);
-our $VERSION = '6.56';
+our $VERSION = '6.57_01';
 
 sub Mksymlists {
     my(%spec) = @_;
index fe01beb..628dda0 100644 (file)
@@ -3,7 +3,7 @@ package ExtUtils::testlib;
 use strict;
 use warnings;
 
-our $VERSION = 6.56;
+our $VERSION = 6.57_01;
 
 use Cwd;
 use File::Spec;
index ca8a412..e4e98dc 100644 (file)
@@ -267,8 +267,9 @@ YAML
 
 
     SKIP: {
+        # Load() behaves diffrently in versions prior to 1.06 
         skip "Need YAML::Tiny to test if it can load META.yml", 2
-          unless eval { require YAML::Tiny };
+          unless eval { require YAML::Tiny } and $YAML::Tiny::VERSION >= 1.06;
 
         my @yaml_load = YAML::Tiny::Load($mm->metafile_file(@meta));
         is @yaml_load, 1,               "YAML::Tiny saw one document in META.yml";
diff --git a/cpan/ExtUtils-MakeMaker/t/parse_abstract.t b/cpan/ExtUtils-MakeMaker/t/parse_abstract.t
new file mode 100644 (file)
index 0000000..03e56c9
--- /dev/null
@@ -0,0 +1,77 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+use ExtUtils::MakeMaker;
+
+use Test::More 'no_plan';
+
+sub test_abstract {
+    my($code, $package, $want, $name) = @_;
+
+    local $Test::Builder::Level = $Test::Builder::Level + 1;
+
+    my $file = "t/abstract.tmp";
+    {
+        open my $fh, ">", $file or die "Can't open $file";
+        print $fh $code;
+        close $fh;
+    }
+
+    # Hack up a minimal MakeMaker object.
+    my $mm = bless { DISTNAME => $package }, "MM";
+    my $have = $mm->parse_abstract($file);
+
+    my $ok = is( $have, $want, $name );
+
+    # Clean up the temp file, VMS style
+    1 while unlink $file;
+
+    return $ok;
+}
+
+
+test_abstract(<<END, "Foo", "Stuff and things", "Simple abstract");
+=head1 NAME
+
+Foo - Stuff and things
+END
+
+
+test_abstract(<<END, "NEXT", "Provide a pseudo-class NEXT (et al) that allows method redispatch", "Name.pm");
+=head1 NAME
+
+NEXT.pm - Provide a pseudo-class NEXT (et al) that allows method redispatch
+END
+
+
+test_abstract(<<END, "Compress::Raw::Zlib::FAQ", "Frequently Asked Questions about Compress::Raw::Zlib", "double dash");
+=pod
+
+Compress::Raw::Zlib::FAQ -- Frequently Asked Questions about Compress::Raw::Zlib
+END
+
+
+test_abstract(<<END, "Foo", "This is", "Only in POD");
+# =pod
+
+Foo - This is not in pod
+
+=cut
+
+Foo - This isn't in pod either
+
+=pod
+
+Foo - This is
+
+Foo - So is this.
+END
+
+
+test_abstract(<<END, "Foo", "the abstract", "more spaces");
+=pod
+
+Foo   -  the abstract
+END
index 858e294..d7c14a8 100644 (file)
@@ -36,6 +36,7 @@ my %versions = (q[$VERSION = '1.00']            => '1.00',
 
                 '$VERSION = sprintf("%d.%03d", q$Revision: 3.74 $ =~ /(\d+)\.(\d+)/);' => '3.074',
                 '$VERSION = substr(q$Revision: 2.8 $, 10) + 2 . "";'                   => '4.8',
+                'elsif ( $Something::VERSION >= 1.99 )' => 'undef',
 
                );
 
@@ -72,12 +73,15 @@ our $VERSION = 2.34;
 END
 }
 
-plan tests => (2 * keys %versions) + 4;
+plan tests => (3 * keys %versions) + 4;
 
 for my $code ( sort keys %versions ) {
     my $expect = $versions{$code};
     (my $label = $code) =~ s/\n/\\n/g;
+    my $warnings = "";
+    local $SIG{__WARN__} = sub { $warnings .= "@_\n"; };
     is( parse_version_string($code), $expect, $label );
+    is($warnings, '', "$label does not cause warnings");
 }