diff options
| -rwxr-xr-x | clean-rpmsrate | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/clean-rpmsrate b/clean-rpmsrate index f9b7777..0ec4c3b 100755 --- a/clean-rpmsrate +++ b/clean-rpmsrate @@ -5,8 +5,8 @@ use strict; use MGATools::rpmsrate qw(cleanrpmsrate); -my $rpmsrate; -$ARGV[0] =~ /-o/ and shift @ARGV and $rpmsrate = shift; +my $output_file; +$ARGV[0] =~ /-o/ and shift @ARGV and $output_file = shift; $ARGV[1] or print "\nUsage: clean-rpmsrate [options] <rpmsrate file> <RPMs dir 1> <RPMs dir 2> ... <RPMs dir n> @@ -19,4 +19,4 @@ my $rpmsrate_base = shift @ARGV; foreach my $d (@ARGV) { $rpm{$d} = [ map { s!$d/?(.*)\.rpm$!$1!; $_ } glob "$d/*.rpm" ]; } -cleanrpmsrate($rpmsrate_base, $rpmsrate, 0, \%rpm); +cleanrpmsrate($rpmsrate_base, $output_file, 0, \%rpm); |