Change white space to avoid C++ deprecation warning

[perl5.git] / ext / mro / mro.xs

diff --git a/ext/mro/mro.xs b/ext/mro/mro.xs
index f51d54a..80bce9a 100644 (file)
--- a/ext/mro/mro.xs
+++ b/ext/mro/mro.xs
@@ -45,7 +45,7 @@ S_mro_get_linear_isa_c3(pTHX_ HV* stash, U32 level)
       Perl_croak(aTHX_ "Can't linearize anonymous symbol table");
 
     if (level > 100)
-        Perl_croak(aTHX_ "Recursive inheritance detected in package '%"HEKf
+        Perl_croak(aTHX_ "Recursive inheritance detected in package '%" HEKf
                          "'",
                           HEKfARG(stashhek));
 
@@ -256,21 +256,21 @@ S_mro_get_linear_isa_c3(pTHX_ HV* stash, U32 level)
                 I32 i;
 
                 errmsg = newSVpvf(
-                           "Inconsistent hierarchy during C3 merge of class '%"HEKf"':\n\t"
+                           "Inconsistent hierarchy during C3 merge of class '%" HEKf "':\n\t"
                             "current merge results [\n",
                             HEKfARG(stashhek));
                 for (i = 0; i <= av_tindex(retval); i++) {
                     SV **elem = av_fetch(retval, i, 0);
-                    sv_catpvf(errmsg, "\t\t%"SVf",\n", SVfARG(*elem));
+                    sv_catpvf(errmsg, "\t\t%" SVf ",\n", SVfARG(*elem));
                 }
-                sv_catpvf(errmsg, "\t]\n\tmerging failed on '%"SVf"'", SVfARG(cand));
+                sv_catpvf(errmsg, "\t]\n\tmerging failed on '%" SVf "'", SVfARG(cand));
 
                 /* we have to do some cleanup before we croak */
 
                 SvREFCNT_dec(retval);
                 Safefree(heads);
 
-                Perl_croak(aTHX_ "%"SVf, SVfARG(errmsg));
+                Perl_croak(aTHX_ "%" SVf, SVfARG(errmsg));
             }
         }
     }
@@ -330,7 +330,7 @@ mro_get_linear_isa(...)
     else if(items > 1) {
        const struct mro_alg *const algo = Perl_mro_get_from_name(aTHX_ ST(1));
        if (!algo)
-           Perl_croak(aTHX_ "Invalid mro name: '%"SVf"'", ST(1));
+           Perl_croak(aTHX_ "Invalid mro name: '%" SVf "'", ST(1));
        RETVAL = algo->resolve(aTHX_ class_stash, 0);
     }
     else {
@@ -353,7 +353,7 @@ mro_set_mro(...)
 
     classname = ST(0);
     class_stash = gv_stashsv(classname, GV_ADD);
-    if(!class_stash) Perl_croak(aTHX_ "Cannot create class: '%"SVf"'!", SVfARG(classname));
+    if(!class_stash) Perl_croak(aTHX_ "Cannot create class: '%" SVf "'!", SVfARG(classname));
     meta = HvMROMETA(class_stash);
 
     Perl_mro_set_mro(aTHX_ meta, ST(1));
@@ -590,7 +590,7 @@ mro__nextcan(...)
            if(val == &PL_sv_undef) {
                if(throw_nomethod)
                    Perl_croak(aTHX_
-                       "No next::method '%"SVf"' found for %"HEKf,
+                       "No next::method '%" SVf "' found for %" HEKf,
                         SVfARG(newSVpvn_flags(subname, subname_len,
                                 SVs_TEMP | ( subname_utf8 ? SVf_UTF8 : 0 ) )),
                         HEKfARG( HvNAME_HEK(selfstash) ));
@@ -638,7 +638,7 @@ mro__nextcan(...)
             if (!curstash) {
                 if (ckWARN(WARN_SYNTAX))
                     Perl_warner(aTHX_ packWARN(WARN_SYNTAX),
-                       "Can't locate package %"SVf" for @%"HEKf"::ISA",
+                       "Can't locate package %" SVf " for @%" HEKf "::ISA",
                         (void*)linear_sv,
                         HEKfARG( HvNAME_HEK(selfstash) ));
                 continue;
@@ -671,7 +671,7 @@ mro__nextcan(...)
 
     (void)hv_store_ent(nmcache, sv, &PL_sv_undef, 0);
     if(throw_nomethod)
-        Perl_croak(aTHX_ "No next::method '%"SVf"' found for %"HEKf,
+        Perl_croak(aTHX_ "No next::method '%" SVf "' found for %" HEKf,
                          SVfARG(newSVpvn_flags(subname, subname_len,
                                 SVs_TEMP | ( subname_utf8 ? SVf_UTF8 : 0 ) )),
                         HEKfARG( HvNAME_HEK(selfstash) ));