Skip to content
Browse files

Name the $? logic

  • Loading branch information...
1 parent 7addeb8 commit d3e3de78af55efe1db28e94f4df300e6ae8dcec6 @sartak committed
Showing with 2 additions and 1 deletion.
  1. +2 −1 devel/test-combos.pl
View
3 devel/test-combos.pl
@@ -17,7 +17,8 @@
$ENV{PERL5OPT} = "-MTest::Without::Module=$list";
system("prove");
- push @{ $results{ $? >> 8 ? "NOT OK" : "OK" } }, $list;
+ my $result = $? >> 8 ? "NOT OK" : "OK";
+ push @{ $results{$result} }, $list;
}
for my $result (sort keys %results) {

0 comments on commit d3e3de7

Please sign in to comment.
Something went wrong with that request. Please try again.