diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 1998-07-18 13:53:03 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 1998-07-18 13:53:03 +0000 |
| commit | 3280af22f58e7b37514ed104858e2c2fc55ceeeb (patch) | |
| tree | 8fd8328859f022068272656f072a7ec4eecac0a6 /miniperlmain.c | |
| parent | ef6361f9c2260919aefcc17b1b80f8857c67a84a (diff) | |
| download | perl-3280af22f58e7b37514ed104858e2c2fc55ceeeb.tar.gz | |
PL_ prefix to all perlvars, part1
Builds and passes all tests at one limit i.e. -DPERL_GLOBAL_STRUCT
p4raw-id: //depot/ansiperl@1532
Diffstat (limited to 'miniperlmain.c')
| -rw-r--r-- | miniperlmain.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/miniperlmain.c b/miniperlmain.c index 5b075a52dd..b41c6ee62f 100644 --- a/miniperlmain.c +++ b/miniperlmain.c @@ -32,12 +32,12 @@ main(int argc, char **argv, char **env) perl_init_i18nl10n(1); - if (!do_undump) { + if (!PL_do_undump) { my_perl = perl_alloc(); if (!my_perl) exit(1); perl_construct( my_perl ); - perl_destruct_level = 0; + PL_perl_destruct_level = 0; } exitstatus = perl_parse( my_perl, xs_init, argc, argv, (char **) NULL ); |