From 93a881b4408a625b3dc747f774c650e7e6f98982 Mon Sep 17 00:00:00 2001
From: Rob Austein <sra@hactrn.net>
Date: Tue, 12 Sep 2006 02:25:57 +0000
Subject: Plugged preexisting memory leak in "openssl ca".

svn path=/scripts/generate-testrepo.pl; revision=263
---
 scripts/generate-testrepo.pl | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

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

diff --git a/scripts/generate-testrepo.pl b/scripts/generate-testrepo.pl
index f7714031..df57243d 100644
--- a/scripts/generate-testrepo.pl
+++ b/scripts/generate-testrepo.pl
@@ -9,13 +9,17 @@ my %parent;
 my @ordering;
 my %hashes;
 
+my $openssl	= "../../openssl/trunk/apps/openssl";
 my $subdir	= "apacheca";
 my $passwd	= "fnord";
 my $keybits	= 2048;
 my $verbose	= 0;
+my $debug	= 1;
 
 sub openssl {
-    !system("openssl", @_)
+    print(STDERR join(" ", qw(+ openssl), @_), "\n")
+	if ($debug);
+    !system($openssl, @_)
 	or die("openssl @_ returned $?\n");
 }
 
-- 
cgit v1.2.3