diff options
Diffstat (limited to 'gendistrib')
| -rwxr-xr-x | gendistrib | 12 |
1 files changed, 6 insertions, 6 deletions
@@ -20,12 +20,12 @@ use strict qw(subs vars refs); use rpmtools; my $params = new rpmtools; -my ($nohdlists, $nobasefiles, @root, @hdlists) = 0; +my ($noclean, $nohdlists, $nobasefiles, @root, @hdlists) = 0; -($params->{options}{noclean}, @ARGV) = @ARGV if $ARGV[0] eq "--noclean"; -($nohdlists, @ARGV) = @ARGV if $ARGV[0] eq "--nohdlists"; -($nobasefiles, @ARGV) = @ARGV if $ARGV[0] eq "--nobasefiles"; -(undef, @root, @ARGV) = @ARGV if $ARGV[0] eq "--distrib"; +($noclean, @ARGV) = @ARGV if $ARGV[0] eq "--noclean"; +($nohdlists, @ARGV) = @ARGV if $ARGV[0] eq "--nohdlists"; +($nobasefiles, @ARGV) = @ARGV if $ARGV[0] eq "--nobasefiles"; +(undef, @root, @ARGV) = @ARGV if $ARGV[0] eq "--distrib"; @root > 0 && @ARGV == 0 or die "usage: gendistrib [--noclean] [--nohdlists] [--nobasefiles] --distrib <root distrib> <root_distrib2> ...\n"; @@ -72,7 +72,7 @@ unless ($nohdlists) { -d "$root/$dir" or die "unable to find a valid root directory which contains $dir\n"; print STDERR "building hdlist $hdlist as \"$descr\"\n with rpms directory $root/$dir\n"; - $params->build_hdlist($hdlist, glob("$root/$dir/*.rpm")); + $params->build_hdlist($noclean, ($ENV{TMPDIR} || "/tmp") . "/.build_hdlist", $hdlist, glob("$root/$dir/*.rpm")); } } |