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);


Reply via email to