make make_patchnum.sh (more) portable

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

diff --git a/doop.c b/doop.c
index 039d9ad..cd9b3b4 100644 (file)
--- a/doop.c
+++ b/doop.c
@@ -9,7 +9,9 @@
  */
 
 /*
- * "'So that was the job I felt I had to do when I started,' thought Sam."
+ *  'So that was the job I felt I had to do when I started,' thought Sam.
+ *
+ *     [p.934 of _The Lord of the Rings_, VI/iii: "Mount Doom"]
  */
 
 /* This file contains some common functions needed to carry out certain
@@ -316,7 +318,7 @@ S_do_trans_simple_utf8(pTHX_ SV * const sv)
 #ifdef USE_ITHREADS
                    PAD_SVl(cPADOP->op_padix);
 #else
-                   (SV*)cSVOP->op_sv;
+                   MUTABLE_SV(cSVOP->op_sv);
 #endif
     HV* const  hv = MUTABLE_HV(SvRV(rv));
     SV* const * svp = hv_fetchs(hv, "NONE", FALSE);
@@ -418,7 +420,7 @@ S_do_trans_count_utf8(pTHX_ SV * const sv)
 #ifdef USE_ITHREADS
                    PAD_SVl(cPADOP->op_padix);
 #else
-                   (SV*)cSVOP->op_sv;
+                   MUTABLE_SV(cSVOP->op_sv);
 #endif
     HV* const hv = MUTABLE_HV(SvRV(rv));
     SV* const * const svp = hv_fetchs(hv, "NONE", FALSE);
@@ -469,7 +471,7 @@ S_do_trans_complex_utf8(pTHX_ SV * const sv)
 #ifdef USE_ITHREADS
                    PAD_SVl(cPADOP->op_padix);
 #else
-                   (SV*)cSVOP->op_sv;
+                   MUTABLE_SV(cSVOP->op_sv);
 #endif
     HV * const hv = MUTABLE_HV(SvRV(rv));
     SV * const *svp = hv_fetchs(hv, "NONE", FALSE);
@@ -637,7 +639,7 @@ Perl_do_trans(pTHX_ SV *sv)
         if (SvIsCOW(sv))
             sv_force_normal_flags(sv, 0);
         if (SvREADONLY(sv))
-            Perl_croak(aTHX_ PL_no_modify);
+            Perl_croak(aTHX_ "%s", PL_no_modify);
     }
     (void)SvPV_const(sv, len);
     if (!len)
@@ -1002,7 +1004,7 @@ Perl_do_chop(pTHX_ register SV *astr, register SV *sv)
        const I32 max = AvFILL(av);
 
        for (i = 0; i <= max; i++) {
-           sv = (SV*)av_fetch(av, i, FALSE);
+           sv = MUTABLE_SV(av_fetch(av, i, FALSE));
            if (sv && ((sv = *(SV**)sv), sv != &PL_sv_undef))
                do_chop(astr, sv);
        }
@@ -1022,7 +1024,7 @@ Perl_do_chop(pTHX_ register SV *astr, register SV *sv)
            sv_force_normal_flags(sv, 0);
         }
         if (SvREADONLY(sv))
-            Perl_croak(aTHX_ PL_no_modify);
+            Perl_croak(aTHX_ "%s", PL_no_modify);
     }
 
     if (PL_encoding && !SvUTF8(sv)) {
@@ -1088,7 +1090,7 @@ Perl_do_chomp(pTHX_ register SV *sv)
        const I32 max = AvFILL(av);
 
        for (i = 0; i <= max; i++) {
-           sv = (SV*)av_fetch(av, i, FALSE);
+           sv = MUTABLE_SV(av_fetch(av, i, FALSE));
            if (sv && ((sv = *(SV**)sv), sv != &PL_sv_undef))
                count += do_chomp(sv);
        }
@@ -1108,7 +1110,7 @@ Perl_do_chomp(pTHX_ register SV *sv)
            sv_force_normal_flags(sv, 0);
         }
         if (SvREADONLY(sv))
-            Perl_croak(aTHX_ PL_no_modify);
+            Perl_croak(aTHX_ "%s", PL_no_modify);
     }
 
     if (PL_encoding) {
@@ -1465,7 +1467,7 @@ Perl_do_kv(pTHX)
                sv_magic(TARG, NULL, PERL_MAGIC_nkeys, NULL, 0);
            }
            LvTYPE(TARG) = 'k';
-           if (LvTARG(TARG) != (SV*)keys) {
+           if (LvTARG(TARG) != (const SV *)keys) {
                if (LvTARG(TARG))
                    SvREFCNT_dec(LvTARG(TARG));
                LvTARG(TARG) = SvREFCNT_inc_simple(keys);
@@ -1474,7 +1476,7 @@ Perl_do_kv(pTHX)
            RETURN;
        }
 
-       if (! SvTIED_mg((SV*)keys, PERL_MAGIC_tied) )
+       if (! SvTIED_mg((const SV *)keys, PERL_MAGIC_tied) )
        {
            i = HvKEYS(keys);
        }