Parent Directory
| 
Revision Log
| 
Patch
| revision 3524 by tv, Thu Mar 15 19:12:57 2012 UTC | revision 3525 by tv, Thu Mar 15 19:13:00 2012 UTC | |
|---|---|---|
| # | Line 17 $ARGV[1] or print "\nUsage: | Line 17 $ARGV[1] or print "\nUsage: |
| 17 | my $rpmsrate_raw_file = shift @ARGV; | my $rpmsrate_raw_file = shift @ARGV; |
| 18 | ||
| 19 | my %rpm; | my %rpm; |
| 20 | foreach my $d (@ARGV) { | foreach my $dir (@ARGV) { |
| 21 | $rpm{$d} = [ map { s!$d/?(.*)\.rpm$!$1!; $_ } glob "$d/*.rpm" ]; | $rpm{$dir} = [ map { s!$dir/?(.*)\.rpm$!$1!; $_ } glob "$dir/*.rpm" ]; |
| 22 | } | } |
| 23 | cleanrpmsrate($rpmsrate_raw_file, $output_file, \%rpm); | cleanrpmsrate($rpmsrate_raw_file, $output_file, \%rpm); |
|
||||||||
| ViewVC Help | |
| Powered by ViewVC 1.1.30 |