diff options
| author | Dave Mitchell <davem@fdisolutions.com> | 2001-05-19 21:12:56 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-05-20 11:24:11 +0000 |
| commit | 14befaf4eaa6e79d87aacb106e0b701e925483ee (patch) | |
| tree | 9871bde0d14633096e8a6bdb25049096aa61b43f /taint.c | |
| parent | 1102eebe5ec184d02a12b0ae21384e5605226f7d (diff) | |
| download | perl-14befaf4eaa6e79d87aacb106e0b701e925483ee.tar.gz | |
[LARGE!] symbolic magic
Message-Id: <200105191912.UAA23925@gizmo.fdgroup.co.uk>
p4raw-id: //depot/perl@10168
Diffstat (limited to 'taint.c')
| -rw-r--r-- | taint.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -66,7 +66,7 @@ Perl_taint_env(pTHX) TAINT; taint_proper("Insecure %s%s", "$ENV{DCL$PATH}"); } - if ((mg = mg_find(*svp, 'e')) && MgTAINTEDDIR(mg)) { + if ((mg = mg_find(*svp, PERL_MAGIC_envelem)) && MgTAINTEDDIR(mg)) { TAINT; taint_proper("Insecure directory in %s%s", "$ENV{DCL$PATH}"); } @@ -81,7 +81,7 @@ Perl_taint_env(pTHX) TAINT; taint_proper("Insecure %s%s", "$ENV{PATH}"); } - if ((mg = mg_find(*svp, 'e')) && MgTAINTEDDIR(mg)) { + if ((mg = mg_find(*svp, PERL_MAGIC_envelem)) && MgTAINTEDDIR(mg)) { TAINT; taint_proper("Insecure directory in %s%s", "$ENV{PATH}"); } |