]>
Commit | Line | Data |
---|---|---|
32aaf128 JB |
1 | --- perl-5.10.0/utils/h2ph.PL.orig 2007-12-18 11:47:08.000000000 +0100 |
2 | +++ perl-5.10.0/utils/h2ph.PL 2008-02-10 14:01:47.206525485 +0100 | |
3 | @@ -717,6 +717,7 @@ | |
4 | ||
5 | return if ($file eq "-"); | |
6 | ||
7 | + (my $filedir = $file) =~ s/[^\/]*$//; | |
8 | open HEADER, $file or return; | |
9 | while (defined($line = <HEADER>)) { | |
10 | while (/\\$/) { # Handle continuation lines | |
11 | @@ -726,6 +727,8 @@ | |
12 | ||
13 | if ($line =~ /^#\s*include\s+<(.*?)>/) { | |
14 | push(@ARGV, $1) unless $Is_converted{$1}; | |
15 | + } elsif ($line =~ /^#\s*include\s+\"(.*?)\"/) { | |
16 | + push(@ARGV, $filedir . $1) unless $Is_converted{$filedir . $1}; | |
17 | } | |
18 | } | |
19 | close HEADER; |