[inseparable changes from patch from perl5.003_11 to perl5.003_12]

[p5sagit/p5-mst-13.2.git] / opcode.pl

diff --git a/opcode.pl b/opcode.pl
index d679d8a..b231933 100755 (executable)
--- a/opcode.pl
+++ b/opcode.pl
@@ -1,5 +1,6 @@
 #!/usr/bin/perl
 
+unlink "opcode.h";
 open(OC, ">opcode.h") || die "Can't create opcode.h: $!\n";
 select OC;
 
@@ -213,7 +214,7 @@ rv2gv               ref-to-glob cast        ck_rvconst      ds
 rv2sv          scalar deref            ck_rvconst      ds      
 av2arylen      array length            ck_null         is      
 rv2cv          subroutine deref        ck_rvconst      d
-anoncode       anonymous subroutine    ck_null         0       
+anoncode       anonymous subroutine    ck_anoncode     0       
 prototype      subroutine prototype    ck_null         s       S
 refgen         reference constructor   ck_spair        m       L
 srefgen                scalar ref constructor  ck_null         fs      S
@@ -300,8 +301,8 @@ slt         string lt               ck_scmp         ifs     S S
 sgt            string gt               ck_scmp         ifs     S S
 sle            string le               ck_scmp         ifs     S S
 sge            string ge               ck_scmp         ifs     S S
-seq            string eq               ck_scmp         ifs     S S
-sne            string ne               ck_scmp         ifs     S S
+seq            string eq               ck_null         ifs     S S
+sne            string ne               ck_null         ifs     S S
 scmp           string comparison       ck_scmp         ifst    S S
 
 bit_and                bitwise and             ck_bitop        fst     S S
@@ -361,8 +362,8 @@ aslice              array slice             ck_null         m       A L
 each           each                    ck_fun          t       H
 values         values                  ck_fun          t       H
 keys           keys                    ck_fun          t       H
-delete         delete                  ck_delete       s       S
-exists         exists operator         ck_delete       is      S
+delete         delete                  ck_delete       0       S
+exists         exists operator         ck_exists       is      S
 rv2hv          associative array deref ck_rvconst      dt      
 helem          associative array elem  ck_null         s       H S
 hslice         associative array slice ck_null         m       H L