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)

1 files changed, 4 insertions, 1 deletions

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