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

p4raw-id: //depot/perl@1339

1 files changed, 2 insertions, 2 deletions

diff --git a/pp_sys.c b/pp_sys.c
index 6a4ad31eb5..f3c5dd4a2e 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -554,7 +554,7 @@ PP(pp_tie)
     items = SP - MARK++;
     if (sv_isobject(*MARK)) {
 	ENTER;
-	PUSHSTACKi(SI_MAGIC);
+	PUSHSTACKi(PERLSI_MAGIC);
 	PUSHMARK(SP);
 	EXTEND(SP,items);
 	while (items--)
@@ -572,7 +572,7 @@ PP(pp_tie)
 		 methname, SvPV(*MARK,na));                   
 	}
 	ENTER;
-	PUSHSTACKi(SI_MAGIC);
+	PUSHSTACKi(PERLSI_MAGIC);
 	PUSHMARK(SP);
 	EXTEND(SP,items);
 	while (items--)