summaryrefslogtreecommitdiff
path: root/pp_sys.c
diff options
context:
space:
mode:
authorRick Delaney <rick@consumercontact.com>2007-08-16 19:35:26 -0400
committerAbhijit Menon-Sen <ams@wiw.org>2007-08-18 07:59:56 +0000
commitc4c533cb9d15f6d3f7ef40694999c8d69239b304 (patch)
tree2bee85a38896f0bccb83f9ea02a07e631b2b09fd /pp_sys.c
parent72076cb2fceca96b75f3acbda2b8105d780bd2b0 (diff)
downloadperl-c4c533cb9d15f6d3f7ef40694999c8d69239b304.tar.gz
Re: t/op/taint.t failed on EBCDIC platform
Message-Id: <20070817033526.GA9639@bort.ca> p4raw-id: //depot/perl@31730
Diffstat (limited to 'pp_sys.c')
-rw-r--r--pp_sys.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/pp_sys.c b/pp_sys.c
index 8193f3cbd0..71f8d8b8bb 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. */