1 files changed, 1 insertions, 1 deletions
diff --git a/mg.c b/mg.c
index b8ef4cc889..f450d17000 100644
--- a/mg.c
+++ b/mg.c
@@ -2844,7 +2844,7 @@ Perl_magic_set(pTHX_ SV *sv, MAGIC *mg)
 	(void)setresuid((Uid_t)-1, (Uid_t)new_euid, (Uid_t)-1);
 #else
 	if (new_euid == PerlProc_getuid())		/* special case $> = $< */
-	    PerlProc_setuid(my_euid);
+	    PerlProc_setuid(new_euid);
 	else {
 	    Perl_croak(aTHX_ "seteuid() not implemented");
 	}