diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2003-06-27 08:15:11 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-06-27 08:15:11 +0000 |
| commit | af419de789419c9e4520d33654a91564094b407a (patch) | |
| tree | c62f4e0ce756cd82c32c69553c5d894d058aad07 /miniperlmain.c | |
| parent | a06433151b0f1a3a12ccc4d2629feb511ea9fce6 (diff) | |
| download | perl-af419de789419c9e4520d33654a91564094b407a.tar.gz | |
Introduce (global) variable PL_earlytaint which
is set very early in main(), before perl_parse()
has been called and PL_tainting (or PL_taint_warn)
might have been set.
p4raw-id: //depot/perl@19863
Diffstat (limited to 'miniperlmain.c')
| -rw-r--r-- | miniperlmain.c | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/miniperlmain.c b/miniperlmain.c index 4e9e5e889e..ec9604eae6 100644 --- a/miniperlmain.c +++ b/miniperlmain.c @@ -56,6 +56,9 @@ main(int argc, char **argv, char **env) /* noop unless Configure is given -Accflags=-DPERL_GPROF_CONTROL */ PERL_GPROF_MONCONTROL(0); + /* To be used instead PL_taining before perl_parse() */ + PL_earlytaint = doing_taint(argc, argv, env); + PERL_SYS_INIT3(&argc,&argv,&env); #if defined(USE_ITHREADS) |