mg.c: using #ifdef inside a macro call ENONPORTABLE (causes e.g. AIX to barf)

Message-Id: <200606040821.k548LUYu010965@vipunen.hut.fi>

p4raw-id: //depot/perl@28351

1 files changed, 6 insertions, 7 deletions

diff --git a/mg.c b/mg.c
index 4957a711a2..65cda05dcc 100644
--- a/mg.c
+++ b/mg.c
@@ -1097,19 +1097,18 @@ Perl_magic_setenv(pTHX_ SV *sv, MAGIC *mg)
 #endif /* VMS */
 	if (s && klen == 4 && strEQ(ptr,"PATH")) {
 	    const char * const strend = s + len;
+#ifdef VMS  /* Hmm.  How do we get $Config{path_sep} from C? */
+	    const char path_sep = '|';
+#else
+	    const char path_sep = ':';
+#endif
 
 	    while (s < strend) {
 		char tmpbuf[256];
 		Stat_t st;
 		I32 i;
 		s = delimcpy(tmpbuf, tmpbuf + sizeof tmpbuf,
-			     s, strend, 
-#ifdef VMS
-                                       '|',  /* Hmm.  How do we get $Config{path_sep} from C? */
-#else
-                                       ':', 
-#endif
-                                            &i);
+			     s, strend, path_sep, &i);
 		s++;
 		if (i >= (I32)sizeof tmpbuf   /* too long -- assume the worst */
 #ifdef VMS