various fixes for clean build and test on win32; configpm broken,

needed to open myconfig.SH rather than myconfig; sundry adjustments
to bytecode stuff; tweaks to DYNAMIC_ENV_FETCH code to make it
work under win32; getenv_sv() changed to getenv_len() since SVs
aren't visible in the lower echelons; remove bogus exports from
config.sym; PERL_OBJECT-ness for C++ exception support; null out
IoDIRP in filter_del() or sv_free() will attempt to close it

p4raw-id: //depot/perl@3387

1 files changed, 4 insertions, 4 deletions

diff --git a/op.c b/op.c
index 13f2a1595c..919d9d8170 100644
--- a/op.c
+++ b/op.c
@@ -4782,7 +4782,7 @@ ck_fun(OP *o)
 		    }
 		    else {
 			I32 flags = OPf_SPECIAL;
-			I32 private = 0;
+			I32 priv = 0;
 			/* is this op a FH constructor? */
 			if (is_handle_constructor(o,numargs)) {
 			    flags   = 0;                         
@@ -4790,7 +4790,7 @@ ck_fun(OP *o)
 			     * need to "prove" flag does not mean something
 			     * else already - NI-S 1999/05/07
 			     */ 
-			    private = OPpDEREF; 
+			    priv = OPpDEREF; 
 #if 0
 			    /* Helps with open($array[$n],...) 
 			       but is too simplistic - need to do selectively
@@ -4800,8 +4800,8 @@ ck_fun(OP *o)
 			}
 			kid->op_sibling = 0;
 			kid = newUNOP(OP_RV2GV, flags, scalar(kid));
-			if (private) {
-			    kid->op_private |= private;
+			if (priv) {
+			    kid->op_private |= priv;
 			}
 		    }
 		    kid->op_sibling = sibl;