Upgrade to Math::BigInt 1.54.

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

diff --git a/util.c b/util.c
index 0d2127b..a9f9ade 100644 (file)
--- a/util.c
+++ b/util.c
@@ -1,6 +1,6 @@
 /*    util.c
  *
- *    Copyright (c) 1991-2001, Larry Wall
+ *    Copyright (c) 1991-2002, Larry Wall
  *
  *    You may distribute under the terms of either the GNU General Public
  *    License or the Artistic License, as specified in the README file.
@@ -1104,7 +1104,7 @@ Perl_vmess(pTHX_ const char *pat, va_list *args)
 
        if (CopLINE(cop))
            Perl_sv_catpvf(aTHX_ sv, " at %s line %"IVdf,
-                          CopFILE(cop), (IV)CopLINE(cop));
+           OutCopFILE(cop), (IV)CopLINE(cop));
        if (GvIO(PL_last_in_gv) && IoLINES(GvIOp(PL_last_in_gv))) {
            bool line_mode = (RsSIMPLE(PL_rs) &&
                              SvCUR(PL_rs) == 1 && *SvPVX(PL_rs) == '\n');
@@ -1356,6 +1356,8 @@ Perl_vwarn(pTHX_ const char* pat, va_list *args)
     CV *cv;
     SV *msv;
     STRLEN msglen;
+    IO *io;
+    MAGIC *mg;
 
     msv = vmess(pat, args);
     message = SvPV(msv, msglen);
@@ -1388,6 +1390,20 @@ Perl_vwarn(pTHX_ const char* pat, va_list *args)
            return;
        }
     }
+
+    /* if STDERR is tied, use it instead */
+    if (PL_stderrgv && (io = GvIOp(PL_stderrgv))
+       && (mg = SvTIED_mg((SV*)io, PERL_MAGIC_tiedscalar))) {
+       dSP; ENTER;
+       PUSHMARK(SP);
+       XPUSHs(SvTIED_obj((SV*)io, mg));
+       XPUSHs(sv_2mortal(newSVpvn(message, msglen)));
+       PUTBACK;
+       call_method("PRINT", G_SCALAR);
+       LEAVE;
+       return;
+    }
+
     {
        PerlIO *serr = Perl_error_log;
 
@@ -3996,35 +4012,39 @@ Perl_new_vstring(pTHX_ char *s, SV *sv)
        for (;;) {
            rev = 0;
            {
-           /* this is atoi() that tolerates underscores */
-           char *end = pos;
-           UV mult = 1;
-           if ( *(s-1) == '_') {
-               mult = 10;
-           }
-           while (--end >= s) {
-               UV orev;
-               orev = rev;
-               rev += (*end - '0') * mult;
-               mult *= 10;
-               if (orev > rev && ckWARN_d(WARN_OVERFLOW))
-               Perl_warner(aTHX_ WARN_OVERFLOW,
-                       "Integer overflow in decimal number");
-           }
+                /* this is atoi() that tolerates underscores */
+                char *end = pos;
+                UV mult = 1;
+                if ( *(s-1) == '_') {
+                     mult = 10;
+                }
+                while (--end >= s) {
+                     UV orev;
+                     orev = rev;
+                     rev += (*end - '0') * mult;
+                     mult *= 10;
+                     if (orev > rev && ckWARN_d(WARN_OVERFLOW))
+                          Perl_warner(aTHX_ WARN_OVERFLOW,
+                                      "Integer overflow in decimal number");
+                }
            }
+#ifdef EBCDIC
+           if (rev > 0x7FFFFFFF)
+                Perl_croak(aTHX "In EBCDIC the v-string components cannot exceed 2147483647");
+#endif
            /* Append native character for the rev point */
            tmpend = uvchr_to_utf8(tmpbuf, rev);
            sv_catpvn(sv, (const char*)tmpbuf, tmpend - tmpbuf);
            if (!UNI_IS_INVARIANT(NATIVE_TO_UNI(rev)))
-           SvUTF8_on(sv);
+                SvUTF8_on(sv);
            if ( (*pos == '.' || *pos == '_') && isDIGIT(pos[1]))
-           s = ++pos;
+                s = ++pos;
            else {
-           s = pos;
-           break;
+                s = pos;
+                break;
            }
            while (isDIGIT(*pos) )
-           pos++;
+                pos++;
        }
        SvPOK_on(sv);
        SvREADONLY_on(sv);