[lintian] 01/01: t/runtests: Set /bin/bash for worker threads
This is an automated email from the git hooks/post-receive script.
nthykier pushed a commit to branch master
in repository lintian.
commit 38f0ed0d18f00bf319db47dc5ab9d6f9d61e1467
Author: Niels Thykier <niels@thykier.net>
Date: Sun Apr 10 12:40:26 2016 +0000
t/runtests: Set /bin/bash for worker threads
Signed-off-by: Niels Thykier <niels@thykier.net>
---
.perlcriticrc | 2 +-
lib/Lintian/Unpacker.pm | 6 +-----
t/runtests | 5 +++++
3 files changed, 7 insertions(+), 6 deletions(-)
diff --git a/.perlcriticrc b/.perlcriticrc
index 2bc2ddc..2280a02 100644
--- a/.perlcriticrc
+++ b/.perlcriticrc
@@ -54,4 +54,4 @@ allow_last_statement_to_be_comma_separated_in_map_and_grep = 1
[-Variables::ProhibitPunctuationVars]
[Variables::RequireLocalizedPunctuationVars]
-allow = %ENV %SIG $! $?
+allow = %ENV %SIG $! $? $0
diff --git a/lib/Lintian/Unpacker.pm b/lib/Lintian/Unpacker.pm
index e910814..efd9fa5 100644
--- a/lib/Lintian/Unpacker.pm
+++ b/lib/Lintian/Unpacker.pm
@@ -442,11 +442,7 @@ sub process_tasks {
# For platforms that do not support, the child
# process will just keep its name as
# "lintian".
- my $name = "${coll} (processing ${procid})";
-#<<<
- # no Perltidy (breaks the no-critic)
- $0 = $name; ## no critic (Variables::RequireLocalizedPunctuationVars)
-#>>>
+ $0 = "${coll} (processing ${procid})";
eval {$cs->collect($pkg_name, $pkg_type, $base);};
if ($@) {
diff --git a/t/runtests b/t/runtests
index a966770..107c949 100755
--- a/t/runtests
+++ b/t/runtests
@@ -751,9 +751,13 @@ sub create_child {
channels_out => [$child_out_ch],
code => sub {
+ $0 = 'Test worker - idle';
while (my $test_data = $child_in_ch->recv) {
my $state = Test::State->new($test_data, $child_out_ch);
my $suite = $test_data->{'suite'};
+ my $testname = $test_data->{testname};
+
+ $0 = "Test worker - processing ${suite}::${testname}";
eval {
if ($suite eq 'changes') {
@@ -772,6 +776,7 @@ sub create_child {
if (my $err = $@) {
$state->test_error($err);
}
+ $0 = 'Test worker - idle';
# my $testname = $ref->{'testname'};
# print STDERR "$child_no: $suite::$testname\n";
--
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/lintian/lintian.git
Reply to: