summaryrefslogtreecommitdiff
path: root/util.c
diff options
context:
space:
mode:
authorNicholas Clark <nick@ccl4.org>2006-02-02 00:36:38 +0000
committerNicholas Clark <nick@ccl4.org>2006-02-02 00:36:38 +0000
commit71315bf2ed5c47e3f417cdce95f41fe9b0da6b1f (patch)
tree1779355572700dff2c66703cc911987108bd1d45 /util.c
parentb208e10c815b328b5c2ddc25197ff4990f6302e0 (diff)
downloadperl-71315bf2ed5c47e3f417cdce95f41fe9b0da6b1f.tar.gz
Yet more instances of gv_fetchpv... that should be GV_ADD rather than
TRUE. Convert two gv_fetchpvn_flags to gv_fetchpvs. p4raw-id: //depot/perl@27050
Diffstat (limited to 'util.c')
-rw-r--r--util.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/util.c b/util.c
index 4162f689e8..191773017c 100644
--- a/util.c
+++ b/util.c
@@ -2273,7 +2273,7 @@ Perl_my_popen(pTHX_ const char *cmd, const char *mode)
PerlProc__exit(1);
}
#endif /* defined OS2 */
- if ((tmpgv = gv_fetchpvs("$",TRUE, SVt_PV))) {
+ if ((tmpgv = gv_fetchpvs("$", GV_ADD, SVt_PV))) {
SvREADONLY_off(GvSV(tmpgv));
sv_setiv(GvSV(tmpgv), PerlProc_getpid());
SvREADONLY_on(GvSV(tmpgv));