From 956be2d47c8be1238119303e892c672d5de736ad Mon Sep 17 00:00:00 2001
From: Father Chrysostomos <sprout@cpan.org>
Date: Wed, 29 Aug 2012 08:36:40 -0700
Subject: 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.
---
 toke.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'toke.c')

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? */
-- 
cgit v1.2.1