diff options
| author | Chip Salzenberg <chip@perl.com> | 1997-02-19 09:08:02 +1200 |
|---|---|---|
| committer | Chip Salzenberg <chip@atlantic.net> | 1997-02-22 04:41:00 +1200 |
| commit | fd18d3085cbff355971e001ffa7fcc9cdfc2d57a (patch) | |
| tree | 90a98144d303a83d53a4d8bc1ee3f58e19bc7edf /run.c | |
| parent | 9212bbba480c82a883da56c53e3d103dc36aa284 (diff) | |
| download | perl-fd18d3085cbff355971e001ffa7fcc9cdfc2d57a.tar.gz | |
Turn off 'expression tainted' flag at end of runops()
Diffstat (limited to 'run.c')
| -rw-r--r-- | run.c | 4 |
1 files changed, 4 insertions, 0 deletions
@@ -27,6 +27,8 @@ runops() { runlevel++; while ( op = (*op->op_ppaddr)() ) ; + + TAINT_NOT; return 0; } @@ -54,6 +56,8 @@ runops() { DEBUG_P(debprof(op)); } } while ( op = (*op->op_ppaddr)() ); + + TAINT_NOT; return 0; } |