projects / platform / upstream / perl.git / commit
? search:
summary | shortlog | log | commit | commitdiff | tree
(parent: 49dc05e) | patch
"weak" lock keyword (hardcoded initial implementation) now works.
authorGurusamy Sarathy <gsar@cpan.org>
Tue, 11 Nov 1997 00:26:09 +0000 (00:26 +0000)
committerGurusamy Sarathy <gsar@cpan.org>
Tue, 11 Nov 1997 00:26:09 +0000 (00:26 +0000)
commit6e7b23362bbae8d13123bf406d494975427fd06f
tree416e4b4f80936166e79b7eaba94d4a053074f184tree | snapshot
parent49dc05e34e370524b8b4de5368e27314830b2308commit | diff
"weak" lock keyword (hardcoded initial implementation) now works.
if not defined(&Thread::join) and defined(&__PACKAGE__::lock), 'lock'
is recognized as a sub, a regular keyword otherwise.  Could be
generalized by storing a flag for every op in OP struct, and turning
the flag off when Thread.xs loads.

p4raw-id: //depot/win32/perl@225
toke.c diff | blob | history
Domain: System / Base;