diff options
| author | Charles Lane <lane@DUPHY4.Physics.Drexel.Edu> | 2001-11-12 07:35:18 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-11-12 16:33:01 +0000 |
| commit | 32af7c23a1c4abd006dd0f19ca383c1fcaddfdd9 (patch) | |
| tree | 27826c419d4ba6758c31f4f5633a43af1fead6c6 /vms/gen_shrfls.pl | |
| parent | 9b1c7707319e7631584ef9f5d258edf5657d488c (diff) | |
| download | perl-32af7c23a1c4abd006dd0f19ca383c1fcaddfdd9.tar.gz | |
[Patch Perl@12856] MULTIPLICITY on VMS
Message-Id: <011112123409.27041@DUPHY4.Physics.Drexel.Edu>
p4raw-id: //depot/perl@12958
Diffstat (limited to 'vms/gen_shrfls.pl')
| -rw-r--r-- | vms/gen_shrfls.pl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/vms/gen_shrfls.pl b/vms/gen_shrfls.pl index 07b6f8ec31..04161d491e 100644 --- a/vms/gen_shrfls.pl +++ b/vms/gen_shrfls.pl @@ -167,9 +167,9 @@ if ($use_mymalloc) { } if ($use_perlio) { - $preprocess_list = "${dir}perl.h,${dir}perliol.h"; + $preprocess_list = "${dir}perl.h+${dir}perlapi.h,${dir}perliol.h"; } else { - $preprocess_list = "${dir}perl.h"; + $preprocess_list = "${dir}perl.h+${dir}perlapi.h"; } $used_expectation_enum = $used_opcode_enum = 0; # avoid warnings @@ -180,7 +180,7 @@ if ($docc) { else { open(CPP,"$cpp_file") or die "$0: Can't read preprocessed file $cpp_file: $!\n"; } -%checkh = map { $_,1 } qw( thread bytecode byterun proto perlio ); +%checkh = map { $_,1 } qw( thread bytecode byterun proto perlio perlvars intrpvar thrdvar ); $ckfunc = 0; LINE: while (<CPP>) { while (/^#.*vmsish\.h/i .. /^#.*perl\.h/i) { |