summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorCraig A. Berry <craigberry@mac.com>2012-02-18 23:06:16 -0600
committerCraig A. Berry <craigberry@mac.com>2012-02-18 23:06:16 -0600
commit382669a913349a7dde83d66b16de3e20815045f7 (patch)
treeb39fefb298ea97ba7d8be5063ee09f280004a300
parent985213f2fede57896814a0d7f5d12b04cc05be5b (diff)
downloadperl-382669a913349a7dde83d66b16de3e20815045f7.tar.gz
Fix typo in 985213f2fede57.
Which broke the build on both VMS and Win32.
-rw-r--r--mg.c2
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");
}