In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/be4a20f47dbbaec8334ad2c20e898e8d6f2adb65?hp=9c1f068a70493ee76b1e0fe3f95a09ae0306c700>
- Log ----------------------------------------------------------------- commit be4a20f47dbbaec8334ad2c20e898e8d6f2adb65 Author: Rafael Garcia-Suarez <[email protected]> Date: Thu Aug 6 22:12:47 2009 +0200 Make gv_IOadd accept a NULL argument This fixes bug #68182 ----------------------------------------------------------------------- Summary of changes: embed.fnc | 2 +- gv.c | 2 -- proto.h | 6 +----- 3 files changed, 2 insertions(+), 8 deletions(-) diff --git a/embed.fnc b/embed.fnc index deff9ad..54389d5 100644 --- a/embed.fnc +++ b/embed.fnc @@ -341,7 +341,7 @@ Ap |void |gp_free |NULLOK GV* gv Ap |GP* |gp_ref |NULLOK GP* gp Ap |GV* |gv_AVadd |NN GV* gv Ap |GV* |gv_HVadd |NN GV* gv -Ap |GV* |gv_IOadd |NN GV* gv +Ap |GV* |gv_IOadd |NULLOK GV* gv ApR |GV* |gv_autoload4 |NULLOK HV* stash|NN const char* name|STRLEN len|I32 method Ap |void |gv_check |NN const HV* stash Ap |void |gv_efullname |NN SV* sv|NN const GV* gv diff --git a/gv.c b/gv.c index f24a7f1..f16e0ac 100644 --- a/gv.c +++ b/gv.c @@ -84,8 +84,6 @@ Perl_gv_IOadd(pTHX_ register GV *gv) { dVAR; - PERL_ARGS_ASSERT_GV_IOADD; - if (!gv || SvTYPE((const SV *)gv) != SVt_PVGV) { /* diff --git a/proto.h b/proto.h index 53c738e..8241132 100644 --- a/proto.h +++ b/proto.h @@ -842,11 +842,7 @@ PERL_CALLCONV GV* Perl_gv_HVadd(pTHX_ GV* gv) #define PERL_ARGS_ASSERT_GV_HVADD \ assert(gv) -PERL_CALLCONV GV* Perl_gv_IOadd(pTHX_ GV* gv) - __attribute__nonnull__(pTHX_1); -#define PERL_ARGS_ASSERT_GV_IOADD \ - assert(gv) - +PERL_CALLCONV GV* Perl_gv_IOadd(pTHX_ GV* gv); PERL_CALLCONV GV* Perl_gv_autoload4(pTHX_ HV* stash, const char* name, STRLEN len, I32 method) __attribute__warn_unused_result__ __attribute__nonnull__(pTHX_2); -- Perl5 Master Repository
