In perl.git, the branch smoke-me/jkeenan/133584-dump-becomes-core-dump has been 
updated

<https://perl5.git.perl.org/perl.git/commitdiff/86f5c2fa3384471b4fdcfbe9e86e999a805429a5?hp=83fa39d31bf7cdad410b8e421152c504a5658428>

  discards  83fa39d31bf7cdad410b8e421152c504a5658428 (commit)
  discards  380d73e68d9bfc8c376cd4838de11f6998329f13 (commit)
  discards  d8f652f2921ac0c66777ce52c0e4d92831e4ac87 (commit)
- Log -----------------------------------------------------------------
commit 86f5c2fa3384471b4fdcfbe9e86e999a805429a5
Author: James E Keenan <jkee...@cpan.org>
Date:   Fri Oct 12 23:17:46 2018 -0400

    Correct typo

commit 9003b09200cd13730f51675722cc25a1d6048e5b
Author: James E Keenan <jkee...@cpan.org>
Date:   Fri Oct 12 23:04:19 2018 -0400

    Adapt tests that previously warned
    
    Plus adapt one test that incidentally used dump().

commit 757ef89b6ac018a9eb2eae3e04c14cfd6162a4b4
Author: James E Keenan <jkee...@cpan.org>
Date:   Fri Oct 12 22:29:46 2018 -0400

    Implement fatalization of dump()
    
    Must now be written fully qualified: CORE::dump().

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

Summary of changes:
 ext/Devel-Peek/Peek.pm | 43 ++++++++++++++++++++-----------------------
 win32/config.gc        |  2 +-
 win32/config_H.gc      |  2 +-
 3 files changed, 22 insertions(+), 25 deletions(-)

diff --git a/ext/Devel-Peek/Peek.pm b/ext/Devel-Peek/Peek.pm
index 3d790e763a..bd56b86a60 100644
--- a/ext/Devel-Peek/Peek.pm
+++ b/ext/Devel-Peek/Peek.pm
@@ -3,7 +3,7 @@
 
 package Devel::Peek;
 
-$VERSION = '1.27';
+$VERSION = '1.28';
 $XS_VERSION = $VERSION;
 $VERSION = eval $VERSION;
 
@@ -411,28 +411,25 @@ The following shows the raw form of a reference to a hash.
 
 The output:
 
-       SV = IV(0x8177858) at 0x816a618
-         REFCNT = 1
-         FLAGS = (ROK)
-         RV = 0x814fc10
-         SV = PVHV(0x8167768) at 0x814fc10
-           REFCNT = 1
-           FLAGS = (SHAREKEYS)
-           ARRAY = 0x816c5b8  (0:7, 1:1)
-           hash quality = 100.0%
-           KEYS = 1
-           FILL = 1
-           MAX = 7
-           RITER = -1
-           EITER = 0x0
-           Elt "hello" HASH = 0xc8fd181b
-           SV = IV(0x816c030) at 0x814fcf4
-             REFCNT = 1
-             FLAGS = (IOK,pIOK)
-             IV = 42
-
-This shows C<$a> is a reference pointing to an SV.  That SV is a PVHV, a
-hash. Fields RITER and EITER are used by C<L<perlfunc/each>>.
+    SV = IV(0x55cb50b50fb0) at 0x55cb50b50fc0
+      REFCNT = 1
+      FLAGS = (ROK)
+      RV = 0x55cb50b2b758
+      SV = PVHV(0x55cb50b319c0) at 0x55cb50b2b758
+        REFCNT = 1
+        FLAGS = (SHAREKEYS)
+        ARRAY = 0x55cb50b941a0  (0:7, 1:1)
+        hash quality = 100.0%
+        KEYS = 1
+        FILL = 1
+        MAX = 7
+        Elt "hello" HASH = 0x3128ece4
+        SV = IV(0x55cb50b464f8) at 0x55cb50b46508
+          REFCNT = 1
+          FLAGS = (IOK,pIOK)
+          IV = 42
+
+This shows C<$a> is a reference pointing to an SV.  That SV is a PVHV, a hash.
 
 The "quality" of a hash is defined as the total number of comparisons needed
 to access every element once, relative to the expected number needed for a
diff --git a/win32/config.gc b/win32/config.gc
index 4477ebc04c..56f367f91d 100644
--- a/win32/config.gc
+++ b/win32/config.gc
@@ -117,7 +117,7 @@ d_bsdgetpgrp='undef'
 d_bsdsetpgrp='undef'
 d_builtin_add_overflow='undef'
 d_builtin_choose_expr='undef'
-d_builtin_expect='undef'
+d_builtin_expect='define'
 d_builtin_mul_overflow='undef'
 d_builtin_sub_overflow='undef'
 d_c99_variadic_macros='undef'
diff --git a/win32/config_H.gc b/win32/config_H.gc
index 87e90bac4b..756d4a7cf2 100644
--- a/win32/config_H.gc
+++ b/win32/config_H.gc
@@ -2319,7 +2319,7 @@
  *     Can we handle GCC builtin for telling that certain values are more
  *     likely
  */
-/*#define HAS_BUILTIN_EXPECT   / **/
+#define HAS_BUILTIN_EXPECT     /**/
 /*#define HAS_BUILTIN_CHOOSE_EXPR      / **/
 
 /* HAS_C99_VARIADIC_MACROS:

-- 
Perl5 Master Repository

Reply via email to