diff options
author | Olivier Blin <oblin@mandriva.org> | 2006-02-23 11:22:32 +0000 |
---|---|---|
committer | Olivier Blin <oblin@mandriva.org> | 2006-02-23 11:22:32 +0000 |
commit | 4104f6c363ca904387fe2b6f39b646925cf90ff0 (patch) | |
tree | 0b2c9151f035278c793c9b4fd740010f9441881c /live | |
parent | 75eedf36f7b2685f752ba4908478c4b0f7a872bd (diff) | |
download | drakx-backup-do-not-use-4104f6c363ca904387fe2b6f39b646925cf90ff0.tar drakx-backup-do-not-use-4104f6c363ca904387fe2b6f39b646925cf90ff0.tar.gz drakx-backup-do-not-use-4104f6c363ca904387fe2b6f39b646925cf90ff0.tar.bz2 drakx-backup-do-not-use-4104f6c363ca904387fe2b6f39b646925cf90ff0.tar.xz drakx-backup-do-not-use-4104f6c363ca904387fe2b6f39b646925cf90ff0.zip |
perl_checker fixes
Diffstat (limited to 'live')
-rwxr-xr-x | live/draklive-install/draklive-install | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/live/draklive-install/draklive-install b/live/draklive-install/draklive-install index bb4880850..807de35fb 100755 --- a/live/draklive-install/draklive-install +++ b/live/draklive-install/draklive-install @@ -4,7 +4,7 @@ use lib qw(/usr/lib/libDrakX); use standalone; use interactive; #- err, yes, we're loaded, aren't we? (actually not used by this wizard in install_interactive) -BEGIN { undef @INC{'install_any.pm', 'install_steps.pm'} }; +BEGIN { undef @INC{'install_any.pm', 'install_steps.pm'} } use install_interactive; use fs::type; use common; @@ -118,7 +118,7 @@ undef $_w; #- FIXME: maybe factorize with draklive, using draklive --clean-chroot ? #- remove unwanted files and packages -unlink(map { $in->{prefix} . $_} '/.autofsck', +unlink(map { $in->{prefix} . $_ } '/.autofsck', '/home/guest/Desktop/draklive-copy-wizard.desktop', '/home/guest/Desktop/draklive-install.desktop'); system('chroot', $in->{prefix}, 'rpm', '-e', 'draklive-install'); @@ -411,7 +411,7 @@ sub lilo_choice() { if (my $part = find { $_->{mntpoint} && !maybeFormatted($_) } fs::get::fstab($all_hds)) { $in->ask_okcancel('', N("You should format partition %s. Otherwise no entry for mount point %s will be written in fstab. -Quit anyway?", $part->{device}, $part->{mntpoint})) or return if $::isStandalone&& 0; #- no, please +Quit anyway?", $part->{device}, $part->{mntpoint})) or return if $::isStandalone && 0; #- no, please } 1; } |