diff options
author | Larry Wall <lwall@jpl-devvax.jpl.nasa.gov> | 1990-10-16 02:28:17 +0000 |
---|---|---|
committer | Larry Wall <lwall@jpl-devvax.jpl.nasa.gov> | 1990-10-16 02:28:17 +0000 |
commit | d9d8d8de9462d72f6b4520fc11dd84dbe2c8bf1d (patch) | |
tree | 42dd9d991eecc159ab1e232be5f9941456228df0 /h2ph.SH | |
parent | c2ab57d4ffc80c0e2a9e968e66e52c289ac9ed45 (diff) | |
download | perl-d9d8d8de9462d72f6b4520fc11dd84dbe2c8bf1d.tar.gz |
perl 3.0 patch #32 patch #29, continued
See patch #29.
Diffstat (limited to 'h2ph.SH')
-rw-r--r-- | h2ph.SH | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -102,7 +102,8 @@ foreach $file (@ARGV) { } } elsif (/^include <(.*)>/) { - print OUT $t,"do '$1' || die \"Can't include $1: \$!\";\n"; + ($incl = $1) =~ s/\.h$/.ph/; + print OUT $t,"require '$incl';\n"; } elsif (/^ifdef\s+(\w+)/) { print OUT $t,"if (defined &$1) {\n"; |