Stop when we know we've reached the end of mlarchive as there won't b…

…e any more
nigelhorne · Dec 18, 2020 · 100a7d5 · 100a7d5
1 parent 5b008b2
commit 100a7d5
Showing 1 changed file with 2 additions and 2 deletions.
diff --git 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) {