Re: t/op/taint.t failed on EBCDIC platform

Message-Id: <20070817033526.GA9639@bort.ca>

p4raw-id: //depot/perl@31730

diff --git a/pp_sys.c b/pp_sys.c
index 8193f3c..71f8d8b 100644 (file)
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -5227,7 +5227,7 @@ PP(pp_gpwent)
 #   ifdef PWGECOS
        PUSHs(sv = sv_2mortal(newSVpv(pwent->pw_gecos, 0)));
 #   else
-       PUSHs(sv_mortalcopy(&PL_sv_no));
+       PUSHs(sv = sv_mortalcopy(&PL_sv_no));
 #   endif
 #   ifndef INCOMPLETE_TAINTS
        /* pw_gecos is tainted because user himself can diddle with it. */