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
5 return if ($file eq "-");
7 + (my $filedir = $file) =~ s/[^\/]*$//;
8 open HEADER, $file or return;
9 while (defined($line = <HEADER>)) {
10 while (/\\$/) { # Handle continuation lines
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};