--- /dev/null
+--- perl-5.10.0/utils/h2ph.PL.orig 2007-12-18 11:47:08.000000000 +0100
++++ perl-5.10.0/utils/h2ph.PL 2008-02-10 14:01:47.206525485 +0100
+@@ -717,6 +717,7 @@
+
+ return if ($file eq "-");
+
++ (my $filedir = $file) =~ s/[^\/]*$//;
+ open HEADER, $file or return;
+ while (defined($line = <HEADER>)) {
+ while (/\\$/) { # Handle continuation lines
+@@ -726,6 +727,8 @@
+
+ if ($line =~ /^#\s*include\s+<(.*?)>/) {
+ push(@ARGV, $1) unless $Is_converted{$1};
++ } elsif ($line =~ /^#\s*include\s+\"(.*?)\"/) {
++ push(@ARGV, $filedir . $1) unless $Is_converted{$filedir . $1};
+ }
+ }
+ close HEADER;