From f6e4d6e99e41fb0e41753f61fa2453f2f6c459ee Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Thu, 15 Mar 2012 12:17:11 +0000 Subject: rename $rpmsrate as $output_file to show its real purpose --- clean-rpmsrate | 6 +++--- 1 file 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] ... @@ -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); -- cgit v1.2.1