Make the large file tests more robust/talkative as suggested by

[p5sagit/p5-mst-13.2.git] / gv.c

diff --git a/gv.c b/gv.c
index fa830bf..3ff7e7f 100644 (file)
--- a/gv.c
+++ b/gv.c
@@ -1196,7 +1196,7 @@ Perl_Gv_AMupdate(pTHX_ HV *stash)
     for (i = 1; i < lim; i++)
        amt.table[i] = Nullcv;
     for (; i < NofAMmeth; i++) {
-       char *cooky = PL_AMG_names[i];
+       char *cooky = (char*)PL_AMG_names[i];
        /* Human-readable form, for debugging: */
        char *cp = (i >= DESTROY_amg ? cooky : AMG_id2name(i));
        STRLEN l = strlen(cooky);
@@ -1259,9 +1259,12 @@ CV*
 Perl_gv_handler(pTHX_ HV *stash, I32 id)
 {
     dTHR;
-    MAGIC *mg = mg_find((SV*)stash,'c');
+    MAGIC *mg;
     AMT *amtp;
 
+    if (!stash)
+        return Nullcv;
+    mg = mg_find((SV*)stash,'c');
     if (!mg) {
       do_update:
        Gv_AMupdate(stash);