From: Rick Delaney <rick@consumercontact.com>
Date: Thu, 16 Aug 2007 23:35:26 +0000 (-0400)
Subject: Re: t/op/taint.t failed on EBCDIC platform
X-Git-Tag: accepted/trunk/20130322.191538~14753
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=c4c533cb9d15f6d3f7ef40694999c8d69239b304;p=platform%2Fupstream%2Fperl.git

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
--- 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. */