develooper Front page | perl.perl5.porters | Postings from June 2018

broken -DPERL_MEM_LOG build

Thread Next
From:
jim.cromie
Date:
June 30, 2018 02:28
Subject:
broken -DPERL_MEM_LOG build
Message ID:
CAJfuBxwCnu8CpStY23OjAUFCD_fONbTdjwT4zSieEzd_HHqK4w@mail.gmail.com
    opmini.o perlmini.o  gv.o toke.o perly.o pad.o regcomp.o dump.o
util.o mg.o reentr.o mro_core.o keywords.o hv.o av.o run.o pp_hot.o
sv.o pp.o scope.o pp_ctl.o pp_sys.o doop.o doio.o regexec.o utf8.o
taint.o deb.o universal.o globals.o perlio.o perlapi.o numeric.o
mathoms.o locale.o pp_pack.o pp_sort.o caretx.o dquote.o time64.o
miniperlmain.o  -lpthread -ldl -lm -lcrypt -lutil -lc
util.o: In function `S_mem_log_common':
/home/jimc/projects/perlcore/perl/util.c:4764: undefined reference to `stren'
/home/jimc/projects/perlcore/perl/util.c:4764: undefined reference to `stren'
/home/jimc/projects/perlcore/perl/util.c:4764: undefined reference to `stren'
/home/jimc/projects/perlcore/perl/util.c:4764: undefined reference to `stren'
/home/jimc/projects/perlcore/perl/util.c:4764: undefined reference to `stren'
util.o:/home/jimc/projects/perlcore/perl/util.c:4764: more undefined
references to `stren' follow

this fixed it here:

[jimc@buffy perl]$ git diff
diff --git a/util.c b/util.c
index 53fa197b60..9d3f5ba0f1 100644
--- a/util.c
+++ b/util.c
@@ -4761,7 +4761,7 @@ S_mem_log_common(enum mem_log_type mlt, const UV n,
         * timeval. */
        {
            STRLEN len;
-            const char* endptr = pmlenv + stren(pmlenv);
+            const char* endptr = pmlenv + strlen(pmlenv);
            int fd;
             UV uv;
             if (grok_atoUV(pmlenv, &uv, &endptr) /* Ignore endptr. */
[jimc@buffy perl]$

Thread Next


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