_LIB_VERSION scan was trying leading address twice.

Important with PERL_GLOBAL_STRUCT_PRIVATE.

diff --git a/t/porting/libperl.t b/t/porting/libperl.t
index d7276fe..7bd2198 100644 (file)
--- a/t/porting/libperl.t
+++ b/t/porting/libperl.t
@@ -206,7 +206,7 @@ sub nm_parse_gnu {
                 # Bb: uninitialized data (bss)
                 # Ss: uninitialized data "for small objects"
                 $symbols->{data}{bss}{$1}{$symbols->{o}}++;
-            } elsif (/^0{16} D _LIB_VERSION$/) {
+            } elsif (/^D _LIB_VERSION$/) {
                 # Skip the _LIB_VERSION (not ours, probably libm)
             } elsif (/^[DdGg] (\w+)$/) {
                 # Dd: initialized data