diff options
author | Karl Williamson <public@khwilliamson.com> | 2011-11-20 09:03:26 -0700 |
---|---|---|
committer | Karl Williamson <public@khwilliamson.com> | 2012-01-09 22:28:56 -0700 |
commit | db9578e9be418e543b77569d5ec4cb2afd627a6a (patch) | |
tree | 958809615289e48a32818a41e24b8809a9cf54cd | |
parent | 2c5a453b2709abd936cde8aa7e5c9e924c400a70 (diff) | |
download | perl-db9578e9be418e543b77569d5ec4cb2afd627a6a.tar.gz |
embed.fnc: swash_init() return value should not be ignored
Otherwise can have memory leaks
-rw-r--r-- | embed.fnc | 2 | ||||
-rw-r--r-- | proto.h | 1 |
2 files changed, 2 insertions, 1 deletions
@@ -1354,7 +1354,7 @@ Apd |void |sv_vsetpvfn |NN SV *const sv|NN const char *const pat|const STRLEN pa |NULLOK va_list *const args|NULLOK SV **const svargs \ |const I32 svmax|NULLOK bool *const maybe_tainted ApR |NV |str_to_version |NN SV *sv -Ap |SV* |swash_init |NN const char* pkg|NN const char* name|NN SV* listsv|I32 minbits|I32 none +ApR |SV* |swash_init |NN const char* pkg|NN const char* name|NN SV* listsv|I32 minbits|I32 none Ap |UV |swash_fetch |NN SV *swash|NN const U8 *ptr|bool do_utf8 #ifdef PERL_IN_REGCOMP_C EiMR |SV* |add_cp_to_invlist |NULLOK SV* invlist|const UV cp @@ -4387,6 +4387,7 @@ PERL_CALLCONV UV Perl_swash_fetch(pTHX_ SV *swash, const U8 *ptr, bool do_utf8) assert(swash); assert(ptr) PERL_CALLCONV SV* Perl_swash_init(pTHX_ const char* pkg, const char* name, SV* listsv, I32 minbits, I32 none) + __attribute__warn_unused_result__ __attribute__nonnull__(pTHX_1) __attribute__nonnull__(pTHX_2) __attribute__nonnull__(pTHX_3); |