diff options
Diffstat (limited to 'perl-install/bootloader.pm')
| -rw-r--r-- | perl-install/bootloader.pm | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm index b213808b6..816e31a4a 100644 --- a/perl-install/bootloader.pm +++ b/perl-install/bootloader.pm @@ -92,7 +92,7 @@ sub read_grub() { next if /^\s*#/ || /^\s*$/; chomp; my ($keyword, $v) = /^\s*(\S+)\s*(.*?)\s*$/ or do { - print STDERR "unknown line in /boot/grub/menu.lst: \"", chomp_($_), "\"\n"; + print STDERR 'unknown line in /boot/grub/menu.lst: "', chomp_($_), q("\n); next; }; if ($keyword eq 'title') { @@ -758,7 +758,7 @@ sub install_yaboot { log::l("writing yaboot config to $f"); print F "#yaboot.conf - generated by DrakX"; - print F "init-message=\"\\n$bootloader->{'init-message'}\\n\"" if $bootloader->{'init-message'}; + print F qq(init-message="\\n$bootloader->{'init-message'}\\n") if $bootloader->{'init-message'}; if ($bootloader->{boot}) { print F "boot=$bootloader->{boot}"; @@ -796,7 +796,7 @@ sub install_yaboot { } #- xfs module on PPC requires larger initrd - say 6MB? print F "\tinitrd-size=6144" if $bootloader->{xfsroot}; - print F "\tappend=\" $_->{append}\"" if $_->{append}; + print F qq(\tappend=" $_->{append}") if $_->{append}; print F "\tread-write" if $_->{'read-write'}; print F "\tread-only" if !$_->{'read-write'}; } else { @@ -872,7 +872,7 @@ sub install_silo { print F "\tpartition=$_->{partition}" if $_->{partition}; print F "\troot=$_->{root}" if $_->{root}; print F "\tinitrd=$initrd" if $_->{initrd}; - print F "\tappend=\"$1\"" if $_->{append} =~ /^\s*"?(.*?)"?\s*$/; + print F qq(\tappend="$1") if $_->{append} =~ /^\s*"?(.*?)"?\s*$/; print F "\tread-write" if $_->{'read-write'}; print F "\tread-only" if !$_->{'read-write'}; } @@ -953,7 +953,7 @@ sub write_lilo_conf { local $bootloader->{default} = make_label_lilo_compatible($bootloader->{default}); $bootloader->{$_} and print F "$_=$bootloader->{$_}" foreach qw(boot map install vga default keytable); $bootloader->{$_} and print F $_ foreach qw(linear geometric compact prompt nowarn restricted); - print F "append=\"$bootloader->{append}\"" if $bootloader->{append}; + print F qq(append="$bootloader->{append}") if $bootloader->{append}; print F "password=", $bootloader->{password} if $bootloader->{password}; #- also done by msec print F "timeout=", round(10 * $bootloader->{timeout}) if $bootloader->{timeout}; print F "serial=", $1 if get_append($bootloader, 'console') =~ /ttyS(.*)/; @@ -974,7 +974,7 @@ sub write_lilo_conf { if ($_->{type} eq "image") { print F "\troot=$_->{root}" if $_->{root}; print F "\tinitrd=", $file2fullname->($_->{initrd}) if $_->{initrd}; - print F "\tappend=\"$_->{append}\"" if $_->{append}; + print F qq(\tappend="$_->{append}") if $_->{append}; print F "\tvga=$_->{vga}" if $_->{vga}; print F "\tread-write" if $_->{'read-write'}; print F "\tread-only" if !$_->{'read-write'}; |