summaryrefslogtreecommitdiff
path: root/h2ph.SH
diff options
context:
space:
mode:
authorLarry Wall <lwall@jpl-devvax.jpl.nasa.gov>1990-10-16 02:28:17 +0000
committerLarry Wall <lwall@jpl-devvax.jpl.nasa.gov>1990-10-16 02:28:17 +0000
commitd9d8d8de9462d72f6b4520fc11dd84dbe2c8bf1d (patch)
tree42dd9d991eecc159ab1e232be5f9941456228df0 /h2ph.SH
parentc2ab57d4ffc80c0e2a9e968e66e52c289ac9ed45 (diff)
downloadperl-d9d8d8de9462d72f6b4520fc11dd84dbe2c8bf1d.tar.gz
perl 3.0 patch #32 patch #29, continued
See patch #29.
Diffstat (limited to 'h2ph.SH')
-rw-r--r--h2ph.SH3
1 files changed, 2 insertions, 1 deletions
diff --git a/h2ph.SH b/h2ph.SH
index cac5adae95..903cad3a70 100644
--- a/h2ph.SH
+++ b/h2ph.SH
@@ -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";