diff options
| -rw-r--r-- | scripts/generate-testrepo.pl | 11 |
1 files changed, 4 insertions, 7 deletions
diff --git a/scripts/generate-testrepo.pl b/scripts/generate-testrepo.pl index 7246f332..0e4a84dc 100644 --- a/scripts/generate-testrepo.pl +++ b/scripts/generate-testrepo.pl @@ -64,17 +64,14 @@ chdir($subdir) or die; # Generate configurations for each entity. while (my ($entity, $resources) = each(%resources)) { - if ($verbose) { - print($entity, ":\n"); - for (my $i = 0; $i < @$resources; $i += 2) { - printf(" %4s: %s\n", $resources->[$i], $resources->[$i+1]); - } - } my %r; + print($entity, ":\n") + if ($verbose); for (my $i = 0; $i < @$resources; $i += 2) { + printf(" %4s: %s\n", $resources->[$i], $resources->[$i+1]) + if ($verbose); push(@{$r{$resources->[$i]}}, $resources->[$i+1]); } - open(F, ">${entity}.cnf") or die; print(F "[ req ]\n", |