skip null siblings encountered by goto out of loopish block

(from Doug Lankshear)

p4raw-id: //depot/perl@5598

1 files changed, 6 insertions, 4 deletions

diff --git a/pp_ctl.c b/pp_ctl.c
index 22db833475..edbe7b19ab 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -2385,10 +2385,12 @@ PP(pp_goto)
 		gotoprobe = PL_main_root;
 		break;
 	    }
-	    retop = dofindlabel(gotoprobe, label,
-				enterops, enterops + GOTO_DEPTH);
-	    if (retop)
-		break;
+	    if (gotoprobe) {
+		retop = dofindlabel(gotoprobe, label,
+				    enterops, enterops + GOTO_DEPTH);
+		if (retop)
+		    break;
+	    }
 	    PL_lastgotoprobe = gotoprobe;
 	}
 	if (!retop)