diff options
Diffstat (limited to 'perl-install')
| -rwxr-xr-x | perl-install/commands | 2 | ||||
| -rwxr-xr-x | perl-install/standalone/drakboot | 3 |
2 files changed, 2 insertions, 3 deletions
diff --git a/perl-install/commands b/perl-install/commands index baa02f232..c37a180c7 100755 --- a/perl-install/commands +++ b/perl-install/commands @@ -12,4 +12,4 @@ my $progname = basename($0); # hack as some functions are defined by perl... so chmod -> chmod_ &{$commands::{$progname} || $commands::{$progname . "_"} || \&err}(@ARGV), exit 0; -sub err { die "$0: unknown program (unimplemented)\n"; } +sub err { die "$0: unknown program (unimplemented)\n" } diff --git a/perl-install/standalone/drakboot b/perl-install/standalone/drakboot index 7054ed5db..5abdff7f3 100755 --- a/perl-install/standalone/drakboot +++ b/perl-install/standalone/drakboot @@ -27,8 +27,7 @@ if ($in->isa('interactive::gtk')) { kill('USR1', $::CCPID); goto ask; -sub lilo_choice -{ +sub lilo_choice { my $bootloader = bootloader::read(); local ($_) = `detectloader`; $bootloader->{methods} = { lilo => 1, grub => !!/grub/i, if_(arch() =~ /ppc/, yaboot => 1) }; |