From 100a7d5be6efb79a2e9ac8e9293148337e1d395c Mon Sep 17 00:00:00 2001
From: Nigel Horne <nigel.horne@nasa.gov>
Date: Fri, 18 Dec 2020 10:27:04 -0500
Subject: [PATCH] Stop when we know we've reached the end of mlarchive as there
 won't be any more

---
 bin/create_db.PL | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/bin/create_db.PL b/bin/create_db.PL
index 18fabaf..41877ad 100755
--- a/bin/create_db.PL
+++ b/bin/create_db.PL
@@ -83,10 +83,10 @@ $ua->conn_cache()->total_capacity(undef);
 
 my $page = 1;
 my @queue;
-while(1) {
+do {
 	last if(!mlarchives($ua, $page));
 	$page++;
-}
+} while($page < 200);
 
 my $issue = 9;
 while(1) {