This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Update ExtUtils-Manifest to CPAN version 1.65
authorChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Fri, 8 Aug 2014 11:18:57 +0000 (12:18 +0100)
committerChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Fri, 8 Aug 2014 11:18:57 +0000 (12:18 +0100)
  [DELTA]

1.65  Fri, Aug  8, 2014
  - Support perls < v5.8.3 once again
  - Don't generate MANIFESTs with CRLFs on Windows

Porting/Maintainers.pl
cpan/ExtUtils-Manifest/lib/ExtUtils/Manifest.pm
cpan/ExtUtils-Manifest/t/Manifest.t

index bff9951..ef3efbc 100755 (executable)
@@ -485,7 +485,7 @@ use File::Glob qw(:case);
     },
 
     'ExtUtils::Manifest' => {
-        'DISTRIBUTION' => 'BINGOS/ExtUtils-Manifest-1.64.tar.gz',
+        'DISTRIBUTION' => 'BINGOS/ExtUtils-Manifest-1.65.tar.gz',
         'FILES'        => q[cpan/ExtUtils-Manifest],
         'EXCLUDED'     => [qr(^xt/)],
     },
index 165a15c..1761589 100644 (file)
@@ -10,9 +10,8 @@ use Carp;
 use strict;
 use warnings;
 
-use Exporter 5.57 'import';
-
-our $VERSION = '1.64';
+our $VERSION = '1.65';
+our @ISA = ('Exporter');
 our @EXPORT_OK = qw(mkmanifest
                 manicheck  filecheck  fullcheck  skipcheck
                 manifind   maniread   manicopy   maniadd
@@ -122,6 +121,7 @@ sub mkmanifest {
     $bakbase =~ s/\./_/g if $Is_VMS_nodot; # avoid double dots
     rename $MANIFEST, "$bakbase.bak" unless $manimiss;
     open M, "> $MANIFEST" or die "Could not open $MANIFEST: $!";
+    binmode M, ':raw';
     my $skip = maniskip();
     my $found = manifind();
     my($key,$val,$file,%all);
@@ -481,6 +481,7 @@ sub _check_mskip_directives {
         warn "Problem opening $mfile: $!";
         return;
     }
+    binmode M, ':raw';
     print M $_ for (@lines);
     close M;
     return;
@@ -694,6 +695,7 @@ sub maniadd {
 
     open(MANIFEST, ">>$MANIFEST") or
       die "maniadd() could not open $MANIFEST: $!";
+    binmode MANIFEST, ':raw';
 
     foreach my $file (_sort @needed) {
         my $comment = $additions->{$file} || '';
@@ -735,6 +737,7 @@ sub _fix_manifest {
     if ( $must_rewrite ) {
         1 while unlink $MANIFEST; # avoid multiple versions on VMS
         open MANIFEST, ">", $MANIFEST or die "(must_rewrite=$must_rewrite) Could not open >$MANIFEST: $!";
+       binmode MANIFEST, ':raw';
         for (my $i=0; $i<=$#manifest; $i+=2) {
             print MANIFEST "$manifest[$i]\n";
         }
index a6a89a2..48e31b9 100644 (file)
@@ -13,7 +13,7 @@ chdir 't';
 
 use strict;
 
-use Test::More tests => 96;
+use Test::More tests => 97;
 use Cwd;
 
 use File::Spec;
@@ -47,6 +47,7 @@ sub add_file {
     $file =~ s/ /^_/g if $Is_VMS_noefs; # escape spaces
     1 while unlink $file;  # or else we'll get multiple versions on VMS
     open( T, '> '.$file) or return;
+    binmode T, ':raw'; # no CRLFs please
     print T $data;
     close T;
     return 0 unless -e $file;  # exists under the name we gave it ?
@@ -232,6 +233,14 @@ is( $files->{wibble}, '',    'maniadd() with undef comment' );
 is( $files->{yarrow}, 'hock','          with comment' );
 is( $files->{foobar}, '',    '          preserved old entries' );
 
+my $manicontents = do {
+  local $/;
+  open my $fh, "MANIFEST" or die;
+  binmode $fh, ':raw';
+  <$fh>
+};
+is index($manicontents, "\015\012"), -1, 'MANIFEST no CRLF';
+
 {
     # EOL normalization in maniadd()