This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Use ck_null for ~.
[perl5.git] / opcode.h
index 2556a01..ba3bd9e 100644 (file)
--- a/opcode.h
+++ b/opcode.h
@@ -1487,7 +1487,7 @@ EXT Perl_check_t PL_check[] /* or perlvars.h */
        Perl_ck_null,           /* not */
        Perl_ck_bitop,          /* complement */
        Perl_ck_bitop,          /* ncomplement */
-       Perl_ck_bitop,          /* scomplement */
+       Perl_ck_null,           /* scomplement */
        Perl_ck_smartmatch,     /* smartmatch */
        Perl_ck_fun,            /* atan2 */
        Perl_ck_fun,            /* sin */