Speed and space optimisation when retrieving list of rpm files for a media.

1 files changed, 11 insertions, 7 deletions

diff --git a/urpm.pm b/urpm.pm
index 9250f8dc..31fdbc28 100644
--- a/urpm.pm
+++ b/urpm.pm
@@ -1348,13 +1348,17 @@ this could happen if you mounted manually the directory when creating the medium
 			}
 		    }
 		} else {
-		    File::Find::find(
-			{
-			    wanted => sub { -f $_ && /\.rpm$/ and push @files, "$File::Find::dir/$_" },
-			    follow => 1,
-			},
-			$dir,
-		    );
+		    {
+			my %f;
+			File::Find::find(
+			    {
+				wanted => sub { -f $_ && /\.rpm$/ and $f{"$File::Find::dir/$_"} = 1 },
+				follow_fast => 1,
+			    },
+			    $dir,
+			);
+			push @files, keys %f;
+		    }
 
 		    #- check files contains something good!
 		    if (@files > 0) {