Change 31730 by [EMAIL PROTECTED] on 2007/08/18 07:59:56
Subject: [PATCH blead] Re: t/op/taint.t failed on EBCDIC platform
From: Rick Delaney <[EMAIL PROTECTED]>
Date: Thu, 16 Aug 2007 23:35:26 -0400
Message-Id: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/pp_sys.c#543 edit
Differences ...
==== //depot/perl/pp_sys.c#543 (text) ====
Index: perl/pp_sys.c
--- perl/pp_sys.c#542~31617~ 2007-07-16 08:42:56.000000000 -0700
+++ perl/pp_sys.c 2007-08-18 00:59:56.000000000 -0700
@@ -5227,7 +5227,7 @@
# 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. */
End of Patch.
