Author: stas Date: Fri Jul 8 12:06:22 2005 New Revision: 209858 URL: http://svn.apache.org/viewcvs?rev=209858&view=rev Log: perl blead fix: HvNAME() may return 0 (fixing a warning for a potential strlen(0))
Modified: perl/modperl/trunk/src/modules/perl/modperl_mgv.c Modified: perl/modperl/trunk/src/modules/perl/modperl_mgv.c URL: http://svn.apache.org/viewcvs/perl/modperl/trunk/src/modules/perl/modperl_mgv.c?rev=209858&r1=209857&r2=209858&view=diff ============================================================================== --- perl/modperl/trunk/src/modules/perl/modperl_mgv.c (original) +++ perl/modperl/trunk/src/modules/perl/modperl_mgv.c Fri Jul 8 12:06:22 2005 @@ -320,8 +320,17 @@ MpHandlerMETHOD_On(handler); } + if (!stash) { + return 0; + } + + if (MpHandlerMETHOD(handler) && !handler->mgv_obj) { - modperl_mgv_new_name(handler->mgv_obj, p, HvNAME(stash)); + char *name = HvNAME(stash); + if (!name) { + name = ""; + } + modperl_mgv_new_name(handler->mgv_obj, p, name); } handler->attrs = (U32)MP_CODE_ATTRS(cv);