diff options
| author | Perl 5 Porters <perl5-porters.nicoh.com> | 1996-01-02 03:34:26 +0000 |
|---|---|---|
| committer | Andy Dougherty <doughera.lafayette.edu> | 1996-01-02 03:34:26 +0000 |
| commit | e518068a77032c4207f9b00e462857e158778ea4 (patch) | |
| tree | 9065232e3dd336991481bd375d547458f2d779c2 /vms/writemain.pl | |
| parent | f50fdf038490b1573b798e1f87716e6c0df0566e (diff) | |
| download | perl-e518068a77032c4207f9b00e462857e158778ea4.tar.gz | |
Updated for VMS.
Diffstat (limited to 'vms/writemain.pl')
| -rw-r--r-- | vms/writemain.pl | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/vms/writemain.pl b/vms/writemain.pl index 0208313288..cd4c534ad3 100644 --- a/vms/writemain.pl +++ b/vms/writemain.pl @@ -18,7 +18,6 @@ open (OUT,">${dir}perlmain.c") || die "$0: Can't open ${dir}perlmain.c: $!\n"; while (<IN>) { - s/INTERN\.h/EXTERN\.h/; print OUT; last if /Do not delete this line--writemain depends on it/; } @@ -32,6 +31,13 @@ if (!$ok) { } +print OUT <<'EOH'; + +static void +xs_init() +{ +EOH + if (@ARGV) { # Allow for multiple names in one quoted group @exts = split(/\s+/, join(' ',@ARGV)); |