In perl.git, the branch blead has been updated

<http://perl5.git.perl.org/perl.git/commitdiff/205ccfbcf5eebeeb73bce7d681468bd3e00c4dbc?hp=e2e878313e77becb4fe3ad805fdf68208421676f>

- Log -----------------------------------------------------------------
commit 205ccfbcf5eebeeb73bce7d681468bd3e00c4dbc
Author: Nicholas Clark <n...@ccl4.org>
Date:   Fri Jun 23 17:06:25 2017 +0200

    Bump ExtUtils::Constant version to 0.24.
    
    The Changes file is still horriby out of date, and the trickier-to-fix (or
    test) bugs remain open in RT, but it seems better to get a release out with
    the fixed bugs than delay it further whilst figuring out the cleanest way to
    fix the open bugs. The perfect is the enemy of the good.

M       Porting/Maintainers.pl
M       cpan/ExtUtils-Constant/lib/ExtUtils/Constant.pm

commit ed32b83fd02907c21b978f379845ccb9198db483
Author: Karl Williamson <k...@cpan.org>
Date:   Sat Nov 19 07:14:29 2016 -0700

    ExtUtils::Constant: Remove impediment to compiling under C++11
    
    C++11 changed from earlier versions to require space between the end of
    a string literal and a macro, so that a feature can unambiguously be
    added to the language.  Starting in g++ 6.2, the compiler emits a
    deprecation warning when there isn't a space (presumably so that future
    versions can support C++11).  This commit fixes ExtUtils::Constant
    
    This patch also changes any affected lines that exceed 79 columns, as
    specified by perlhack.
    
    Code and modules included with the Perl core need to be compilable using
    C++.  This is so that perl can be embedded in C++ programs. (Actually,
    only the hdr files need to be so compilable, but it would be hard to
    test that just the hdrs are compilable.)  So we need to accommodate
    changes to the C++ language.

M       cpan/ExtUtils-Constant/lib/ExtUtils/Constant/ProxySubs.pm

commit 389f3ef2fdfbba2c2816e7334a69a5f540c0a33d
Author: David Mitchell <da...@iabyn.com>
Date:   Mon Dec 15 16:14:13 2014 +0000

    EU::Constant: avoid 'uninit' warning
    
    The code generated by ExtUtils::Constant can look something like:
    
    static int
    constant (..., IV *iv_return) {
       switch (...) {
         case ...:
           *iv_return = ...;
           return PERL_constant_ISIV;
         ...
      }
    }
    
    {
        int type;
        IV iv;
        type = constant(..., &iv);
        switch (type) {
            case PERL_constant_ISIV:
                PUSHi(iv);
        ...
        }
    }
    
    and the compiler isn't clever enough to realise that the value of iv
    is only used in the code path where its been set.
    
    So initialise it to zero to shut gcc up. Ditto nv and pv.

M       cpan/ExtUtils-Constant/lib/ExtUtils/Constant.pm

commit f01c70a6a11a9c898652aeec8f08f7dcd6b835d2
Author: Daniel Dragan <bul...@hotmail.com>
Date:   Sun May 10 18:38:29 2015 -0400

    ExtUtils::Constant - better machine code on threaded perl
    
    croak doesnt require a context param to be pushed on the c stack,
    Perl_croak does, since Perl_croak/croak is very rarily called, minimize
    the machine code of the error branches
    
    don't do dTHX in thread aware XS code, this just sets up another my_perl
    var for the scope of const-xs BOOT sum masking the original declared
    my_perl in the outer C scope

M       cpan/ExtUtils-Constant/lib/ExtUtils/Constant/ProxySubs.pm

commit aa036315f696d82d2b87a4bc3c7661522db304f3
Author: Nicholas Clark <n...@ccl4.org>
Date:   Sat Jun 24 21:08:51 2017 +0200

    Typo fixes.
    
    Spotted by dsteinbrun...@pobox.com, reported as CPAN #85527.
    However, I think that the "to to" should be "to do", not "to".

M       cpan/ExtUtils-Constant/lib/ExtUtils/Constant/Base.pm
M       cpan/ExtUtils-Constant/lib/ExtUtils/Constant/Utils.pm

commit 357c35e6f18e65f372e7a1b22ee39a3c7c9e5810
Author: Robin Barker <rmbar...@cpan.org>
Date:   Mon Dec 17 18:20:14 2012 +0100

    Avoid compiler warnings due to mismatched types in *printf format strings.
    
    gcc (and probably others) was warning about a mismatch for between `int`
    (implied by the format %d) and the actual type passed, `line_t`. Avoid this
    by explicitly casting to UV, and using UVuf.
    
    CPAN #63832

M       cpan/ExtUtils-Constant/lib/ExtUtils/Constant/ProxySubs.pm
-----------------------------------------------------------------------

Summary of changes:
 Porting/Maintainers.pl                             |  4 +--
 cpan/ExtUtils-Constant/lib/ExtUtils/Constant.pm    |  8 +++---
 .../lib/ExtUtils/Constant/Base.pm                  |  7 +++--
 .../lib/ExtUtils/Constant/ProxySubs.pm             | 32 +++++++++++-----------
 .../lib/ExtUtils/Constant/Utils.pm                 |  4 +--
 5 files changed, 27 insertions(+), 28 deletions(-)

diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl
index f73c89bb23..8f52329946 100755
--- a/Porting/Maintainers.pl
+++ b/Porting/Maintainers.pl
@@ -432,7 +432,7 @@ use File::Glob qw(:case);
 
     'ExtUtils::Constant' => {
 
-        'DISTRIBUTION' => 'NWCLARK/ExtUtils-Constant-0.23.tar.gz',
+        'DISTRIBUTION' => 'NWCLARK/ExtUtils-Constant-0.24.tar.gz',
         'FILES'    => q[cpan/ExtUtils-Constant],
         'EXCLUDED' => [
             qw( lib/ExtUtils/Constant/Aaargh56Hash.pm
@@ -440,8 +440,6 @@ use File::Glob qw(:case);
                 examples/perl_regcomp_posix_keyword.pl
                 ),
         ],
-        # cc37ebcee3 to fix VMS failure
-        'CUSTOMIZED'   => [ qw(t/Constant.t) ],
     },
 
     'ExtUtils::Install' => {
diff --git a/cpan/ExtUtils-Constant/lib/ExtUtils/Constant.pm 
b/cpan/ExtUtils-Constant/lib/ExtUtils/Constant.pm
index 0dc925873d..3199ebf755 100644
--- a/cpan/ExtUtils-Constant/lib/ExtUtils/Constant.pm
+++ b/cpan/ExtUtils-Constant/lib/ExtUtils/Constant.pm
@@ -1,6 +1,6 @@
 package ExtUtils::Constant;
 use vars qw (@ISA $VERSION @EXPORT_OK %EXPORT_TAGS);
-$VERSION = 0.23;
+$VERSION = '0.24';
 
 =head1 NAME
 
@@ -198,17 +198,17 @@ $XS_subname(sv)
 EOT
 
   if ($params->{IV}) {
-    $xs .= "   IV              iv;\n";
+    $xs .= "   IV              iv = 0; /* avoid uninit var warning */\n";
   } else {
     $xs .= "   /* IV\t\tiv;\tUncomment this if you need to return IVs */\n";
   }
   if ($params->{NV}) {
-    $xs .= "   NV              nv;\n";
+    $xs .= "   NV              nv = 0.0; /* avoid uninit var warning */\n";
   } else {
     $xs .= "   /* NV\t\tnv;\tUncomment this if you need to return NVs */\n";
   }
   if ($params->{PV}) {
-    $xs .= "   const char      *pv;\n";
+    $xs .= "   const char      *pv = NULL; /* avoid uninit var warning */\n";
   } else {
     $xs .=
       "        /* const char\t*pv;\tUncomment this if you need to return PVs 
*/\n";
diff --git a/cpan/ExtUtils-Constant/lib/ExtUtils/Constant/Base.pm 
b/cpan/ExtUtils-Constant/lib/ExtUtils/Constant/Base.pm
index b6abe1c201..bd0d8a784b 100644
--- a/cpan/ExtUtils-Constant/lib/ExtUtils/Constant/Base.pm
+++ b/cpan/ExtUtils-Constant/lib/ExtUtils/Constant/Base.pm
@@ -5,7 +5,7 @@ use vars qw($VERSION);
 use Carp;
 use Text::Wrap;
 use ExtUtils::Constant::Utils qw(C_stringify perl_stringify);
-$VERSION = '0.05';
+$VERSION = '0.06';
 
 use constant is_perl56 => ($] < 5.007 && $] > 5.005_50);
 
@@ -331,7 +331,7 @@ of C code to proceed and follow the assignment. I<pre> will 
be at the start
 of a block, so variables may be defined in it.
 
 =cut
-# Hmm. value undef to to NOTDEF? value () to do NOTFOUND?
+# Hmm. value undef to do NOTDEF? value () to do NOTFOUND?
 
 sub assign {
   my $self = shift;
@@ -581,7 +581,8 @@ sub switch_clause {
     $body .= $indent . "case '" . C_stringify ($char) . "':\n";
     foreach my $thisone (sort {
        # Deal with the case of an item actually being an array ref to 1 or 2
-       # hashrefs. Don't assign to $a or $b, as they're aliases to the orignal
+       # hashrefs. Don't assign to $a or $b, as they're aliases to the
+        # original
        my $l = ref $a eq 'ARRAY' ? ($a->[0] || $->[1]) : $a;
        my $r = ref $b eq 'ARRAY' ? ($b->[0] || $->[1]) : $b;
        # Sort by weight first
diff --git a/cpan/ExtUtils-Constant/lib/ExtUtils/Constant/ProxySubs.pm 
b/cpan/ExtUtils-Constant/lib/ExtUtils/Constant/ProxySubs.pm
index 545d3221a0..0aee5233fe 100644
--- a/cpan/ExtUtils-Constant/lib/ExtUtils/Constant/ProxySubs.pm
+++ b/cpan/ExtUtils-Constant/lib/ExtUtils/Constant/ProxySubs.pm
@@ -9,7 +9,7 @@ require ExtUtils::Constant::XS;
 use ExtUtils::Constant::Utils qw(C_stringify);
 use ExtUtils::Constant::XS qw(%XS_TypeSet);
 
-$VERSION = '0.08';
+$VERSION = '0.09';
 @ISA = 'ExtUtils::Constant::XS';
 
 %type_to_struct =
@@ -268,7 +268,7 @@ EO_NOPCS
     SV *sv;
 
     if (!he) {
-        Perl_croak($athx "Couldn't add key '%s' to %%$package_sprintf_safe\::",
+        croak("Couldn't add key '%s' to %%$package_sprintf_safe\::",
                   name);
     }
     sv = HeVAL(he);
@@ -306,9 +306,8 @@ static int
 Im_sorry_Dave(pTHX_ SV *sv, MAGIC *mg)
 {
     PERL_UNUSED_ARG(mg);
-    Perl_croak(aTHX_
-              "Your vendor has not defined $package_sprintf_safe macro %"SVf
-              " used", sv);
+    croak("Your vendor has not defined $package_sprintf_safe macro %"SVf
+         " used", sv);
     NORETURN_FUNCTION_END;
 }
 
@@ -373,7 +372,7 @@ MISSING
     print $xs_fh <<"EOBOOT";
 BOOT:
   {
-#ifdef dTHX
+#if defined(dTHX) && !defined(PERL_NO_GET_CONTEXT)
     dTHX;
 #endif
     HV *symbol_table = get_hv("$symbol_table", GV_ADD);
@@ -491,9 +490,8 @@ EXPLODE
                HEK *hek;
 #endif
                if (!he) {
-                   Perl_croak($athx
-                              "Couldn't add key '%s' to 
%%$package_sprintf_safe\::",
-                              value_for_notfound->name);
+                   croak("Couldn't add key '%s' to %%$package_sprintf_safe\::",
+                         value_for_notfound->name);
                }
                sv = HeVAL(he);
                if (!SvOK(sv) && SvTYPE(sv) != SVt_PVGV) {
@@ -521,8 +519,8 @@ EXPLODE
                if (!hv_common(${c_subname}_missing, NULL, HEK_KEY(hek),
                               HEK_LEN(hek), HEK_FLAGS(hek), HV_FETCH_ISSTORE,
                               &PL_sv_yes, HEK_HASH(hek)))
-                   Perl_croak($athx "Couldn't add key '%s' to missing_hash",
-                              value_for_notfound->name);
+                   croak("Couldn't add key '%s' to missing_hash",
+                         value_for_notfound->name);
 #endif
 DONT
 
@@ -629,13 +627,15 @@ EOA
        if ((C_ARRAY_LENGTH(values_for_notfound) > 1)
            ? hv_exists_ent(${c_subname}_missing, sv, 0) : 0) {
            sv = newSVpvf("Your vendor has not defined $package_sprintf_safe 
macro %" SVf
-                         ", used at %" COP_FILE_F " line %d\\n", sv,
-                         COP_FILE(cop), CopLINE(cop));
+                         ", used at %" COP_FILE_F " line %" UVuf "\\n", 
+                         sv, COP_FILE(cop), (UV)CopLINE(cop));
        } else
 #endif
        {
-           sv = newSVpvf("%"SVf" is not a valid $package_sprintf_safe macro at 
%"
-                         COP_FILE_F " line %d\\n", sv, COP_FILE(cop), 
CopLINE(cop));
+           sv = newSVpvf("%" SVf
+                          " is not a valid $package_sprintf_safe macro at %"
+                         COP_FILE_F " line %" UVuf "\\n",
+                         sv, COP_FILE(cop), (UV)CopLINE(cop));
        }
        croak_sv(sv_2mortal(sv));
 EOC
@@ -671,7 +671,7 @@ $xs_subname(sv)
        } else
 #endif
        {
-           sv = newSVpvf("%"SVf" is not a valid $package_sprintf_safe macro",
+           sv = newSVpvf("%" SVf " is not a valid $package_sprintf_safe macro",
                          sv);
        }
        PUSHs(sv_2mortal(sv));
diff --git a/cpan/ExtUtils-Constant/lib/ExtUtils/Constant/Utils.pm 
b/cpan/ExtUtils-Constant/lib/ExtUtils/Constant/Utils.pm
index 9608256c34..37e53f06ff 100644
--- a/cpan/ExtUtils-Constant/lib/ExtUtils/Constant/Utils.pm
+++ b/cpan/ExtUtils-Constant/lib/ExtUtils/Constant/Utils.pm
@@ -6,7 +6,7 @@ use Carp;
 
 @ISA = 'Exporter';
 @EXPORT_OK = qw(C_stringify perl_stringify);
-$VERSION = '0.03';
+$VERSION = '0.04';
 
 use constant is_perl55 => ($] < 5.005_50);
 use constant is_perl56 => ($] < 5.007 && $] > 5.005_50);
@@ -46,7 +46,7 @@ sub C_stringify {
   # grr 5.6.1
   confess "Wide character in '$_' intended as a C identifier"
     if tr/\0-\377// != length;
-  # grr 5.6.1 moreso because its regexps will break on data that happens to
+  # grr 5.6.1 more so because its regexps will break on data that happens to
   # be utf8, which includes my 8 bit test cases.
   $_ = pack 'C*', unpack 'U*', $_ . pack 'U*' if is_perl56;
   s/\\/\\\\/g;

--
Perl5 Master Repository

Reply via email to