Perl 5.003 bug when embedding in C++ program

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

diff --git a/opcode.h b/opcode.h
index 01dd521..ce83340 100644 (file)
--- a/opcode.h
+++ b/opcode.h
@@ -1776,9 +1776,9 @@ EXT OP * (*ppaddr[])() = {
 #endif
 
 #ifndef DOINIT
-EXT OP * (*check[])();
+EXT OP * (*check[]) _((OP *op));
 #else
-EXT OP * (*check[])() = {
+EXT OP * (*check[]) _((OP *op)) = {
        ck_null,        /* null */
        ck_null,        /* stub */
        ck_fun,         /* scalar */
@@ -2344,7 +2344,7 @@ EXT U32 opargs[] = {
        0x00000e14,     /* eof */
        0x00000e0c,     /* tell */
        0x00011604,     /* seek */
-       0x00001614,     /* truncate */
+       0x00001114,     /* truncate */
        0x0001160c,     /* fcntl */
        0x0001160c,     /* ioctl */
        0x0000161c,     /* flock */