From 20d94b5d72327914d1da0f9c2c9d1f724db1f086 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Fri, 16 Mar 2012 07:21:02 +0000
Subject: further simplify (Pascal Terjan)

---
 clean-rpmsrate | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/clean-rpmsrate b/clean-rpmsrate
index dc7a317..218b9be 100755
--- a/clean-rpmsrate
+++ b/clean-rpmsrate
@@ -19,7 +19,7 @@ my $rpmsrate_raw_file = shift @ARGV;
 my %rpm;
 foreach my $dir (@ARGV) {
     chdir($dir);
-    $rpm{$dir} = [ map { s!(.*)\.rpm$!$1!; $_ } glob "*.rpm" ];
+    $rpm{$dir} = [ map { s!\.rpm$!!; $_ } glob "*.rpm" ];
 }
 chdir($ENV{PWD}); # in case -o referes to a relative path
 
-- 
cgit v1.2.1