aboutsummaryrefslogtreecommitdiffstats
path: root/rpmtools.pm
diff options
context:
space:
mode:
Diffstat (limited to 'rpmtools.pm')
-rw-r--r--rpmtools.pm16
1 files changed, 11 insertions, 5 deletions
diff --git a/rpmtools.pm b/rpmtools.pm
index b3bc6d9..6805fd0 100644
--- a/rpmtools.pm
+++ b/rpmtools.pm
@@ -154,7 +154,9 @@ sub compute_depslist {
}
}
#- setup, filesystem and basesystem should be at the beginning.
- @ordered{qw(setup filesystem basesystem)} = (30000, 20000, 10000);
+ @ordered{qw(ld.so readline termcap libtermcap bash sash glibc
+ setup filesystem basesystem)} =
+ (100000, 90000, 80000, 70000, 60000, 50000, 40000, 30000, 20000, 10000);
#- compute base flag, consists of packages which are required without
#- choices of basesystem and are ALWAYS installed. these packages can
@@ -208,7 +210,8 @@ sub read_depslist {
my ($params, $FILE) = @_;
my $global_id = scalar @{$params->{depslist}};
- foreach (<$FILE>) {
+ local $_;
+ while (<$FILE>) {
chomp; /^\s*#/ and next;
my ($name, $version, $release, $size, $deps) = /^(\S*)-([^-\s]+)-([^-\s]+)\s+(\d+)\s*(.*)/;
@@ -290,7 +293,8 @@ sub write_depslist {
sub read_provides_files {
my ($params, $FILE) = @_;
- foreach (<$FILE>) {
+ local $_;
+ while (<$FILE>) {
chomp;
my ($k, @v) = split ':';
$k =~ /^\// and $params->{provides}{$k} ||= undef;
@@ -332,7 +336,8 @@ sub keep_only_cleaned_provides_files {
sub read_provides {
my ($params, $FILE) = @_;
- foreach (<$FILE>) {
+ local $_;
+ while (<$FILE>) {
chomp;
my ($k, @v) = split ':';
$params->{provides}{$k} = @v > 0 ? \@v : undef;
@@ -354,7 +359,8 @@ sub read_compss {
my ($params, $FILE) = @_;
my $p;
- foreach (<$FILE>) {
+ local $_;
+ while (<$FILE>) {
/^\s*$/ || /^#/ and next;
s/#.*//;