Parse and compile string- and num-specific bitops

Yay, the semicolons are back.

1 files changed, 1 insertions, 1 deletions

diff --git a/perly.y b/perly.y
index 80503604b2..9f10b8b375 100644
--- a/perly.y
+++ b/perly.y
@@ -829,7 +829,7 @@ termunop : '-' term %prec UMINUS                       /* -$x */
 	|	'!' term                               /* !$x */
 			{ $$ = newUNOP(OP_NOT, 0, scalar($2)); }
 	|	'~' term                               /* ~$x */
-			{ $$ = newUNOP(OP_COMPLEMENT, 0, scalar($2)); }
+			{ $$ = newUNOP($1, 0, scalar($2)); }
 	|	term POSTINC                           /* $x++ */
 			{ $$ = newUNOP(OP_POSTINC, 0,
 					op_lvalue(scalar($1), OP_POSTINC)); }