Refactor skip_all_without_config() to take a list of config options to test.

Previously it took a second argument as a reason to show in the skip_all
message, if the config option was not set. However, no callers were using it,
so remove it. This allows skip_all_without_config() to take a list of keys
to test, which is useful to two of its callers.

1 files changed, 4 insertions, 5 deletions

diff --git a/t/test.pl b/t/test.pl
index fa151eced2..01035afc33 100644
--- a/t/test.pl
+++ b/t/test.pl
@@ -137,18 +137,17 @@ sub skip_all_without_perlio {
 }
 
 sub skip_all_without_config {
-    my ($key, $reason) = @_;
     unless (eval 'require Config; 1') {
 	warn "test.pl had problems loading Config: $@";
 	return;
     }
-    return if $Config::Config{$key};
-    unless (defined $reason) {
+    foreach (@_) {
+	next if $Config::Config{$_};
+	my $key = $_; # Need to copy, before trying to modify.
 	$key =~ s/^use//;
 	$key =~ s/^d_//;
-	$reason = "no $key";
+	skip_all("no $key");
     }
-    skip_all($reason);
 }
 
 sub _ok {