Stories
Slash Boxes
Comments
NOTE: use Perl; is on undef hiatus. You can read content, but you can't post it. More info will be forthcoming forthcomingly.

All the Perl that's Practical to Extract and Report

The Fine Print: The following comments are owned by whoever posted them. We are not responsible for them in any way.
 Full
 Abbreviated
 Hidden
More | Login | Reply
Loading... please wait.
  • by Matts (1087) on 2010.01.04 17:19 (#71478) Journal

    Clang gives a few more details:

    KQueue.xs:71:5: warning: format string is not a string literal (potentially insecure)
        Newxz(ke, max_events, struct kevent);
        ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    /System/Library/Perl/5.10.0/darwin-thread- multi-2level/CORE/handy.h:776:28: note: instantiated from:
    #define Newxz(v,n,t)    (v = (MEM_WRAP_CHECK_(n,t) MEM_LOG_ALLOC(n,t,(t*)safecalloc((n),sizeof(t)))))
                                  ^
    /System/Library/Perl/5.10.0/darwin-thread-multi-2level/CORE/handy.h:704:30: note: instantiated from:
    #define MEM_WRAP_CHECK_(n,t) MEM_WRAP_CHECK(n,t),
                                 ^
    /System/Library/Perl/5.10.0/darwin-thread-multi-2level/CORE/handy.h:701:29: note: instantiated from:
    #define MEM_WRAP_CHECK(n,t) MEM_WRAP_CHECK_1(n,t,PL_memory_wrap)
                                ^

    • Never mind... It's just a buggette in the perl that ships with SL...

      MEM_WRAP_CHECK_1 is defined as:

      #define MEM_WRAP_CHECK_1(n,t,a) \
          (void)(sizeof(t) > 1 && ((MEM_SIZE)(n)+0.0) > MEM_SIZE_MAX/sizeof(t) && (Perl_croak_nocontext(a),0))

      Fix is to change it to:

      #define MEM_WRAP_CHECK_1(n,t,a) \
          (void)(sizeof(t) > 1 && ((MEM_SIZE)(n)+0.0) > MEM_SIZE_MAX/sizeof(t) && (Perl_croak_nocontext("%s",(a)),0))