From: Perl 5 Porters <perl5-porters.nicoh.com>
Date: Fri, 5 Jan 1996 01:27:47 +0000 (+0000)
Subject: Patch for older compilers which had namespace confusion.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b77fae6586595023b0fbf51345fc9fccc5c5aca4;p=p5sagit%2Fp5-mst-13.2.git

Patch for older compilers which had namespace confusion.
---

diff --git a/ext/Safe/Safe.xs b/ext/Safe/Safe.xs
index 4437284..ec7abce 100644
--- a/ext/Safe/Safe.xs
+++ b/ext/Safe/Safe.xs
@@ -82,13 +82,13 @@ ops_to_mask(...)
 void
 opname(...)
     PPCODE:
-	int i, opcode;
+	int i, myopcode;
 	for (i = 0; i < items; i++)
 	{
-	    opcode = SvIV(ST(i));
-	    if (opcode < 0 || opcode >= maxo)
+	    myopcode = SvIV(ST(i));
+	    if (myopcode < 0 || myopcode >= maxo)
 		croak("opcode out of range");
-	    XPUSHs(sv_2mortal(newSVpv(op_name[opcode], 0)));
+	    XPUSHs(sv_2mortal(newSVpv(op_name[myopcode], 0)));
 	}
 
 void