Parent Directory
| 
Revision Log
| 
Patch
| revision 3525 by tv, Thu Mar 15 19:13:00 2012 UTC | revision 3526 by tv, Thu Mar 15 19:13:03 2012 UTC | |
|---|---|---|
| # | Line 18 my $rpmsrate_raw_file = shift @ARGV; | Line 18 my $rpmsrate_raw_file = shift @ARGV; |
| 18 | ||
| 19 | my %rpm; | my %rpm; |
| 20 | foreach my $dir (@ARGV) { | foreach my $dir (@ARGV) { |
| 21 | $rpm{$dir} = [ map { s!$dir/?(.*)\.rpm$!$1!; $_ } glob "$dir/*.rpm" ]; | chdir($dir); |
| 22 | $rpm{$dir} = [ map { s!(.*)\.rpm$!$1!; $_ } glob "*.rpm" ]; | |
| 23 | } | } |
| 24 | chdir($ENV{PWD}); # in case -o referes to a relative path | |
| 25 | ||
| 26 | cleanrpmsrate($rpmsrate_raw_file, $output_file, \%rpm); | cleanrpmsrate($rpmsrate_raw_file, $output_file, \%rpm); |
|
||||||||
| ViewVC Help | |
| Powered by ViewVC 1.1.30 |