Avoid uninit warning for qq|${\<<FOO}|

If a here-doc occurs inside a single-line quote-like operator inside
a file (as opposed to an eval), it produces an uninitialized warning.
The goto I added in commit 99bd9d90 wentto the wrong place.

1 files changed, 1 insertions, 1 deletions

diff --git a/toke.c b/toke.c
index 665f977d56..0a74efefcf 100644
--- a/toke.c
+++ b/toke.c
@@ -9751,8 +9751,8 @@ S_scan_heredoc(pTHX_ register char *s)
 	s = olds;
     }
     else
+      streaming:
 	sv_setpvs(tmpstr,"");   /* avoid "uninitialized" warning */
-  streaming:
     term = PL_tokenbuf[1];
     len--;
     while (s >= PL_bufend) {	/* multiple line string? */