diff options
Diffstat (limited to 'meta/recipes-devtools/perl/perl-5.14.3/perl-build-in-t-dir.patch')
| -rw-r--r-- | meta/recipes-devtools/perl/perl-5.14.3/perl-build-in-t-dir.patch | 42 |
1 files changed, 0 insertions, 42 deletions
diff --git a/meta/recipes-devtools/perl/perl-5.14.3/perl-build-in-t-dir.patch b/meta/recipes-devtools/perl/perl-5.14.3/perl-build-in-t-dir.patch deleted file mode 100644 index 16064ede92..0000000000 --- a/meta/recipes-devtools/perl/perl-5.14.3/perl-build-in-t-dir.patch +++ /dev/null | |||
| @@ -1,42 +0,0 @@ | |||
| 1 | Upstream-Status:Pending | ||
| 2 | |||
| 3 | Perl cannot cross build in a path containing a directory that has the | ||
| 4 | name of "t". As an example, you can make the perl build fail with | ||
| 5 | "mkdir -p /tmp/build/t", go to the directory, unpack the sources, | ||
| 6 | configure and cross build. | ||
| 7 | |||
| 8 | You get an error like the following: | ||
| 9 | pod/buildtoc: no pods at pod/buildtoc line 305. | ||
| 10 | make[1]: *** [pod/perltoc.pod] Error 255 | ||
| 11 | |||
| 12 | The fix is to strip off the top directory that you are building in and | ||
| 13 | then execute all the same logic as before against the path relative to | ||
| 14 | the build directory. | ||
| 15 | |||
| 16 | Signed-off-by: Jason Wessel <jason.wessel@windriver.com> | ||
| 17 | --- | ||
| 18 | pod/buildtoc | 4 +++- | ||
| 19 | 1 file changed, 3 insertions(+), 1 deletion(-) | ||
| 20 | |||
| 21 | --- a/pod/buildtoc | ||
| 22 | +++ b/pod/buildtoc | ||
| 23 | @@ -274,8 +274,10 @@ if ($Build{toc}) { | ||
| 24 | find \&getpods => abs_from_top('lib/'); | ||
| 25 | |||
| 26 | sub getpods { | ||
| 27 | + my $Top = $FindBin::Bin; | ||
| 28 | if (/\.p(od|m)$/) { | ||
| 29 | my $file = $File::Find::name; | ||
| 30 | + $file =~ s!^$Top!!; | ||
| 31 | return if $file =~ qr!/lib/Pod/Functions.pm\z!; # Used only by pod itself | ||
| 32 | return if $file =~ m!(?:^|/)t/!; | ||
| 33 | return if $file =~ m!lib/Attribute/Handlers/demo/!; | ||
| 34 | @@ -283,7 +285,7 @@ if ($Build{toc}) { | ||
| 35 | return if $file =~ m!lib/Math/BigInt/t/!; | ||
| 36 | return if $file =~ m!/Devel/PPPort/[Hh]arness|lib/Devel/Harness!i; | ||
| 37 | return if $file =~ m!XS/(?:APItest|Typemap)!; | ||
| 38 | - my $pod = $file; | ||
| 39 | + my $pod = $file = $File::Find::name; | ||
| 40 | return if $pod =~ s/pm$/pod/ && -e $pod; | ||
| 41 | unless (open my $f, '<', $_) { | ||
| 42 | warn "$0: bogus <$file>: $!"; | ||
