perl 4.0 patch 36: (combined patch)

Since Ed Barton sent me a patch for the malignent form of "Malformed
cmd links", I finally broke down and made a patch for the various
other little things that have been accumulating on version 4.

Author: Larry Wall

cons.c

@@ -85,6 +85,7 @@ CMD *cmd;
 	    Nullarg,mycompblock));
 	saw_return = FALSE;
 	cmd->c_flags |= CF_TERM;
+	cmd->c_head = cmd;
     }
     sub->cmd = cmd;
     if (perldb) {
@@ -1353,7 +1354,8 @@ int willsave;				/* willsave passes down the tree */
 
 		    /* in any event, save the iterator */
 
-		    (void)apush(tosave,cmd->c_short);
+		    if (cmd->c_short)  /* Better safe than sorry */
+			(void)apush(tosave,cmd->c_short);
 		}
 		shouldsave |= tmpsave;
 	    }
@@ -1420,7 +1422,7 @@ int willsave;
 	shouldsave = TRUE;
 	break;
     }
-    if (willsave)
+    if (willsave && arg->arg_ptr.arg_str)
 	(void)apush(tosave,arg->arg_ptr.arg_str);
     return shouldsave;
 }