Fix a perl5140delta typo in F<> markup.

[perl5.git] / opcode.h

diff --git a/opcode.h b/opcode.h
index d747d9a..10dc22a 100644 (file)
--- a/opcode.h
+++ b/opcode.h
@@ -521,6 +521,7 @@ EXTCONST char* const PL_op_name[] = {
        "rvalues",
        "coreargs",
        "runcv",
+       "fc",
 };
 #endif
 
@@ -901,6 +902,7 @@ EXTCONST char* const PL_op_desc[] = {
        "values on reference",
        "CORE:: subroutine",
        "__SUB__",
+       "fc",
 };
 #endif
 
@@ -1295,6 +1297,7 @@ EXT Perl_ppaddr_t PL_ppaddr[] /* or perlvars.h */
        Perl_pp_rvalues,        /* implemented by Perl_pp_rkeys */
        Perl_pp_coreargs,
        Perl_pp_runcv,
+       Perl_pp_fc,
 }
 #endif
 #ifdef PERL_PPADDR_INITED
@@ -1357,9 +1360,9 @@ 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_fun,            /* pos */
        Perl_ck_lfun,           /* preinc */
        Perl_ck_lfun,           /* i_preinc */
        Perl_ck_lfun,           /* predec */
@@ -1430,7 +1433,7 @@ EXT Perl_check_t PL_check[] /* or perlvars.h */
        Perl_ck_fun,            /* vec */
        Perl_ck_index,          /* index */
        Perl_ck_index,          /* rindex */
-       Perl_ck_fun,            /* sprintf */
+       Perl_ck_lfun,           /* sprintf */
        Perl_ck_fun,            /* formline */
        Perl_ck_fun,            /* ord */
        Perl_ck_fun,            /* chr */
@@ -1545,8 +1548,8 @@ EXT Perl_check_t PL_check[] /* or perlvars.h */
        Perl_ck_fun,            /* sysread */
        Perl_ck_fun,            /* syswrite */
        Perl_ck_eof,            /* eof */
-       Perl_ck_fun,            /* tell */
-       Perl_ck_fun,            /* seek */
+       Perl_ck_tell,           /* tell */
+       Perl_ck_tell,           /* seek */
        Perl_ck_trunc,          /* truncate */
        Perl_ck_fun,            /* fcntl */
        Perl_ck_fun,            /* ioctl */
@@ -1593,7 +1596,7 @@ EXT Perl_check_t PL_check[] /* or perlvars.h */
        Perl_ck_ftst,           /* fttty */
        Perl_ck_ftst,           /* fttext */
        Perl_ck_ftst,           /* ftbinary */
-       Perl_ck_chdir,          /* chdir */
+       Perl_ck_trunc,          /* chdir */
        Perl_ck_fun,            /* chown */
        Perl_ck_fun,            /* chroot */
        Perl_ck_fun,            /* unlink */
@@ -1686,6 +1689,7 @@ EXT Perl_check_t PL_check[] /* or perlvars.h */
        Perl_ck_each,           /* rvalues */
        Perl_ck_null,           /* coreargs */
        Perl_ck_null,           /* runcv */
+       Perl_ck_fun,            /* fc */
 }
 #endif
 #ifdef PERL_CHECK_INITED
@@ -1742,9 +1746,9 @@ EXTCONST U32 PL_opargs[] = {
        0x00002b1d,     /* chomp */
        0x00009b9c,     /* schomp */
        0x00009b84,     /* defined */
-       0x00009b04,     /* undef */
+       0x0000fb04,     /* undef */
        0x00009b84,     /* study */
-       0x00009b8c,     /* pos */
+       0x0000fb8c,     /* pos */
        0x00001164,     /* preinc */
        0x00001144,     /* i_preinc */
        0x00001164,     /* predec */
@@ -1760,7 +1764,7 @@ EXTCONST U32 PL_opargs[] = {
        0x0001121e,     /* i_divide */
        0x0001123e,     /* modulo */
        0x0001121e,     /* i_modulo */
-       0x00012209,     /* repeat */
+       0x0001220b,     /* repeat */
        0x0001123e,     /* add */
        0x0001121e,     /* i_add */
        0x0001123e,     /* subtract */
@@ -1843,7 +1847,7 @@ EXTCONST U32 PL_opargs[] = {
        0x00024401,     /* hslice */
        0x00004b00,     /* boolkeys */
        0x00091480,     /* unpack */
-       0x0002140d,     /* pack */
+       0x0002140f,     /* pack */
        0x00111408,     /* split */
        0x0002140d,     /* join */
        0x00002401,     /* list */
@@ -2071,6 +2075,7 @@ EXTCONST U32 PL_opargs[] = {
        0x00001b08,     /* rvalues */
        0x00000600,     /* coreargs */
        0x00000004,     /* runcv */
+       0x00009b8e,     /* fc */
 };
 #endif