From 8bb0c64017abed30348ce0ff939b65c104486cc7 Mon Sep 17 00:00:00 2001 From: Rafael Garcia-Suarez Date: Tue, 12 Apr 2005 11:22:17 +0000 Subject: 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. --- perl-install/install_any.pm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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" : "") . " } "; -- cgit v1.2.1