This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Make undef use ck_fun and OA_SCALARREF
[perl5.git] / opcode.h
index 0a9628d..f4946c2 100644 (file)
--- a/opcode.h
+++ b/opcode.h
@@ -1360,7 +1360,7 @@ EXT Perl_check_t PL_check[] /* or perlvars.h */
        Perl_ck_spair,          /* chomp */
        Perl_ck_null,           /* schomp */
        Perl_ck_defined,        /* defined */
-       Perl_ck_lfun,           /* undef */
+       Perl_ck_fun,            /* undef */
        Perl_ck_fun,            /* study */
        Perl_ck_lfun,           /* pos */
        Perl_ck_lfun,           /* preinc */
@@ -1746,7 +1746,7 @@ EXTCONST U32 PL_opargs[] = {
        0x00002b1d,     /* chomp */
        0x00009b9c,     /* schomp */
        0x00009b84,     /* defined */
-       0x00009b04,     /* undef */
+       0x0000fb04,     /* undef */
        0x00009b84,     /* study */
        0x00009b8c,     /* pos */
        0x00001164,     /* preinc */