From 9bfdab7b14cdbae1c80ab67da44cb5a580289f55 Mon Sep 17 00:00:00 2001
From: Rob Austein <sra@hactrn.net>
Date: Tue, 5 Sep 2006 13:50:38 +0000
Subject: Cleanup

svn path=/scripts/generate-testrepo.pl; revision=254
---
 scripts/generate-testrepo.pl | 11 ++++-------
 1 file changed, 4 insertions(+), 7 deletions(-)

(limited to 'scripts/generate-testrepo.pl')

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",
-- 
cgit v1.2.3