diff options
| author | Francois Pons <fpons@mandriva.com> | 1999-12-21 14:06:23 +0000 |
|---|---|---|
| committer | Francois Pons <fpons@mandriva.com> | 1999-12-21 14:06:23 +0000 |
| commit | 7ba603b13fe12d4f0ca63281bbb844da54981717 (patch) | |
| tree | d01f1dd170d195544049115063936b98a3219431 /perl-install | |
| parent | f56350762a1516bad6d7d8fa74e9395d50c81ea3 (diff) | |
| download | drakx-backup-do-not-use-7ba603b13fe12d4f0ca63281bbb844da54981717.tar drakx-backup-do-not-use-7ba603b13fe12d4f0ca63281bbb844da54981717.tar.gz drakx-backup-do-not-use-7ba603b13fe12d4f0ca63281bbb844da54981717.tar.bz2 drakx-backup-do-not-use-7ba603b13fe12d4f0ca63281bbb844da54981717.tar.xz drakx-backup-do-not-use-7ba603b13fe12d4f0ca63281bbb844da54981717.zip | |
*** empty log message ***
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/install_any.pm | 1 | ||||
| -rw-r--r-- | perl-install/install_steps_interactive.pm | 2 |
2 files changed, 2 insertions, 1 deletions
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm index 2479686fd..f72733d60 100644 --- a/perl-install/install_any.pm +++ b/perl-install/install_any.pm @@ -252,6 +252,7 @@ sub searchAndMount4Upgrade { } else { delete $root->{mntpoint}; ($Parts{$_->{device}} || {})->{mntpoint} = $_->{mntpoint} foreach @$found; + map { $_->{mntpoint} = 'swap_upgrade' } grep { isSwap($_) } @{$o->{fstab}}; #- use all available swap. #- TODO fsck, create check_mount_all ? fs::mount_all([ grep { isExt2($_) || isSwap($_) } @{$o->{fstab}} ], $o->{prefix}); diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm index a428682a3..b00ca1204 100644 --- a/perl-install/install_steps_interactive.pm +++ b/perl-install/install_steps_interactive.pm @@ -58,7 +58,7 @@ sub selectLanguage($) { #- $o->{useless_thing_accepted} = $o->ask_from_list_('', #-"Warning no warranty", -#- [ __("Accept"), __("Refuse") ], "Accept") eq "Accept" or exit(1) unless $o->{useless_thing_accepted}; +#- [ __("Accept"), __("Refuse") ], "Accept") eq "Accept" or _exit(1) unless $o->{useless_thing_accepted}; } #------------------------------------------------------------------------------ sub selectKeyboard($) { |