From 4104f6c363ca904387fe2b6f39b646925cf90ff0 Mon Sep 17 00:00:00 2001 From: Olivier Blin Date: Thu, 23 Feb 2006 11:22:32 +0000 Subject: perl_checker fixes --- live/draklive-install/draklive-install | 6 +++--- 1 file 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; } -- cgit v1.2.1