diff options
Diffstat (limited to 'meta/recipes-devtools/perl/perl/test')
2 files changed, 64 insertions, 0 deletions
diff --git a/meta/recipes-devtools/perl/perl/test/dist-threads-t-join.t-adjust-ps-option.patch b/meta/recipes-devtools/perl/perl/test/dist-threads-t-join.t-adjust-ps-option.patch new file mode 100644 index 0000000000..08a6b0a5fd --- /dev/null +++ b/meta/recipes-devtools/perl/perl/test/dist-threads-t-join.t-adjust-ps-option.patch @@ -0,0 +1,38 @@ +dist/threads/t/join.t: adjust ps option + +The ps's option '-f' is not supported by busybox in oe. + +Upstream-Status: [oe specific] +Signed-off-by: Hongxu Jia <hongxu.jia@windriver.com> +--- + dist/threads/t/join.t | 6 +++--- + 1 file changed, 3 insertions(+), 3 deletions(-) + +diff --git a/dist/threads/t/join.t b/dist/threads/t/join.t +--- a/dist/threads/t/join.t ++++ b/dist/threads/t/join.t +@@ -118,7 +118,7 @@ if ($^O eq 'linux') { + })->join; + #print "# mainthread: \$0 = $0\n"; + #print "# pid = $$\n"; +- if (open PS, "ps -f |") { # Note: must work in (all) systems. ++ if (open PS, "ps |") { # Note: must work in (all) systems. + my ($sawpid, $sawexe); + while (<PS>) { + chomp; +@@ -135,10 +135,10 @@ if ($^O eq 'linux') { + if ($sawpid) { + ok($sawpid && $sawexe, 'altering $0 is effective'); + } else { +- skip("\$0 check: did not see pid $$ in 'ps -f |'"); ++ skip("\$0 check: did not see pid $$ in 'ps |'"); + } + } else { +- skip("\$0 check: opening 'ps -f |' failed: $!"); ++ skip("\$0 check: opening 'ps |' failed: $!"); + } + } else { + skip("\$0 check: only on Linux"); +-- +1.8.1.2 + diff --git a/meta/recipes-devtools/perl/perl/test/ext-DynaLoader-t-DynaLoader.t-fix-calling-dl_findfil.patch b/meta/recipes-devtools/perl/perl/test/ext-DynaLoader-t-DynaLoader.t-fix-calling-dl_findfil.patch new file mode 100644 index 0000000000..1ee818c27b --- /dev/null +++ b/meta/recipes-devtools/perl/perl/test/ext-DynaLoader-t-DynaLoader.t-fix-calling-dl_findfil.patch @@ -0,0 +1,26 @@ +ext/DynaLoader/t/DynaLoader.t: fix calling dl_findfile() failed + +Use '$Config{libc}' as the libc file name + +Upstream-Status: oe specific +Signed-off-by: Hongxu Jia <hongxu.jia@windriver.com> +--- + ext/DynaLoader/t/DynaLoader.t | 2 +- + 1 file changed, 1 insertion(+), 1 deletion(-) + +diff --git a/ext/DynaLoader/t/DynaLoader.t b/ext/DynaLoader/t/DynaLoader.t +index ade1f8e..3567afe 100644 +--- a/ext/DynaLoader/t/DynaLoader.t ++++ b/ext/DynaLoader/t/DynaLoader.t +@@ -106,7 +106,7 @@ ok( defined $dlerr, "dl_error() returning an error message: '$dlerr'" ); + # ... dl_findfile() + SKIP: { + my @files = (); +- eval { @files = DynaLoader::dl_findfile("c") }; ++ eval { @files = DynaLoader::dl_findfile($Config{libc}) }; + is( $@, '', "calling dl_findfile()" ); + # Some platforms are known to not have a "libc" + # (not at least by that name) that the dl_findfile() +-- +1.8.1.2 + |