--- builds_bin/update_repos	2007/06/03 04:13:57	1.11
+++ builds_bin/update_repos	2007/06/03 16:00:54	1.12
@@ -200,14 +200,14 @@ foreach my $repo ( keys %srpms ) {
 
 print "\n";
 foreach my $repo ( sort keys %copy ) {
-        foreach my $rpm ( @{$copy{$repo}} ) {
+        foreach my $rpm ( keys %{{ map { $_ => 1 } @{$copy{$repo}} }} ) {
                 print "copying $rpm to $repo/\n";
                 system(qw(cp --preserve=timestamps), $rpm, "$repo/");
         }
 }
 
 print "\n";
-foreach my $rpm ( @remove, map { $_->{rpm}->filename } grep { $_->{repo} eq 'deleted' } @rpms ) {
+foreach my $rpm ( keys %{{ map { $_ => 1 } (@remove, map { $_->{rpm}->filename } grep { $_->{repo} eq 'deleted' } @rpms) }} ) {
         print "removing $rpm\n";
         unlink $rpm;
 }