diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-03-03 15:42:28 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-03-03 15:42:28 +0000 |
| commit | c93fa8177be816b728baa070d16f5574403845f6 (patch) | |
| tree | 4808e1f396a09528ccea5aca00bedca957836837 /vms/gen_shrfls.pl | |
| parent | 8c8ad484ae56ad5a81dc3b76a40859fc90c16a10 (diff) | |
| parent | 7e6fa307436d3e019e355ee1012a967957762854 (diff) | |
| download | perl-c93fa8177be816b728baa070d16f5574403845f6.tar.gz | |
integrate cfgperl and vmsperl contents into mainline
p4raw-id: //depot/perl@5486
Diffstat (limited to 'vms/gen_shrfls.pl')
| -rw-r--r-- | vms/gen_shrfls.pl | 6 |
1 files changed, 0 insertions, 6 deletions
diff --git a/vms/gen_shrfls.pl b/vms/gen_shrfls.pl index c668120464..a109f7bdfd 100644 --- a/vms/gen_shrfls.pl +++ b/vms/gen_shrfls.pl @@ -186,12 +186,6 @@ LINE: while (<CPP>) { print "opcode.h>> $_" if $debug > 2; if (/^OP \*\s/) { &scan_func($_); } if (/^\s*EXT/) { &scan_var($_); } - if (/^\s+OP_/) { &scan_enum($_); } - last LINE unless defined($_ = <CPP>); - } - while (/^typedef enum/ .. /^\s*\}/) { - print "global enum>> $_" if $debug > 2; - &scan_enum($_); last LINE unless defined($_ = <CPP>); } # Check for transition to new header file |