summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2003-08-13 17:01:08 +0000
committerFrancois Pons <fpons@mandriva.com>2003-08-13 17:01:08 +0000
commitd1f9764f450071ec6f49b68cc750ae207a250bfd (patch)
treefbc4dd81681b124f9c89a3dd7bc2d059499d5a8d /perl-install
parenta25a5d1eefcff5c8d64278d3d33e5eb3b703ae52 (diff)
downloaddrakx-backup-do-not-use-d1f9764f450071ec6f49b68cc750ae207a250bfd.tar
drakx-backup-do-not-use-d1f9764f450071ec6f49b68cc750ae207a250bfd.tar.gz
drakx-backup-do-not-use-d1f9764f450071ec6f49b68cc750ae207a250bfd.tar.bz2
drakx-backup-do-not-use-d1f9764f450071ec6f49b68cc750ae207a250bfd.tar.xz
drakx-backup-do-not-use-d1f9764f450071ec6f49b68cc750ae207a250bfd.zip
fixed to build an inflexion point in list file (so that urpmi can found it).
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install_any.pm11
1 files changed, 6 insertions, 5 deletions
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index 8c3978930..6d8d2f432 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -519,9 +519,9 @@ sub install_urpmi {
#- WARNING this method of build only works because synthesis (or hdlist)
#- has been read.
foreach (@{$packages->{depslist}}[$_->{start} .. $_->{end}]) {
- my $ldir = $dir;
my $arch = $_->arch;
- $ldir =~ s/%{ARCH}/$arch/g;
+ my $ldir = $dir;
+ $ldir =~ s|/([^/]*)%{ARCH}|/./$1$arch|; $ldir =~ s|%{ARCH}|$arch|g;
print $LIST "$ldir/".$_->filename."\n";
}
} else {
@@ -529,9 +529,9 @@ sub install_urpmi {
open(my $F, "parsehdlist '$prefix/var/lib/urpmi/hdlist.$name.cz' |");
local $_;
while (<$F>) {
- my $ldir = $dir;
my $arch = $_->arch;
- $ldir =~ s/%{ARCH}/$arch/g;
+ my $ldir = $dir;
+ $ldir =~ s|/([^/]*)%{ARCH}|/./$1$arch|; $ldir =~ s|%{ARCH}|$arch|g;
print $LIST "$ldir/$_";
}
close $F;
@@ -557,8 +557,9 @@ sub install_urpmi {
$with = "../base/hdlist.cz";
} else {
$with = $_->{rpmsdir};
+ $with =~ s|/[^/]*%{ARCH}.*||;
$with =~ s|/+|/|g; $with =~ s|/$||; $with =~ s|[^/]||g; $with =~ s|/|../|g;
- $with .= "Mandrake/base/$_->{hdlist}";
+ $with .= "../Mandrake/base/$_->{hdlist}";
}
#- output new urpmi.cfg format here.