diff options
| author | Rob Austein <sra@hactrn.net> | 2006-09-05 13:50:38 +0000 |
|---|---|---|
| committer | Rob Austein <sra@hactrn.net> | 2006-09-05 13:50:38 +0000 |
| commit | 9bfdab7b14cdbae1c80ab67da44cb5a580289f55 (patch) | |
| tree | efd60d092f5c803da1bd44569915699d0a3c6d6f | |
| parent | a23bf34b39df9703ac16129881767e7024143486 (diff) | |
Cleanup
svn path=/scripts/generate-testrepo.pl; revision=254
| -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", |