[packages/perl.git] / perl-h2ph-includes.patch

--- 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;
Commit	Line	Data
3240f754	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 @@
32aaf128 JB	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
3240f754	11	@@ -726,6 +727,8 @@
	12
	13	if ($line =~ /^#\sinclude\s+<(.?)>/) {
	14	push(@ARGV, $1) unless $Is_converted{$1};
32aaf128	15	+ } elsif ($line =~ /^#\sinclude\s+\"(.?)\"/) {
3240f754	16	+ push(@ARGV, $filedir . $1) unless $Is_converted{$filedir . $1};
3240f754	17	}
32aaf128 JB	18	}
32aaf128 JB	19	close HEADER;