Make Configure recognise glibc 2.1 stdio

[p5sagit/p5-mst-13.2.git] / byterun.c

diff --git a/byterun.c b/byterun.c
index 34beaf4..f8c07f9 100644 (file)
--- a/byterun.c
+++ b/byterun.c
@@ -1,5 +1,5 @@
 /*
- *      Copyright (c) 1996-1998 Malcolm Beattie
+ *      Copyright (c) 1996-1999 Malcolm Beattie
  *
  *      You may distribute under the terms of either the GNU General Public
  *      License or the Artistic License, as specified in the README file.
@@ -838,21 +838,28 @@ void byterun(PerlIO *fp)
                cCOP->cop_line = arg;
                break;
            }
-         case INSN_MAIN_START:         /* 116 */
+         case INSN_COP_WARNINGS:               /* 116 */
+           {
+               svindex arg;
+               BGET_svindex(arg);
+               cCOP->cop_warnings = arg;
+               break;
+           }
+         case INSN_MAIN_START:         /* 117 */
            {
                opindex arg;
                BGET_opindex(arg);
                PL_main_start = arg;
                break;
            }
-         case INSN_MAIN_ROOT:          /* 117 */
+         case INSN_MAIN_ROOT:          /* 118 */
            {
                opindex arg;
                BGET_opindex(arg);
                PL_main_root = arg;
                break;
            }
-         case INSN_CURPAD:             /* 118 */
+         case INSN_CURPAD:             /* 119 */
            {
                svindex arg;
                BGET_svindex(arg);