perl 3.0 patch #32 patch #29, continued

[perl5.git] / h2ph.SH

diff --git a/h2ph.SH b/h2ph.SH
index cac5ada..903cad3 100644 (file)
--- 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";