summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorOlivier Blin <oblin@mandriva.org>2006-02-23 11:22:32 +0000
committerOlivier Blin <oblin@mandriva.org>2006-02-23 11:22:32 +0000
commit4104f6c363ca904387fe2b6f39b646925cf90ff0 (patch)
tree0b2c9151f035278c793c9b4fd740010f9441881c
parent75eedf36f7b2685f752ba4908478c4b0f7a872bd (diff)
downloaddrakx-4104f6c363ca904387fe2b6f39b646925cf90ff0.tar
drakx-4104f6c363ca904387fe2b6f39b646925cf90ff0.tar.gz
drakx-4104f6c363ca904387fe2b6f39b646925cf90ff0.tar.bz2
drakx-4104f6c363ca904387fe2b6f39b646925cf90ff0.tar.xz
drakx-4104f6c363ca904387fe2b6f39b646925cf90ff0.zip
perl_checker fixes
-rwxr-xr-xlive/draklive-install/draklive-install6
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;
}