$\1 and serious bug in evalling

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

diff --git a/opcode.pl b/opcode.pl
index 6fed2f8..a565933 100755 (executable)
--- a/opcode.pl
+++ b/opcode.pl
@@ -326,9 +326,11 @@ exp                exp                     ck_fun          fstu    S?
 log            log                     ck_fun          fstu    S?
 sqrt           sqrt                    ck_fun          fstu    S?
 
+# Lowbrow math.
+
 int            int                     ck_fun          fstu    S?
-hex            hex                     ck_fun          istu    S?
-oct            oct                     ck_fun          istu    S?
+hex            hex                     ck_fun          fstu    S?
+oct            oct                     ck_fun          fstu    S?
 abs            abs                     ck_fun          fstu    S?
 
 # String stuff.
@@ -340,7 +342,7 @@ vec         vec                     ck_fun          ist     S S S
 index          index                   ck_index        ist     S S S?
 rindex         rindex                  ck_index        ist     S S S?
 
-sprintf                sprintf                 ck_fun_locale   mst     S L
+sprintf                sprintf                 ck_fun_locale   mfst    S L
 formline       formline                ck_fun          ms      S L
 ord            ord                     ck_fun          ifstu   S?
 chr            chr                     ck_fun          fstu    S?