Handle undefined values correctly

[perl5.git] / opcode.h

diff --git a/opcode.h b/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 */