Save a little memory

nigelhorne · Feb 23, 2024 · 5134ed9 · 5134ed9
1 parent 2d4d21e
commit 5134ed9
Showing 1 changed file with 4 additions and 3 deletions.
diff --git a/bin/create_db.PL b/bin/create_db.PL
@@ -483,10 +483,10 @@ sub flush($)
 	my $dbh = shift;
 
 	# Remove duplicates
-	my %seen;
 	my @deduped;
+	my %seen;
 
-	foreach my $item(@queue) {
+	while(my $item = pop @queue) {
 		# my $first = $item->{'first'};
 		# if(!defined($first)) {
 			# $item->{'first'} = '';
@@ -518,7 +518,8 @@ sub flush($)
 			# print "$k\n";
 		}
 	}
-	@queue = ();	# Make sure Perl really frees all memory
+	undef @queue;	# Make sure Perl really frees all memory
+	undef %seen;
 
 	my $query;