diff options
Diffstat (limited to 'perl-install/standalone')
| -rwxr-xr-x | perl-install/standalone/bootloader-config | 4 | ||||
| -rwxr-xr-x | perl-install/standalone/drakTermServ | 16 | ||||
| -rwxr-xr-x | perl-install/standalone/drakautoinst | 2 | ||||
| -rwxr-xr-x | perl-install/standalone/drakbackup | 28 | ||||
| -rwxr-xr-x | perl-install/standalone/drakboot | 4 | ||||
| -rwxr-xr-x | perl-install/standalone/drakconnect | 4 | ||||
| -rwxr-xr-x | perl-install/standalone/drakfont | 2 | ||||
| -rwxr-xr-x | perl-install/standalone/drakgw | 2 | ||||
| -rwxr-xr-x | perl-install/standalone/drakperm | 2 | ||||
| -rwxr-xr-x | perl-install/standalone/drakroam | 2 | ||||
| -rwxr-xr-x | perl-install/standalone/drakupdate_fstab | 2 | ||||
| -rw-r--r-- | perl-install/standalone/drakvpn | 8 | ||||
| -rwxr-xr-x | perl-install/standalone/fileshareset | 16 | ||||
| -rwxr-xr-x | perl-install/standalone/logdrake | 2 | ||||
| -rw-r--r-- | perl-install/standalone/net_applet | 4 | ||||
| -rwxr-xr-x | perl-install/standalone/service_harddrake | 4 | ||||
| -rw-r--r-- | perl-install/standalone/service_harddrake.sh | 4 |
17 files changed, 53 insertions, 53 deletions
diff --git a/perl-install/standalone/bootloader-config b/perl-install/standalone/bootloader-config index 0bcd4d377..bcf10d659 100755 --- a/perl-install/standalone/bootloader-config +++ b/perl-install/standalone/bootloader-config @@ -42,7 +42,7 @@ $action && member($action, @known_actions) or die "<action> must be one of " . j if ($image) { if (my $ver = bootloader::vmlinuz2version($image)) { if ($kernel_version) { - $kernel_version eq $ver or die "$kernel_version and $ver don't match (hint: don't pass both --image and --kernel-version)\n"; + $kernel_version eq $ver or die "$kernel_version and $ver do not match (hint: do not pass both --image and --kernel-version)\n"; } else { $kernel_version = $ver; } @@ -117,7 +117,7 @@ sub add_kernel() { my $kernel_str = bootloader::vmlinuz2kernel_str($image) or die "bad kernel name $image\n"; - my $root_part = fs::get::root([ fs::get::fstab($all_hds) ]) or die "can't find root partition\n"; + my $root_part = fs::get::root([ fs::get::fstab($all_hds) ]) or die "can not find root partition\n"; my %opts = ( root => "/dev/$root_part->{device}", initrd_options => $initrd_options, diff --git a/perl-install/standalone/drakTermServ b/perl-install/standalone/drakTermServ index d438055ee..db8315bcd 100755 --- a/perl-install/standalone/drakTermServ +++ b/perl-install/standalone/drakTermServ @@ -604,7 +604,7 @@ sub make_boot() { #- make a boot image on floppy or iso from etherboot images my $boot_box; my $rom_path = "/usr/share/etherboot"; - #- doesn't return list sorted + #- does not return list sorted my @nics = sort(all("/usr/share/etherboot/zimg")); my $list_nics = Gtk2::List->new; my $nic; @@ -787,7 +787,7 @@ sub make_nbi() { sub clear_nbi { my ($nbi) = @_; $nbi = $tftpboot . "/" . $nbi; - my $result = unlink($nbi) or warn("Can't delete $nbi..."); + my $result = unlink($nbi) or warn("Can not delete $nbi..."); $nbi =~ s|boot-|initrd-|; $nbi =~ s|nbi|img|; unlink($nbi); @@ -823,7 +823,7 @@ sub link_pxe { my $pxedir = get_platform_pxe(); $kernel =~ s|vmlinuz-||; if ($nic) { - #- symlinkf doesn't work? + #- symlinkf does not work? `ln -sf ../../initrd-$nic.$kernel.img $pxedir`; } else { `ln -sf ../../initrd-*.$kernel.img $pxedir`; @@ -1134,7 +1134,7 @@ sub client_set { # we also need to set runlevel to 5 and restart the display manager if ($conf{ALLOW_THIN} == 1) { if (-f "/etc/sysconfig/autologin") { - my $answer = $in->ask_yesorno('', N("Thin clients won't work with autologin. Disable autologin?")); + my $answer = $in->ask_yesorno('', N("Thin clients will not work with autologin. Disable autologin?")); if ($answer == 1) { log::explanations("Renaming /etc/sysconfig/autologin to /etc/sysconfig/autologin.bak"); `mv /etc/sysconfig/autologin /etc/sysconfig/autologin.bak`; @@ -1146,7 +1146,7 @@ sub client_set { # This file had 2 "Enable=" entries, one for XDMCP and one for debug change_gdm_xdmcp("true"); log::explanations("Modified files /etc/inittab, /etc/X11/xdm/xdm-config, /usr/share/config/kdm/kdmrc, /etc/X11/gdm/gdm.conf"); - # just XDMCP in hosts.allow is enough for xdm & kdm, but gdm doesn't work - x11 doesn't help either + # just XDMCP in hosts.allow is enough for xdm & kdm, but gdm does not work - x11 does not help either update_hosts_allow("enable"); if ($default eq "all") { my $inittab = '/etc/initab$$CLIENT$$'; @@ -1456,7 +1456,7 @@ sub write_eb_image { return if !($result); $result = system("cat $rom_path/floppyload.bin $rom_path/start16.bin $rom_path/zimg/$nic > /dev/fd0") if $result; if ($result) { - $in->ask_warn(N("Error"), N("Couldn't access the floppy!")) + $in->ask_warn(N("Error"), N("Could not access the floppy!")) } else { $in->ask_warn(N("Information"), N("Floppy can be removed now")) } @@ -1806,7 +1806,7 @@ sub change_gdm_xdmcp { for (my $i = 0; $i < @conf_data; $i++) { $conf_data[$i] =~ s/^Enable=false/Enable=true/ if $enable eq "true"; $conf_data[$i] =~ s/^Enable=true/Enable=false/ if $enable eq "false"; - # bail here so we don't alter the debug setting + # bail here so we do not alter the debug setting if ($conf_data[$i] eq "[debug]\n") { output("/etc/X11/gdm/gdm.conf", @conf_data); last; @@ -1966,7 +1966,7 @@ sub client_hdw_config { } sub create_client_sysnetwork { - #- this lets gnome operate properly since udhcpc doesn't get the hostname from the dhcpd server + #- this lets gnome operate properly since udhcpc does not get the hostname from the dhcpd server my ($hostname, $ip) = @_; log::explanations("Adding /etc/sysconfig/network for $ip"); my $network_file = "/etc/sysconfig/network\$\$IP=$ip\$\$"; diff --git a/perl-install/standalone/drakautoinst b/perl-install/standalone/drakautoinst index abc0e7ea1..4fa2450ad 100755 --- a/perl-install/standalone/drakautoinst +++ b/perl-install/standalone/drakautoinst @@ -36,7 +36,7 @@ my $in = 'interactive'->vnew('su', 'default'); my $imagefile = "/root/drakx/replay_install.img"; my $imagefile2 = "/root/drakx/replay_install_drivers.img"; -f $imagefile or $in->ask_warn(N("Error!"), - N("I can't find needed image file `%s'.", $imagefile), 1), quit_global($in, 0); + N("I can not find needed image file `%s'.", $imagefile), 1), quit_global($in, 0); $direct or $in->ask_okcancel(N("Auto Install Configurator"), N("You are about to configure an Auto Install floppy. This feature is somewhat dangerous and must be used circumspectly. diff --git a/perl-install/standalone/drakbackup b/perl-install/standalone/drakbackup index 066ee467c..4d8c9e464 100755 --- a/perl-install/standalone/drakbackup +++ b/perl-install/standalone/drakbackup @@ -125,7 +125,7 @@ my $untar_prefix = "tar -C $restore_path -x"; # allow not-root user with own config if ($ENV{USER} ne 'root' && $ENV{HOME} ne '/root') { standalone::explanations("Running as $ENV{USER}..."); - #- doesn't get defined when run from cron + #- does not get defined when run from cron $user_home = "/home/$ENV{USER}" if $user_home eq ''; $cfg_dir = "$user_home/.drakbackup/"; $conf{PATH_TO_SAVE} = $cfg_dir . "backups"; @@ -185,11 +185,11 @@ sub daemon_mode() { if (check_for_xserver()) { eval { require ugtk2 }; - die "Can't load ugtk2...\n" if $@; + die "Can not load ugtk2...\n" if $@; ugtk2->import(qw(:create :dialogs :helpers :wrappers)); interactive_mode(); } else { - die "Can't run in console mode..."; + die "Can not run in console mode..."; } sub set_help_tip { @@ -258,7 +258,7 @@ sub get_cd_info() { my @drive_names; my $i; require_rpm("cdrecord") if $nonroot_user; - # just trying load ide-cd, since it doesn't seem to be loaded by default + # just trying load ide-cd, since it does not seem to be loaded by default $nonroot_user ? `cdrecord -scanbus -dev=ATA > /dev/null 2>&1` : `modprobe ide-cd` unless -f "/proc/sys/dev/cdrom"; my @cd_info = cat_("/proc/sys/dev/cdrom/info"); my %data = ( @@ -318,7 +318,7 @@ sub save_conf_file() { write_sitecopyrc() if $conf{NET_PROTO} eq 'webdav'; write_password_file() if $conf{NET_PROTO} eq 'rsync' && $conf{PASSWD}; return 1 if $conf{SEND_MAIL} && verify_mail_setup(); - #- don't save this, but retain it for this session + #- do not save this, but retain it for this session if ($conf{REMEMBER_PASS} != 1) { $host_passwd = $conf{PASSWD}; $conf{PASSWD} = undef; @@ -643,7 +643,7 @@ sub do_expect { if (!$spawn_ok) { show_warning("f", N("No password prompt on %s at port %s", $conf{HOST_NAME}, $scp_port)) } if ($bad_passwd) { show_warning("f", N("Bad password on %s", $conf{HOST_NAME})) } if ($no_perm) { show_warning("f", N("Permission denied transferring %s to %s", $_, $conf{HOST_NAME})) } - if ($bad_dir) { show_warning("f", N("Can't find %s on %s", $conf{HOST_PATH}, $conf{HOST_NAME})) } + if ($bad_dir) { show_warning("f", N("Can not find %s on %s", $conf{HOST_PATH}, $conf{HOST_NAME})) } $had_err = !$spawn_ok || $bad_passwd || $no_perm || $bad_dir; } ], @@ -737,7 +737,7 @@ sub check_for_cd() { if ($conf{MULTI_SESSION}) { $command = "cdrecord -s dev=$conf{CD_DEVICE} -msinfo"; spawn_progress($command, "Check for previous session status"); - #- if we don't find a previous session, start fresh + #- if we do not find a previous session, start fresh if ($log_buff =~ /Cannot read session offset/) { $conf{MEDIA_ERASE} = 1; return 0; @@ -945,7 +945,7 @@ sub build_backup_files() { local $_; $results = ""; $log_buff = ""; - #- flush these so if the user does 2 runs in a row we don't try to send the same files + #- flush these so if the user does 2 runs in a row we do not try to send the same files @file_list_to_send_by_ftp = (); @files_for_direct_tape = (); @@ -1189,10 +1189,10 @@ sub build_backup_files() { $catalog .= ":F" if !$conf{OTHER_INCREMENTAL_BACKUPS} && $conf{OTHER_FILES}; $catalog .= "\n"; - append_to_file("$cfg_dir/drakbackup_catalog", $catalog) or show_warning("w", N("Can't create catalog!")); + append_to_file("$cfg_dir/drakbackup_catalog", $catalog) or show_warning("w", N("Can not create catalog!")); } - #- clean up HD files if del_hd_files and media isn't hd + #- clean up HD files if del_hd_files and media is not hd if ($conf{DEL_HD_FILES} && ($conf{USE_CD} || $conf{USE_TAPE} || $conf{USE_NET}) && $conf{DAEMON_MEDIA} ne 'hd') { foreach (@file_list_to_send_by_ftp) { unlink($_) if /$conf{OPTION_COMP}$/; @@ -1875,7 +1875,7 @@ sub advanced_where_tape { ), 0, Gtk2::VBox->new(0, 5), 0, gtkpack_(Gtk2::HBox->new(0,10), - 0, gtkset_sensitive(Gtk2::Label->new(N("Don't rewind tape after backup")), $conf{USE_TAPE}), + 0, gtkset_sensitive(Gtk2::Label->new(N("Do not rewind tape after backup")), $conf{USE_TAPE}), 1, Gtk2::VBox->new(0, 5), 0, gtkset_sensitive(my $check_tape_rewind = Gtk2::CheckButton->new, $conf{USE_TAPE}), ), @@ -2148,7 +2148,7 @@ sub advanced_when() { ), ), 0, gtkset_sensitive(Gtk2::Label->new(N("Please be sure that the cron daemon is included in your services.")), $backup_daemon), - 0, gtkset_sensitive(Gtk2::Label->new(N("If your machine isn't on all the time, you might want to install anacron.")), $backup_daemon), + 0, gtkset_sensitive(Gtk2::Label->new(N("If your machine is not on all the time, you might want to install anacron.")), $backup_daemon), 0, gtkset_sensitive(Gtk2::Label->new(N("Note that currently all 'net' media also use the hard drive.")), $backup_daemon), ), ); @@ -3417,7 +3417,7 @@ sub restore_catalog_entry { my @line_data = split(':', $cat_entry); my $backup_time = $line_data[0]; - #- use our own variables here so we don't trash a saved config accidentally + #- use our own variables here so we do not trash a saved config accidentally my $media = $line_data[1]; #- can be a volume name or a host name @@ -3432,7 +3432,7 @@ sub restore_catalog_entry { $username = $conf{LOGIN}; } - #- create a restore work directory if we don't have one + #- create a restore work directory if we do not have one -d "$cfg_dir/restores" or mkdir_p "$cfg_dir/restores"; #- can be a device name or a path diff --git a/perl-install/standalone/drakboot b/perl-install/standalone/drakboot index 5babbda57..493a4c15b 100755 --- a/perl-install/standalone/drakboot +++ b/perl-install/standalone/drakboot @@ -108,7 +108,7 @@ my $cur_res; if (my $x_res = Xconfig::resolution_and_depth::from_bios($bootloader->{default_vga})) { $cur_res = $x_res->{X} . 'x' . $x_res->{Y}; } else { - $no_bootsplash = 1; #- we can't select any theme we're not in Framebuffer mode :-/ + $no_bootsplash = 1; #- we can not select any theme we're not in Framebuffer mode :-/ $cur_res = '800x600' } @@ -194,7 +194,7 @@ gtkadd($window, }), gtkpack__(gtkset_sensitive($x_box = Gtk2::VBox->new(0, 0), $x_mode), gtkpack__(Gtk2::VBox->new(0, 0), - my @auto_buttons = gtkradio((N("No, I don't want autologin")) x 2, + my @auto_buttons = gtkradio((N("No, I do not want autologin")) x 2, N("Yes, I want autologin with this (user, desktop)")), ), my $auto_box = create_packtable({ col_spacings => 5, row_spacings => 5, homogenous => 1 }, diff --git a/perl-install/standalone/drakconnect b/perl-install/standalone/drakconnect index 90ef8419d..dc9f96c91 100755 --- a/perl-install/standalone/drakconnect +++ b/perl-install/standalone/drakconnect @@ -845,7 +845,7 @@ sub configure_lan() { my @card_tab; if (@all_cards < 1) { - $window->vbox->add(Gtk2::Label->new(N("You don't have any configured interface. + $window->vbox->add(Gtk2::Label->new(N("You do not have any configured interface. Configure them first by clicking on 'Configure'"))); gtkpack(gtkset_layout($window->action_area, 'end'), gtksignal_connect(Gtk2::Button->new(N("Ok")), @@ -972,7 +972,7 @@ sub configure_net { $in->ask_warn( N("Warning"), #-PO: here "Add Connection" should be translated the same was as in control-center - N("You don't have any configured Internet connection. + N("You do not have any configured Internet connection. Run the \"Add Connection\" assistant from the Mandrakelinux Control Center")); $in->exit; } diff --git a/perl-install/standalone/drakfont b/perl-install/standalone/drakfont index 8ab5f5d8c..1576f54a1 100755 --- a/perl-install/standalone/drakfont +++ b/perl-install/standalone/drakfont @@ -49,7 +49,7 @@ # Commands buttons: # - import from windows partition. # import from all fat32 partitions and look for winnt/windows/font -# and import all (delete doubles) but don't import if they already exist. +# and import all (delete doubles) but do not import if they already exist. # - import from directory # look to see if each font exists and do not delete the original. # (replace all, no, none) diff --git a/perl-install/standalone/drakgw b/perl-install/standalone/drakgw index 4cf70cc1f..655bcf017 100755 --- a/perl-install/standalone/drakgw +++ b/perl-install/standalone/drakgw @@ -326,7 +326,7 @@ Otherwise, I can reconfigure your interface and (re)configure a DHCP server for N("DHCP Server Configuration. Here you can select different options for the DHCP server configuration. -If you don't know the meaning of an option, simply leave it as it is."), +If you do not know the meaning of an option, simply leave it as it is."), [ { label => N("(This) DHCP Server IP"), val => \$server_ip, type => 'entry' }, { label => N("The DNS Server IP"), val => \$nameserver_ip, type => 'entry' }, { label => N("The internal domain name"), val => \$internal_domain_name, type => 'entry' }, diff --git a/perl-install/standalone/drakperm b/perl-install/standalone/drakperm index 39579af91..3b680fe9a 100755 --- a/perl-install/standalone/drakperm +++ b/perl-install/standalone/drakperm @@ -294,7 +294,7 @@ sub row_setting_dialog { ); my $usr_check = gtksignal_connect(gtkset_tip($tips, Gtk2::CheckButton->new(N("Current user")), - N("When checked, owner and group won't be changed")), + N("When checked, owner and group will not be changed")), clicked => sub { $id_box->set_sensitive(!$_[0]->get_active) }); if ($iter && $model->get($iter, 2) eq 'current') { diff --git a/perl-install/standalone/drakroam b/perl-install/standalone/drakroam index bdb25e61c..3de4564e2 100755 --- a/perl-install/standalone/drakroam +++ b/perl-install/standalone/drakroam @@ -10,7 +10,7 @@ # - deletes comments in config file # - expects an ifcfg file for static IP configurations (not uncommon) # - roaming status fails (no idea why) -# maybe same reason bash-completion killall can't see wlandetect? +# maybe same reason bash-completion killall can not see wlandetect? # todo (wlandetect version) # - make known and available lists have more rows by default (why so small?) diff --git a/perl-install/standalone/drakupdate_fstab b/perl-install/standalone/drakupdate_fstab index fde9fa585..83951d46a 100755 --- a/perl-install/standalone/drakupdate_fstab +++ b/perl-install/standalone/drakupdate_fstab @@ -141,7 +141,7 @@ sub main { my $part = device_name_to_entry($device_name); my $fstab_file = '/etc/fstab'; if (!$part) { - print STDERR "Can't find device $device_name\n" if $::testing; + print STDERR "Can not find device $device_name\n" if $::testing; return; } elsif ($::testing) { cp_af('/etc/fstab', $fstab_file = '/tmp/fstab'); diff --git a/perl-install/standalone/drakvpn b/perl-install/standalone/drakvpn index a374d36bb..ae9d7ae64 100644 --- a/perl-install/standalone/drakvpn +++ b/perl-install/standalone/drakvpn @@ -99,7 +99,7 @@ It's currently enabled. What would you like to do?"), [ N_("disable"), N_("reconfigure"), N_("dismiss") ]) or quit_global($in, 0); - # FIXME: reconfigure isn't handled + # FIXME: reconfigure is not handled if ($r eq "disable") { if (!$::testing) { my $_wait_disabl = $in->wait_message('', N("Disabling VPN...")); @@ -125,7 +125,7 @@ It's currently disabled. What would you like to do?"), [ N_("enable"), N_("reconfigure"), N_("dismiss") ]); - # FIXME: reconfigure isn't handled + # FIXME: reconfigure is not handled if ($r eq "enable") { foreach ($ipsec_conf, $tunnels_file) { rename($_, "$_.old") if -f $_; @@ -445,7 +445,7 @@ N("This is the first section after the config setup one.\n Here you define the default settings. All the other sections will follow this one. -The left settings are optional. If don't define +The left settings are optional. If do not define them here, globally, you can define them in each section.\n",), [ { label => N("PFS"), val => \$conn_default->{2}[1], type => 'entry' }, @@ -587,7 +587,7 @@ my $number = network::ipsec::matched_section_key_number_ipsec_conf($choice,$ipse if ($kernel_version < 2.5) { if ($choice =~ /^version|block|private|clear|packet/) { -$in->ask_okcancel(N("Can't edit!"), +$in->ask_okcancel(N("Can not edit!"), N("You cannot edit this section.\n This section is mandatory for Freeswan 2.X. One has to specify version 2.0 on the top diff --git a/perl-install/standalone/fileshareset b/perl-install/standalone/fileshareset index 6d321c7ac..4ca41efac 100755 --- a/perl-install/standalone/fileshareset +++ b/perl-install/standalone/fileshareset @@ -43,7 +43,7 @@ qq(You are not authorised to use fileshare'ing To grant you the rights: - put "RESTRICT=no" in $authorisation_file - or put user "$username" in group "$authorisation_group"); -my $no_export_method = "can't export anything: no nfs, no smb"; +my $no_export_method = "can not export anything: no nfs, no smb"; my %exit_codes = reverse( 1 => $non_authorised, @@ -126,8 +126,8 @@ package authorisation; my $F_lock; sub read_conf { my ($exclusive_lock) = @_; - open $F_lock, $authorisation_file; # don't care if it's missing - flock($F_lock, $exclusive_lock ? 2 : 1) or die "can't lock"; + open $F_lock, $authorisation_file; # do not care if it's missing + flock($F_lock, $exclusive_lock ? 2 : 1) or die "can not lock"; my %conf; foreach (<$F_lock>) { s/#.*//; # remove comments @@ -231,7 +231,7 @@ sub read() { $mntpoint =~ s/\\(\d{3})/chr(oct $1)/ge; # not accepting weird characters that would break the output - $mntpoint =~ m/[\0\n\r]/ and die "i won't handle this"; + $mntpoint =~ m/[\0\n\r]/ and die "i will not handle this"; push @l, { mntpoint => $mntpoint, option => $options, raw => $raw_line }; } bless \@l, 'nfs_exports'; @@ -248,7 +248,7 @@ sub write { $_->{raw} = sprintf("%s %s\n", $mntpoint, $_->{options}); } } - open(my $F, ">$conf_file") or die "can't write $conf_file"; + open(my $F, ">$conf_file") or die "can not write $conf_file"; print $F $_->{raw} foreach @$nfs_exports; } @@ -304,7 +304,7 @@ sub write { EOF } } - open(my $F, ">$conf_file") or die "can't write $conf_file"; + open(my $F, ">$conf_file") or die "can not write $conf_file"; print $F $_->{raw} foreach @$smb_exports; } @@ -361,8 +361,8 @@ sub name_mangle { last A; } } - $_ or die "can't find a unique name"; - # can't find a unique name, dropping the last letter + $_ or die "can not find a unique name"; + # can not find a unique name, dropping the last letter s|(.*).|$1|; } } diff --git a/perl-install/standalone/logdrake b/perl-install/standalone/logdrake index df4751115..ed5a6a507 100755 --- a/perl-install/standalone/logdrake +++ b/perl-install/standalone/logdrake @@ -489,7 +489,7 @@ if ($r) { To => $options{MAIL}, Subject => "DrakLog Mail Alert", }) - or die "Can't open: $!\n"; + or die "Can not open: $!\n"; print $mailer $r; $mailer->close; } diff --git a/perl-install/standalone/net_applet b/perl-install/standalone/net_applet index c005862cc..f24b02712 100644 --- a/perl-install/standalone/net_applet +++ b/perl-install/standalone/net_applet @@ -43,7 +43,7 @@ my %appletstate = ( changes => [ 'connected' ], menu => [ 'confNetwork', 'refresh', 'help' ], tt => [ - N_("You don't have any configured Internet connection. + N_("You do not have any configured Internet connection. Run the \"Add Connection\" assistant from the Mandrakelinux Control Center") ] } @@ -98,7 +98,7 @@ sub shouldStart() { sub md5file { my @md5; foreach my $file (@_) { - open(my $FILE, $file) or do { print STDERR "Can't open '$file': $!"; push @md5, "" }; + open(my $FILE, $file) or do { print STDERR "Can not open '$file': $!"; push @md5, "" }; binmode($FILE); push @md5, Digest::MD5->new->addfile($FILE)->hexdigest; close($FILE); diff --git a/perl-install/standalone/service_harddrake b/perl-install/standalone/service_harddrake index f897ec230..a1eb5a19f 100755 --- a/perl-install/standalone/service_harddrake +++ b/perl-install/standalone/service_harddrake @@ -94,7 +94,7 @@ foreach my $hw_class (@harddrake::data::tree) { $id => $i; } eval { &$detector }; $config{$Ident} = \%ID; - next if !$is_globetrotter && !$force && is_empty_hash_ref($previous_config); # don't fsck on first run but if --force + next if !$is_globetrotter && !$force && is_empty_hash_ref($previous_config); # do not fsck on first run but if --force my $oldconfig = $previous_config->{$Ident}; @@ -159,7 +159,7 @@ foreach my $hw_class (@harddrake::data::tree) { next if $is_globetrotter && !$hw_class->{automatic}; next unless $configurator_pool[0]; if (ref($configurator) ne 'CODE' && !-x first(split /\s+/, $configurator_pool[0])) { - log::explanations(qw(skip $Ident configuration since "$configurator" isn't executable)); + log::explanations(qw(skip $Ident configuration since "$configurator" is not executable)); next; } my ($pid, $no, $res); diff --git a/perl-install/standalone/service_harddrake.sh b/perl-install/standalone/service_harddrake.sh index c12bedc31..ce0f10dda 100644 --- a/perl-install/standalone/service_harddrake.sh +++ b/perl-install/standalone/service_harddrake.sh @@ -18,7 +18,7 @@ SUBSYS=/var/lock/subsys/harddrake case "$1" in start) -# We (mdk) don't support updfstab (yet) +# We (mdk) do not support updfstab (yet) # action "Updating /etc/fstab" /usr/sbin/updfstab gprintf "Checking for new hardware" @@ -29,7 +29,7 @@ case "$1" in else action "" /bin/false fi - # We don't want to run this on random runlevel changes. + # We do not want to run this on random runlevel changes. touch $SUBSYS # [ /etc/modules.conf -nt /lib/modules/$(uname -r)/modules.dep ] && touch /lib/modules/$(uname -r)/modules.dep 2>/dev/null >/dev/null || : & exit $RETVAL |