From aa3e72b2a1d37d6fbbb0b0864cd6f2c61ad6b64f Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Thu, 15 Mar 2012 19:12:57 +0000 Subject: reorder for clarity --- clean-rpmsrate | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/clean-rpmsrate b/clean-rpmsrate index 8ab8f04..2e90985 100755 --- a/clean-rpmsrate +++ b/clean-rpmsrate @@ -14,8 +14,9 @@ $ARGV[1] or print "\nUsage: options: -o file: output file\n\n" and exit(); -my %rpm; my $rpmsrate_raw_file = shift @ARGV; + +my %rpm; foreach my $d (@ARGV) { $rpm{$d} = [ map { s!$d/?(.*)\.rpm$!$1!; $_ } glob "$d/*.rpm" ]; } -- cgit v1.2.1