From: Gurusamy Sarathy <gsar@cpan.org>
Date: Tue, 7 Mar 2000 18:21:58 +0000 (+0000)
Subject: skip null siblings encountered by goto out of loopish block
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2b5976624a008328c9eb1ed9bae407454941a4cd;p=p5sagit%2Fp5-mst-13.2.git

skip null siblings encountered by goto out of loopish block
(from Doug Lankshear)

p4raw-id: //depot/perl@5598
---

diff --git a/pp_ctl.c b/pp_ctl.c
index 22db833..edbe7b1 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)