diff options
| author | Craig A. Berry <craigberry@mac.com> | 2000-12-16 18:18:35 -0600 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-12-19 17:03:08 +0000 |
| commit | 11ae941d53150932debe70c539ca1248bb0869c2 (patch) | |
| tree | 7d17d5ffff8d5b4b0baafd78b95b4b47babd750b /vms/gen_shrfls.pl | |
| parent | 733271b51cb808b667b461e771c0df10f59dfaba (diff) | |
| download | perl-11ae941d53150932debe70c539ca1248bb0869c2.tar.gz | |
finding PerlIO symbols for VMS
Message-Id: <p04330102b661bc01daba@[172.16.52.1]>
p4raw-id: //depot/perl@8190
Diffstat (limited to 'vms/gen_shrfls.pl')
| -rw-r--r-- | vms/gen_shrfls.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/vms/gen_shrfls.pl b/vms/gen_shrfls.pl index 6c54c107e3..48499d4a49 100644 --- a/vms/gen_shrfls.pl +++ b/vms/gen_shrfls.pl @@ -172,7 +172,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 ); +%checkh = map { $_,1 } qw( thread bytecode byterun proto perlio ); $ckfunc = 0; LINE: while (<CPP>) { while (/^#.*vmsish\.h/i .. /^#.*perl\.h/i) { |