Add Configure -Duselongdouble and add a missing semicolon.

[p5sagit/p5-mst-13.2.git] / mg.c

diff --git a/mg.c b/mg.c
index 695272d..6418b27 100644 (file)
--- a/mg.c
+++ b/mg.c
@@ -828,7 +828,12 @@ Perl_magic_clear_all_env(pTHX_ SV *sv, MAGIC *mg)
     }
     FreeEnvironmentStrings(envv);
 #  else
-#    ifndef PERL_USE_SAFE_PUTENV
+#    ifdef CYGWIN
+    I32 i;
+    for (i = 0; environ[i]; i++)
+       Safefree(environ[i]);
+#    else
+#      ifndef PERL_USE_SAFE_PUTENV
     I32 i;
 
     if (environ == PL_origenviron)
@@ -836,7 +841,8 @@ Perl_magic_clear_all_env(pTHX_ SV *sv, MAGIC *mg)
     else
        for (i = 0; environ[i]; i++)
            safesysfree(environ[i]);
-#    endif /* PERL_USE_SAFE_PUTENV */
+#      endif /* PERL_USE_SAFE_PUTENV */
+#    endif /* CYGWIN */
 
     environ[0] = Nullch;
 
@@ -1807,13 +1813,13 @@ Perl_magic_set(pTHX_ SV *sv, MAGIC *mg)
        if (PL_uid == PL_euid)          /* special case $< = $> */
            (void)PerlProc_setuid(PL_uid);
        else {
-           PL_uid = (I32)PerlProc_getuid();
+           PL_uid = PerlProc_getuid();
            Perl_croak(aTHX_ "setruid() not implemented");
        }
 #endif
 #endif
 #endif
-       PL_uid = (I32)PerlProc_getuid();
+       PL_uid = PerlProc_getuid();
        PL_tainting |= (PL_uid && (PL_euid != PL_uid || PL_egid != PL_gid));
        break;
     case '>':
@@ -1834,13 +1840,13 @@ Perl_magic_set(pTHX_ SV *sv, MAGIC *mg)
        if (PL_euid == PL_uid)          /* special case $> = $< */
            PerlProc_setuid(PL_euid);
        else {
-           PL_euid = (I32)PerlProc_geteuid();
+           PL_euid = rlProc_geteuid();
            Perl_croak(aTHX_ "seteuid() not implemented");
        }
 #endif
 #endif
 #endif
-       PL_euid = (I32)PerlProc_geteuid();
+       PL_euid = PerlProc_geteuid();
        PL_tainting |= (PL_uid && (PL_euid != PL_uid || PL_egid != PL_gid));
        break;
     case '(':
@@ -1861,13 +1867,13 @@ Perl_magic_set(pTHX_ SV *sv, MAGIC *mg)
        if (PL_gid == PL_egid)                  /* special case $( = $) */
            (void)PerlProc_setgid(PL_gid);
        else {
-           PL_gid = (I32)PerlProc_getgid();
+           PL_gid = PerlProc_getgid();
            Perl_croak(aTHX_ "setrgid() not implemented");
        }
 #endif
 #endif
 #endif
-       PL_gid = (I32)PerlProc_getgid();
+       PL_gid = PerlProc_getgid();
        PL_tainting |= (PL_uid && (PL_euid != PL_uid || PL_egid != PL_gid));
        break;
     case ')':
@@ -1878,7 +1884,7 @@ Perl_magic_set(pTHX_ SV *sv, MAGIC *mg)
 
            while (isSPACE(*p))
                ++p;
-           PL_egid = I_V(atol(p));
+           PL_egid = I_V(Atol(p));
            for (i = 0; i < NGROUPS; ++i) {
                while (*p && !isSPACE(*p))
                    ++p;
@@ -1886,7 +1892,7 @@ Perl_magic_set(pTHX_ SV *sv, MAGIC *mg)
                    ++p;
                if (!*p)
                    break;
-               gary[i] = I_V(atol(p));
+               gary[i] = I_V(Atol(p));
            }
            if (i)
                (void)setgroups(i, gary);
@@ -1910,13 +1916,13 @@ Perl_magic_set(pTHX_ SV *sv, MAGIC *mg)
        if (PL_egid == PL_gid)                  /* special case $) = $( */
            (void)PerlProc_setgid(PL_egid);
        else {
-           PL_egid = (I32)PerlProc_getegid();
+           PL_egid = PerlProc_getegid();
            Perl_croak(aTHX_ "setegid() not implemented");
        }
 #endif
 #endif
 #endif
-       PL_egid = (I32)PerlProc_getegid();
+       PL_egid = PerlProc_getegid();
        PL_tainting |= (PL_uid && (PL_euid != PL_uid || PL_egid != PL_gid));
        break;
     case ':':