This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Update Module-Metadata to version 1.000031
authorKaren Etheridge <ether@cpan.org>
Tue, 24 Nov 2015 04:01:01 +0000 (20:01 -0800)
committerDavid Mitchell <davem@iabyn.com>
Tue, 24 Nov 2015 15:28:01 +0000 (15:28 +0000)
1.000031  2015-11-24 03:57:55Z (TRIAL RELEASE)
  - be less noisy on failure when building as part of perl core (see perl
    RT#126685)

cpan/Module-Metadata/lib/Module/Metadata.pm
cpan/Module-Metadata/t/extract-version.t

index cc05549..f7017cf 100644 (file)
@@ -1,6 +1,6 @@
 # -*- mode: cperl; tab-width: 8; indent-tabs-mode: nil; basic-offset: 2 -*-
 # vim:ts=8:sw=2:et:sta:sts=2
-package Module::Metadata; # git description: v1.000029-6-gae0d3b6
+package Module::Metadata; # git description: v1.000030-2-g52f466c
 # ABSTRACT: Gather package and POD information from perl module files
 
 # Adapted from Perl-licensed code originally distributed with
@@ -14,7 +14,7 @@ sub __clean_eval { eval $_[0] }
 use strict;
 use warnings;
 
-our $VERSION = '1.000030'; # TRIAL
+our $VERSION = '1.000031'; # TRIAL
 
 use Carp qw/croak/;
 use File::Spec;
@@ -820,7 +820,7 @@ Module::Metadata - Gather package and POD information from perl module files
 
 =head1 VERSION
 
-version 1.000030
+version 1.000031
 
 =head1 SYNOPSIS
 
index f1d8d21..278a602 100644 (file)
@@ -669,19 +669,19 @@ foreach my $test_case (@modules) {
         ok(
           $test_case->{all_versions}->($pm_info->{versions}),
           "case '$test_case->{name}': all extracted versions passes match sub"
-        ) or diag 'found versions: ', explain $pm_info->{versions};
+        );
       }
       else {
         is_deeply(
           $pm_info->{versions},
           $test_case->{all_versions},
           'correctly found all $VERSIONs',
-        ) or diag 'found versions: ', explain $pm_info->{versions};
+        );
       }
     }
 
     is( $warnings, '', "case '$test_case->{name}': no warnings from parsing" ) or $errs++;
-    diag Dumper({ got => $pm_info->version, module_contents => $code }) if $errs;
+    diag 'extracted versions: ', explain({ got => $pm_info->{versions}, module_contents => $code }) if !$ENV{PERL_CORE} && $errs;
   }
 }
 continue {