diff options
| author | Abhijit Menon-Sen <ams@wiw.org> | 2001-11-12 06:40:18 +0000 |
|---|---|---|
| committer | Abhijit Menon-Sen <ams@wiw.org> | 2001-11-12 06:40:18 +0000 |
| commit | e08e52cfc7c74ce042178c9e1fa4477c386b5fc9 (patch) | |
| tree | eb108662e609f843c5d8d002e990566648427460 /pp_hot.c | |
| parent | 90a59240269f4a0b2fc176328a009d30cf595988 (diff) | |
| download | perl-e08e52cfc7c74ce042178c9e1fa4477c386b5fc9.tar.gz | |
[PATCH] Re: [ID 20011111.105] qr/$ARGV[0]/ not tainted
From: Robert Spier <rspier@pobox.com>
Date: Sun, 11 Nov 2001 18:50:18 -0800
Message-Id: <15343.14570.121505.233336@rls.cx>
Subject: Re: [PATCH] Re: [ID 20011111.105] qr/$ARGV[0]/ not tainted
From: Rick Delaney <rick.delaney@home.com>
Date: 12 Nov 2001 00:15:52 -0500
Message-Id: <m3wv0wmuwn.fsf@cs839290-a.mtth1.on.wave.home.com>
p4raw-id: //depot/perl@12949
Diffstat (limited to 'pp_hot.c')
| -rw-r--r-- | pp_hot.c | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -1189,6 +1189,8 @@ PP(pp_qr) register PMOP *pm = cPMOP; SV *rv = sv_newmortal(); SV *sv = newSVrv(rv, "Regexp"); + if (pm->op_pmdynflags & PMdf_TAINTED) + SvTAINTED_on(rv); sv_magic(sv,(SV*)ReREFCNT_inc(PM_GETRE(pm)), PERL_MAGIC_qr,0,0); RETURNX(PUSHs(rv)); } |