Make pos use ck_fun and OA_SCALARREF

See the previous commit.  The same applies here.

In short, this allows core_prototype and pp_coreargs to be simpler.

diff --git a/opcode.h b/opcode.h
index f4946c2..f33f124 100644 (file)
--- a/opcode.h
+++ b/opcode.h
@@ -1362,7 +1362,7 @@ EXT Perl_check_t PL_check[] /* or perlvars.h */
        Perl_ck_defined,        /* defined */
        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 */
@@ -1748,7 +1748,7 @@ EXTCONST U32 PL_opargs[] = {
        0x00009b84,     /* defined */
        0x0000fb04,     /* undef */
        0x00009b84,     /* study */
-       0x00009b8c,     /* pos */
+       0x0000fb8c,     /* pos */
        0x00001164,     /* preinc */
        0x00001144,     /* i_preinc */
        0x00001164,     /* predec */

diff --git a/regen/opcodes b/regen/opcodes
index 592eceb..d92c397 100644 (file)
--- a/regen/opcodes
+++ b/regen/opcodes
@@ -105,7 +105,7 @@ schomp              scalar chomp            ck_null         sTu%    S?
 defined                defined operator        ck_defined      isu%    S?
 undef          undef operator          ck_fun          s%      R?
 study          study                   ck_fun          su%     S?
-pos            match position          ck_lfun         stu%    S?
+pos            match position          ck_fun          stu%    R?
 
 preinc         preincrement (++)               ck_lfun         dIs1    S
 i_preinc       integer preincrement (++)       ck_lfun         dis1    S