develooper Front page | perl.perl5.changes | Postings from October 2019

[perl.git] branch blead updated. v5.31.4-352-g676d803378

From:
Nicolas Rochelemagne
Date:
October 11, 2019 20:51
Subject:
[perl.git] branch blead updated. v5.31.4-352-g676d803378
Message ID:
E1iJ1sf-0003Ko-0G@git.dc.perl.space
In perl.git, the branch blead has been updated

<https://perl5.git.perl.org/perl.git/commitdiff/676d803378b16a66e7f31c55aaf8581338b039fa?hp=04d3d25b9ee16b497deab0004dec131e4a4ebd9b>

- Log -----------------------------------------------------------------
commit 676d803378b16a66e7f31c55aaf8581338b039fa
Author: Nicolas R <atoomic@cpan.org>
Date:   Tue Oct 1 09:01:30 2019 -0600

    Fix p5-Text-Xslate on Perl 5.8.5
    
    Fixes #140
    
    This is a patch from @pali, to fix the
    failure seen by @skaji on p5-Text-Xslate.
    
    (cherry picked from commit 923705f8512cc1f17b01de6008d52f865f63b856)
    Signed-off-by: Nicolas R <atoomic@cpan.org>

commit d6dd7bfa551631ac50ca10d21791869d7499204e
Author: Nicolas R <atoomic@cpan.org>
Date:   Tue Oct 1 08:58:27 2019 -0600

    Add a comment to point to the value used for __MAX_PERL__
    
    (cherry picked from commit 3ffaa936e47410a206f29ab391151a4c0a729c0d)
    Signed-off-by: Nicolas R <atoomic@cpan.org>

commit d2c356678d3586bcbd9c080bce6cd6f6c99b598c
Author: Nicolas R <atoomic@cpan.org>
Date:   Tue Oct 1 08:46:01 2019 -0600

    Update bugtracker and repository URLs
    
    (cherry picked from commit 0d853a6437ac479adece3251b9873ddc8d33c14d)
    Signed-off-by: Nicolas R <atoomic@cpan.org>

commit 8a3f88ffff017b157d5260e5dbdbf45878805db0
Author: Nicolas R <atoomic@cpan.org>
Date:   Tue Oct 1 08:44:15 2019 -0600

    Adjust Makefile.PL for devel versions
    
    (cherry picked from commit 494fc7f6c6b46dd46315bb4d5f8a11d8783e19c6)
    Signed-off-by: Nicolas R <atoomic@cpan.org>

commit bc5db3a4a2e5dcf3e113c2804213169183833aca
Author: Karl Williamson <khw@cpan.org>
Date:   Sun Sep 29 12:00:59 2019 -0600

    parts/inc/misc: Fix EBCDIC build problem
    
    An extra paren got in there.
    
    (cherry picked from commit 6e7177508616091a7424141d698ed1be7c6b123e)
    Signed-off-by: Nicolas R <atoomic@cpan.org>

commit d747fab59d3f9e0329783fa2906672c82ed01373
Author: Karl Williamson <khw@cpan.org>
Date:   Fri Sep 27 11:02:43 2019 -0600

    utf8_to_uvchr_buf: Fix error checking on early EBCDICs
    
    This code assumed ASCII platforms.  It only gets executed in the face of
    malformed UTF-8.
    
    (cherry picked from commit b54c9ed809465200054ed546da72925d185992ca)
    Signed-off-by: Nicolas R <atoomic@cpan.org>

commit 0f4e575f8076ead5fbebf677715696bb17408157
Author: Nicolas R <atoomic@cpan.org>
Date:   Fri Sep 27 18:33:43 2019 -0600

    Update Changes for 3.54 release
    
    (cherry picked from commit 14cac67ed47533fa116c6e1c26a839a8ca0a5edc)
    Signed-off-by: Nicolas R <atoomic@cpan.org>

commit b8c99c3f5cd618bde30adafdb6dba0418cb5c9d3
Author: Nicolas R <atoomic@cpan.org>
Date:   Fri Sep 27 18:23:44 2019 -0600

    Changelog for for 3.53
    
    (cherry picked from commit 9e59620bb324c50de0c8c379b126f1fc23172d06)
    Signed-off-by: Nicolas R <atoomic@cpan.org>

-----------------------------------------------------------------------

Summary of changes:
 dist/Devel-PPPort/Changes          | 27 +++++++++++++++++++++++++++
 dist/Devel-PPPort/Makefile.PL      |  8 ++++----
 dist/Devel-PPPort/PPPort_pm.PL     |  2 +-
 dist/Devel-PPPort/parts/inc/Sv_set | 30 +++++++++++++++++++++---------
 dist/Devel-PPPort/parts/inc/misc   |  1 -
 dist/Devel-PPPort/parts/inc/utf8   |  7 ++++++-
 6 files changed, 59 insertions(+), 16 deletions(-)

diff --git a/dist/Devel-PPPort/Changes b/dist/Devel-PPPort/Changes
index ce9add54ea..f01d8c7a5b 100644
--- a/dist/Devel-PPPort/Changes
+++ b/dist/Devel-PPPort/Changes
@@ -1,5 +1,32 @@
 Revision history for Devel-PPPort
 
+ 3.54 - 2019-09-27
+
+  * Fix Unix-format path in Devel::PPPort's Makefile.PL
+  * Fix utf8_to_uvchr_buf for 5.7.0
+  * Add hint for utf8_to_uvchr()
+  * Fix hints for is_ascii_string
+  * Use numeric comparisons with $]
+  * Fix 'for loops' to work on early perls
+  * Can't use GCC brace groups before 5.4
+  * Add script to regenerate ppport.fnc
+  * Suppress useless warning
+  * Fix mktests.PL for Perl 5.8.0
+  * Implement sv_len_utf8_nomg() and sv_len_utf8()
+  * Fix eval_pv for Perl versions prior to 5.31.2
+  * Consolidate UTF-8 functions/macros into new file
+  * Implement sv_mortalcopy_flags()
+  * Implement newSVsv_flags()
+  * Enable Perl compile-time warnings at all place
+  * Improve Makefile.PL
+  * Add tests for IVdf, UVuf, IV_MAX and UV_MAX
+
+ 3.53 - 2019-09-27
+
+  * Rename PPPort_xs.PL to RealPPPort_xs.PL
+  * Fix compilation issues with version older than 5.010
+  * Fix compilation issues with version older than 5.010
+
  3.52 - 2019-05-14
 
    * fix utf8_to_uvchr_buf retval in 5.30
diff --git a/dist/Devel-PPPort/Makefile.PL b/dist/Devel-PPPort/Makefile.PL
index 66c470304e..cd0c49325e 100644
--- a/dist/Devel-PPPort/Makefile.PL
+++ b/dist/Devel-PPPort/Makefile.PL
@@ -71,7 +71,7 @@ sub configure
     my $version;
     my $line;
     while ($line = <FH>) {
-      ($version) = $line =~ /^\$VERSION = '([\d.]+)';$/ and last;
+      ($version) = $line =~ /^\$VERSION = '([\d.]+(_\d+)?)';$/ and last;
     };
     die 'failed to extract $VERSION from PPPort_pm.PL' if not $version;
     close FH;
@@ -86,12 +86,12 @@ sub configure
       },
       resources => {
         bugtracker => {
-          web => 'https://rt.perl.org/rt3/',
+          web => 'https://github.com/Dual-Life/Devel-PPPort/issues',
         },
         repository => {
           type => 'git',
-          url  => 'git://perl5.git.perl.org/perl.git',
-          web  => 'https://perl5.git.perl.org/perl.git',
+          url  => 'git://github.com/Dual-Life/Devel-PPPort.git',
+          web  => 'https://github.com/Dual-Life/Devel-PPPort',
         },
       },
     };
diff --git a/dist/Devel-PPPort/PPPort_pm.PL b/dist/Devel-PPPort/PPPort_pm.PL
index 4b495c9305..a93d2e5de1 100644
--- a/dist/Devel-PPPort/PPPort_pm.PL
+++ b/dist/Devel-PPPort/PPPort_pm.PL
@@ -106,7 +106,7 @@ my @todo_list = reverse sort keys %todo;
 # directories are empty (which should only happen during regeneration of the
 # base and todo files).).  Actually the final element is for blead (at the
 # time things were regenerated), which is 1 beyond the max version supported.
-my $INT_MAX_PERL = (@todo_list) ? $todo_list[0] - 1 : '5030000';
+my $INT_MAX_PERL = (@todo_list) ? $todo_list[0] - 1 : '5030000'; # used for __MAX_PERL__
 my $MAX_PERL = format_version($INT_MAX_PERL);
 my $INT_MIN_PERL = (@todo_list) ? $todo_list[-1] : 5003007;
 my $MIN_PERL = format_version($INT_MIN_PERL);
diff --git a/dist/Devel-PPPort/parts/inc/Sv_set b/dist/Devel-PPPort/parts/inc/Sv_set
index 97533a642b..2e2b0d5b8b 100644
--- a/dist/Devel-PPPort/parts/inc/Sv_set
+++ b/dist/Devel-PPPort/parts/inc/Sv_set
@@ -25,15 +25,15 @@ sv_setsv_flags
 #if ( { VERSION >= 5.7.3 } && { VERSION < 5.8.7 } ) || ( { VERSION >= 5.9.0 } && { VERSION < 5.9.2 } )
 #undef sv_setsv_flags
 #define SV_NOSTEAL 16
-#define sv_setsv_flags(dstr, sstr, flags)                                \
-  STMT_START {                                                           \
-    if (((flags) & SV_NOSTEAL) && (SvFLAGS((sstr)) & SVs_TEMP)) {        \
-      SvTEMP_off((sstr));                                                \
-      Perl_sv_setsv_flags(aTHX_ (dstr), (sstr), (flags) & ~SV_NOSTEAL);  \
-      SvTEMP_on((sstr));                                                 \
-    } else {                                                             \
-      Perl_sv_setsv_flags(aTHX_ (dstr), (sstr), (flags) & ~SV_NOSTEAL);  \
-    }                                                                    \
+#define sv_setsv_flags(dstr, sstr, flags)                                          \
+  STMT_START {                                                                     \
+    if (((flags) & SV_NOSTEAL) && (sstr) && (SvFLAGS((SV *)(sstr)) & SVs_TEMP)) {  \
+      SvTEMP_off((SV *)(sstr));                                                    \
+      Perl_sv_setsv_flags(aTHX_ (dstr), (sstr), (flags) & ~SV_NOSTEAL);            \
+      SvTEMP_on((SV *)(sstr));                                                     \
+    } else {                                                                       \
+      Perl_sv_setsv_flags(aTHX_ (dstr), (sstr), (flags) & ~SV_NOSTEAL);            \
+    }                                                                              \
   } STMT_END
 #endif
 
@@ -160,6 +160,18 @@ newSVsv_nomg(sv)
 
 #endif
 
+void
+sv_setsv_compile_test(sv)
+        SV *sv
+        CODE:
+                sv_setsv(sv, NULL);
+#ifdef sv_setsv_flags
+                sv_setsv_flags(sv, NULL, 0);
+#ifdef SV_NOSTEAL
+                sv_setsv_flags(sv, NULL, SV_NOSTEAL);
+#endif
+#endif
+
 =tests plan => 15
 
 my $foo = 5;
diff --git a/dist/Devel-PPPort/parts/inc/misc b/dist/Devel-PPPort/parts/inc/misc
index 89b6dc9751..1743e5d6b3 100644
--- a/dist/Devel-PPPort/parts/inc/misc
+++ b/dist/Devel-PPPort/parts/inc/misc
@@ -403,7 +403,6 @@ __UNDEFINED__ isCNTRL(c)    (    (c) == '\0' || (c) == '\a' || (c) == '\b'
 /* The controls are everything below blank, plus one outlier */
 __UNDEFINED__ isCNTRL_L1(c) ((WIDEST_UTYPE) (c) < ' '                           \
                           || (WIDEST_UTYPE) (c) == D_PPP_OUTLIER_CONTROL)
-                            )
 /* The ordering of the tests in this and isUPPER are to exclude most characters
  * early */
 __UNDEFINED__ isLOWER(c)    (        (c) >= 'a' && (c) <= 'z'                   \
diff --git a/dist/Devel-PPPort/parts/inc/utf8 b/dist/Devel-PPPort/parts/inc/utf8
index 8a7271d8d5..0e91c07e40 100644
--- a/dist/Devel-PPPort/parts/inc/utf8
+++ b/dist/Devel-PPPort/parts/inc/utf8
@@ -306,7 +306,12 @@ utf8_to_uvchr_buf(pTHX_ const U8 *s, const U8 *send, STRLEN *retlen)
                 *retlen = D_PPP_MIN(*retlen, curlen);
                 *retlen = D_PPP_MIN(*retlen, UTF8SKIP(s));
                 do {
-                    if (s[i] < 0x80 || s[i] > 0xBF) {
+#      ifdef UTF8_IS_CONTINUATION
+                    if (! UTF8_IS_CONTINUATION(s[i]))
+#      else       /* Versions without the above don't support EBCDIC anyway */
+                    if (s[i] < 0x80 || s[i] > 0xBF)
+#      endif
+                    {
                         *retlen = i;
                         break;
                     }

-- 
Perl5 Master Repository



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About