From: Gurusamy Sarathy <gsar@cpan.org>
Date: Sat, 4 Dec 1999 21:55:27 +0000 (+0000)
Subject: make weak keyword check look for defined(&lock), not
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d0456cad3918fc93900d9454be6ff427d745b536;p=p5sagit%2Fp5-mst-13.2.git

make weak keyword check look for defined(&lock), not
merely defined(*lock)

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

diff --git a/toke.c b/toke.c
index b4377d1..8eac820 100644
--- a/toke.c
+++ b/toke.c
@@ -3502,6 +3502,7 @@ Perl_yylex(pTHX)
 	    }
 	    else if (gv && !gvp
 		     && -tmp==KEY_lock	/* XXX generalizable kludge */
+		     && GvCVu(gv)
 		     && !hv_fetch(GvHVn(PL_incgv), "Thread.pm", 9, FALSE))
 	    {
 		tmp = 0;		/* any sub overrides "weak" keyword */