summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2005-04-12 11:22:17 +0000
committerRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2005-04-12 11:22:17 +0000
commit8bb0c64017abed30348ce0ff939b65c104486cc7 (patch)
tree73c52ad15963b5c46166e0d58138904067fec03a /perl-install
parentbb4bc734500951eb77ef646fb86d365a29b097db (diff)
downloaddrakx-8bb0c64017abed30348ce0ff939b65c104486cc7.tar
drakx-8bb0c64017abed30348ce0ff939b65c104486cc7.tar.gz
drakx-8bb0c64017abed30348ce0ff939b65c104486cc7.tar.bz2
drakx-8bb0c64017abed30348ce0ff939b65c104486cc7.tar.xz
drakx-8bb0c64017abed30348ce0ff939b65c104486cc7.zip
When installing urpmi, mark cd-rom media as "static" so they never get
updated. This is needed because those media use hdlists, but the hdlist path is false for all CDs except the first one.
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install_any.pm4
1 files changed, 3 insertions, 1 deletions
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index f5b01e351..26ad0865d 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -1017,6 +1017,7 @@ sub install_urpmi {
$removable_device = '/dev/cdrom';
my $p; $p = fs::get::mntpoint2part("/tmp/image", $::o->{fstab})
and $removable_device = $p->{device};
+ $_->{static} = 1;
}
#- build a list file if needed.
@@ -1091,7 +1092,8 @@ sub install_urpmi {
list: list.$name" : "") . (keys(%{$_->{key_ids}}) ? "
key-ids: " . join(',', keys(%{$_->{key_ids}})) : "") . (defined $removable_device && "
removable: $removable_device") . ($_->{update} ? "
- update" : "") . "
+ update" : "") . ($_->{static} ? "
+ static" : "") . "
}
";