Change 13466: [PATCH] $., $%, $=, and $- are IV's now

[Jarkko Hietaniemi]

Change 13466 by jhi@alpha on 2001/12/04 22:51:19

        Subject: [PATCH] $., $%, $=, and $- are IV's now
        From: "H.Merijn Brand" <[EMAIL PROTECTED]>
        Date: Tue, 04 Dec 2001 23:40:27 +0100
        Message-Id: <[EMAIL PROTECTED]>

Affected files ...

.... //depot/perl/mg.c#215 edit

Differences ...

==== //depot/perl/mg.c#215 (text) ====
Index: perl/mg.c
--- perl/mg.c.~1~       Tue Dec  4 16:00:06 2001
+++ perl/mg.c   Tue Dec  4 16:00:06 2001
@@ -1948,7 +1948,7 @@
                SAVESPTR(PL_last_in_gv);
        }
        else if (SvOK(sv) && GvIO(PL_last_in_gv))
-           IoLINES(GvIOp(PL_last_in_gv)) = (long)SvIV(sv);
+           IoLINES(GvIOp(PL_last_in_gv)) = SvIV(sv);
        break;
     case '^':
        Safefree(IoTOP_NAME(GvIOp(PL_defoutgv)));
@@ -1961,15 +1961,15 @@
        IoFMT_GV(GvIOp(PL_defoutgv)) = gv_fetchpv(s,TRUE, SVt_PVIO);
        break;
     case '=':
-       IoPAGE_LEN(GvIOp(PL_defoutgv)) = (long)(SvIOK(sv) ? SvIVX(sv) : sv_2iv(sv));
+       IoPAGE_LEN(GvIOp(PL_defoutgv)) = (SvIOK(sv) ? SvIVX(sv) : sv_2iv(sv));
        break;
     case '-':
-       IoLINES_LEFT(GvIOp(PL_defoutgv)) = (long)(SvIOK(sv) ? SvIVX(sv) : sv_2iv(sv));
+       IoLINES_LEFT(GvIOp(PL_defoutgv)) = (SvIOK(sv) ? SvIVX(sv) : sv_2iv(sv));
        if (IoLINES_LEFT(GvIOp(PL_defoutgv)) < 0L)
            IoLINES_LEFT(GvIOp(PL_defoutgv)) = 0L;
        break;
     case '%':
-       IoPAGE(GvIOp(PL_defoutgv)) = (long)(SvIOK(sv) ? SvIVX(sv) : sv_2iv(sv));
+       IoPAGE(GvIOp(PL_defoutgv)) = (SvIOK(sv) ? SvIVX(sv) : sv_2iv(sv));
        break;
     case '|':
        {
End of Patch.