From 1c69a2a16eba297caf673fc75dd857c8a3082ab8 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Thu, 15 Mar 2012 19:13:03 +0000
Subject: make clean-rpmsrate 11.5% faster on average on cached repo directory
 by doing less work in the regexp engine and less path walks

elapsed time consistently go down from 0.70 to 0.62 on scores of run
(mainly a win in time spend in the kernel)
---
 NEWS           | 1 +
 clean-rpmsrate | 5 ++++-
 2 files changed, 5 insertions(+), 1 deletion(-)

diff --git a/NEWS b/NEWS
index 5a4f0f9..85d3484 100644
--- a/NEWS
+++ b/NEWS
@@ -3,6 +3,7 @@
   o fix matching dkms packages (broken for years...)
   o fix matching locales-xx_XX for localized packages
   o fix matching mga extension (broken since mga fork)
+  o 11.5% faster on average on cached repo directory
 
 0.1:
 - initial release
diff --git a/clean-rpmsrate b/clean-rpmsrate
index 2bdac4f..dc7a317 100755
--- a/clean-rpmsrate
+++ b/clean-rpmsrate
@@ -18,6 +18,9 @@ my $rpmsrate_raw_file = shift @ARGV;
 
 my %rpm;
 foreach my $dir (@ARGV) {
-    $rpm{$dir} = [ map { s!$dir/?(.*)\.rpm$!$1!; $_ } glob "$dir/*.rpm" ];
+    chdir($dir);
+    $rpm{$dir} = [ map { s!(.*)\.rpm$!$1!; $_ } glob "*.rpm" ];
 }
+chdir($ENV{PWD}); # in case -o referes to a relative path
+
 cleanrpmsrate($rpmsrate_raw_file, $output_file, \%rpm);
-- 
cgit v1.2.1