diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 1999-12-15 19:44:29 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 1999-12-15 19:44:29 +0000 |
| commit | 405fee60d1e1137611dae9783ae370563c901967 (patch) | |
| tree | e6178c064c6908a7aef5df4ade4454aed99def22 /perl-install | |
| parent | 6e1499a56590006f2a11ab711804fee205311c36 (diff) | |
| download | drakx-backup-do-not-use-405fee60d1e1137611dae9783ae370563c901967.tar drakx-backup-do-not-use-405fee60d1e1137611dae9783ae370563c901967.tar.gz drakx-backup-do-not-use-405fee60d1e1137611dae9783ae370563c901967.tar.bz2 drakx-backup-do-not-use-405fee60d1e1137611dae9783ae370563c901967.tar.xz drakx-backup-do-not-use-405fee60d1e1137611dae9783ae370563c901967.zip | |
no_comment
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/fsedit.pm | 10 | ||||
| -rw-r--r-- | perl-install/install2.pm | 3 | ||||
| -rw-r--r-- | perl-install/interactive_gtk.pm | 4 | ||||
| -rw-r--r-- | perl-install/share/compssList | 3 | ||||
| -rwxr-xr-x | perl-install/standalone/draksec | 2 |
5 files changed, 17 insertions, 5 deletions
diff --git a/perl-install/fsedit.pm b/perl-install/fsedit.pm index 4e31ae49a..f29f47959 100644 --- a/perl-install/fsedit.pm +++ b/perl-install/fsedit.pm @@ -340,6 +340,16 @@ sub move { } } +sub change_type($$$) { + my ($hd, $part, $type) = @_; + $type != $part->{type} or return; + $hd->{isDirty} = 1; + $part->{mntpoint} = '' if isSwap($part) && $part->{mntpoint} eq "swap"; + $part->{type} = $type; + $part->{notFormatted} = 1; + $part->{isFormatted} = 0; +} + sub rescuept($) { my ($hd) = @_; my ($ext, @hd); diff --git a/perl-install/install2.pm b/perl-install/install2.pm index e585e7eb8..4954c9b27 100644 --- a/perl-install/install2.pm +++ b/perl-install/install2.pm @@ -339,7 +339,8 @@ sub choosePackages { $o->setPackages if $_[1] == 1; $o->selectPackagesToUpgrade($o) if $o->{isUpgrade} && $_[1] == 1; unless ($o->{isUpgrade}) { - $o->choosePackages($o->{packages}, $o->{compss}, $o->{compssUsers}, $_[1] == 1); + $o->choosePackages($o->{packages}, $o->{compss}, + $o->{compssUsers}, $o->{compssUsersSorted}, $_[1] == 1); pkgs::unselect($o->{packages}, $o->{packages}{kdesu}) if $o->{packages}{kdesu} && $o->{security} > 3; $o->{packages}{$_}{selected} = 1 foreach @{$o->{base}}; #- already done by selectPackagesToUpgrade. } diff --git a/perl-install/interactive_gtk.pm b/perl-install/interactive_gtk.pm index 049c25753..faa26a7e3 100644 --- a/perl-install/interactive_gtk.pm +++ b/perl-install/interactive_gtk.pm @@ -47,7 +47,7 @@ sub ask_from_listW { ), ); $defW->grab_focus if $defW; - $w->{rwindow}->set_position('center'); + $w->{rwindow}->set_position('center') if $::isStandalone; $w->main; } else { $w->_ask_from_list($title, $messages, $l, $def); @@ -213,7 +213,7 @@ sub wait_messageW($$$) { gtkpack(new Gtk::VBox(0,0), @$messages, $w->{wait_messageW} = new Gtk::Label($W))); - $w->{rwindow}->set_position('center'); + $w->{rwindow}->set_position('center') if $::isStandalone; $w->{wait_messageW}->signal_connect(expose_event => sub { $w->{displayed} = 1 }); $w->sync until $w->{displayed}; $w; diff --git a/perl-install/share/compssList b/perl-install/share/compssList index a973ff6e2..913cdc960 100644 --- a/perl-install/share/compssList +++ b/perl-install/share/compssList @@ -56,7 +56,6 @@ chkfontpath 0 0 50 chos 0 0 0 chos-vchos 0 0 0 cleanfeed 24 99 21 -colorgcc 10 0 84 comanche 22 78 0 compat-glibc 0 0 40 comsat 0 30 2 @@ -135,6 +134,7 @@ gaddr 45 0 40 gated 0 80 0 gatos 55 0 49 gawk 10 0 87 +gawk-doc 10 0 50 gcc 50 0 90 gcc-c++ 15 0 84 gcc-fr 0 0 0 @@ -142,6 +142,7 @@ gcc-g77 15 0 67 gcc-objc 16 0 75 gcc-java 16 0 75 gcc-chill 20 0 65 +gcc-colorgcc 10 0 84 gd 12 0 71 gdb 12 0 94 gdbm 12 0 72 diff --git a/perl-install/standalone/draksec b/perl-install/standalone/draksec index 8877501b5..753d61603 100755 --- a/perl-install/standalone/draksec +++ b/perl-install/standalone/draksec @@ -11,7 +11,7 @@ local $_ = join '', @ARGV; /-h/ and die "usage: draksec [--expert]\n"; -$::expert = /--expert/; +$::expert = /--expert/ || cat_("/etc/sysconfig/system") =~ /^TYPE=.*expert/; $::isStandalone = 1; my $in = vnew interactive('su'); |