rename s/\bSI_/PERLSI_/ to avoid collisions with sysinfo headers

p4raw-id: //depot/perl@1339

1 files changed, 3 insertions, 3 deletions

diff --git a/sv.c b/sv.c
index 7f1350b307..0ff19a2848 100644
--- a/sv.c
+++ b/sv.c
@@ -2010,7 +2010,7 @@ sv_setsv(SV *dstr, register SV *sstr)
 		SvFAKE_on(dstr);	/* can coerce to non-glob */
 	    }
 	    /* ahem, death to those who redefine active sort subs */
-	    else if (curstackinfo->si_type == SI_SORT
+	    else if (curstackinfo->si_type == PERLSI_SORT
 		     && GvCV(dstr) && sortcop == CvSTART(GvCV(dstr)))
 		croak("Can't redefine active sort subroutine %s",
 		      GvNAME(dstr));
@@ -2107,7 +2107,7 @@ sv_setsv(SV *dstr, register SV *sstr)
 						       Nullcv));
 				/* ahem, death to those who redefine
 				 * active sort subs */
-				if (curstackinfo->si_type == SI_SORT &&
+				if (curstackinfo->si_type == PERLSI_SORT &&
 				      sortcop == CvSTART(cv))
 				    croak(
 				    "Can't redefine active sort subroutine %s",
@@ -2799,7 +2799,7 @@ sv_clear(register SV *sv)
 		destructor = gv_fetchmethod(SvSTASH(sv), "DESTROY");
 		if (destructor) {
 		    ENTER;
-		    PUSHSTACKi(SI_DESTROY);
+		    PUSHSTACKi(PERLSI_DESTROY);
 		    SvRV(&tmpref) = SvREFCNT_inc(sv);
 		    EXTEND(SP, 2);
 		    PUSHMARK(SP);