Start support for fake threads.

pp_lock now returns its argument.

p4raw-id: //depot/perl@41

1 files changed, 1 insertions, 1 deletions

diff --git a/opcode.pl b/opcode.pl
index 89d076a57a..5250d57fe7 100755
--- a/opcode.pl
+++ b/opcode.pl
@@ -654,4 +654,4 @@ getlogin	getlogin		ck_null		st
 syscall		syscall			ck_fun		imst	S L
 
 # For multi-threading
-lock		lock			ck_null		is	S
+lock		lock			ck_null		s	S