In perl.git, the branch blead has been updated

<https://perl5.git.perl.org/perl.git/commitdiff/72c9c989fca94126940cb5a9cf4b4883864e127e?hp=88e4265ca263642612277ef33dd08ded69e4e4c5>

- Log -----------------------------------------------------------------
commit 72c9c989fca94126940cb5a9cf4b4883864e127e
Author: Craig A. Berry <[email protected]>
Date:   Sat Aug 31 14:10:07 2019 -0500

    -DDEBUGGING does not go in ccflags on VMS.
    
    But there is a platform-specific %Config entry for it so use that
    and avoid the assertion-induced failure of uv.t in debugging builds.

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

Summary of changes:
 dist/Devel-PPPort/parts/inc/uv | 3 ++-
 dist/Devel-PPPort/t/uv.t       | 3 ++-
 2 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/dist/Devel-PPPort/parts/inc/uv b/dist/Devel-PPPort/parts/inc/uv
index ca10d3153e..9dc6d9e9b9 100644
--- a/dist/Devel-PPPort/parts/inc/uv
+++ b/dist/Devel-PPPort/parts/inc/uv
@@ -570,7 +570,8 @@ else {
     # deliberately the first test.
     require Config; import Config;
     use vars '%Config';
-    if ($Config{ccflags} =~ /-DDEBUGGING/) {
+    if ($Config{ccflags} =~ /-DDEBUGGING/
+        || $^O eq 'VMS' && $Config{usedebugging_perl} eq 'Y') {
         shift @buf_tests;
         ok(1, 1) for 1..5;
     }
diff --git a/dist/Devel-PPPort/t/uv.t b/dist/Devel-PPPort/t/uv.t
index 7749b1fd17..f03678403b 100644
--- a/dist/Devel-PPPort/t/uv.t
+++ b/dist/Devel-PPPort/t/uv.t
@@ -159,7 +159,8 @@ else {
     # deliberately the first test.
     require Config; import Config;
     use vars '%Config';
-    if ($Config{ccflags} =~ /-DDEBUGGING/) {
+    if ($Config{ccflags} =~ /-DDEBUGGING/
+        || $^O eq 'VMS' && $Config{usedebugging_perl} eq 'Y') {
         shift @buf_tests;
         ok(1, 1) for 1..5;
     }

-- 
Perl5 Master Repository

Reply via email to