mirror of
https://git.yoctoproject.org/poky
synced 2026-09-14 03:49:32 +02:00
There is a securty issue: http://web.nvd.nist.gov/view/vuln/detail?vulnId=CVE-2012-5195 Update perl to 5.14.3 could resolve this problem. And update perl-native first. (From OE-Core rev: 360401af6e7729a373d0a6d13995714aff121064) Signed-off-by: Kang Kai <kai.kang@windriver.com> Signed-off-by: Richard Purdie <richard.purdie@linuxfoundation.org>
43 lines
1.5 KiB
Diff
43 lines
1.5 KiB
Diff
Upstream-Status:Pending
|
|
|
|
Perl cannot cross build in a path containing a directory that has the
|
|
name of "t". As an example, you can make the perl build fail with
|
|
"mkdir -p /tmp/build/t", go to the directory, unpack the sources,
|
|
configure and cross build.
|
|
|
|
You get an error like the following:
|
|
pod/buildtoc: no pods at pod/buildtoc line 305.
|
|
make[1]: *** [pod/perltoc.pod] Error 255
|
|
|
|
The fix is to strip off the top directory that you are building in and
|
|
then execute all the same logic as before against the path relative to
|
|
the build directory.
|
|
|
|
Signed-off-by: Jason Wessel <jason.wessel@windriver.com>
|
|
---
|
|
pod/buildtoc | 4 +++-
|
|
1 file changed, 3 insertions(+), 1 deletion(-)
|
|
|
|
--- a/pod/buildtoc
|
|
+++ b/pod/buildtoc
|
|
@@ -274,8 +274,10 @@ if ($Build{toc}) {
|
|
find \&getpods => abs_from_top('lib/');
|
|
|
|
sub getpods {
|
|
+ my $Top = $FindBin::Bin;
|
|
if (/\.p(od|m)$/) {
|
|
my $file = $File::Find::name;
|
|
+ $file =~ s!^$Top!!;
|
|
return if $file =~ qr!/lib/Pod/Functions.pm\z!; # Used only by pod itself
|
|
return if $file =~ m!(?:^|/)t/!;
|
|
return if $file =~ m!lib/Attribute/Handlers/demo/!;
|
|
@@ -283,7 +285,7 @@ if ($Build{toc}) {
|
|
return if $file =~ m!lib/Math/BigInt/t/!;
|
|
return if $file =~ m!/Devel/PPPort/[Hh]arness|lib/Devel/Harness!i;
|
|
return if $file =~ m!XS/(?:APItest|Typemap)!;
|
|
- my $pod = $file;
|
|
+ my $pod = $file = $File::Find::name;
|
|
return if $pod =~ s/pm$/pod/ && -e $pod;
|
|
unless (open my $f, '<', $_) {
|
|
warn "$0: bogus <$file>: $!";
|