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)

2 files changed, 5 insertions, 1 deletions

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);