diff options
Diffstat (limited to 'perl-install/fs')
| -rw-r--r-- | perl-install/fs/loopback.pm | 2 | ||||
| -rw-r--r-- | perl-install/fs/mount.pm | 2 | ||||
| -rw-r--r-- | perl-install/fs/partitioning_wizard.pm | 6 | ||||
| -rw-r--r-- | perl-install/fs/type.pm | 4 |
4 files changed, 7 insertions, 7 deletions
diff --git a/perl-install/fs/loopback.pm b/perl-install/fs/loopback.pm index 9d77c7302..8620e6068 100644 --- a/perl-install/fs/loopback.pm +++ b/perl-install/fs/loopback.pm @@ -86,7 +86,7 @@ sub getFree { } #- returns the size of the loopback file if it already exists -#- returns -1 is the loopback file can not be used +#- returns -1 is the loopback file cannot be used sub verifFile { my ($dir, $file, $part) = @_; -e "$dir$file" and return -s "$dir$file"; diff --git a/perl-install/fs/mount.pm b/perl-install/fs/mount.pm index 3c0696b75..f2e9eac40 100644 --- a/perl-install/fs/mount.pm +++ b/perl-install/fs/mount.pm @@ -125,7 +125,7 @@ sub umount { run_program::run('umount', '2>', \$err, $mntpoint) or die N("error unmounting %s: %s", $mntpoint, common::to_utf8($err)); }; - substInFile { $_ = '' if /(^|\s)$mntpoint\s/ } '/etc/mtab'; #- do not care about error, if we can not read, we will not manage to write... (and mess mtab) + substInFile { $_ = '' if /(^|\s)$mntpoint\s/ } '/etc/mtab'; #- do not care about error, if we cannot read, we will not manage to write... (and mess mtab) } sub part { diff --git a/perl-install/fs/partitioning_wizard.pm b/perl-install/fs/partitioning_wizard.pm index affb18033..5bfd2403b 100644 --- a/perl-install/fs/partitioning_wizard.pm +++ b/perl-install/fs/partitioning_wizard.pm @@ -296,7 +296,7 @@ sub create_display_box { my $sep_count = @parts - 1; #- ratio used to compute initial partition pixel width (each partition should be > min_width) - #- though, the pixel/sectors ratio can not be the same for all the partitions + #- though, the pixel/sectors ratio cannot be the same for all the partitions my $initial_ratio = $totalsectors ? ($width - @parts * $minwidth - $sep_count) / $totalsectors : 1; my $vbox = Gtk2::VBox->new; @@ -428,7 +428,7 @@ sub display_choices { @solutions = @sol if @sol > 1; log::l("solutions: ", int @solutions); - @solutions or $o->ask_warn(N("Partitioning"), N("I can not find any room for installing")), die 'already displayed'; + @solutions or $o->ask_warn(N("Partitioning"), N("I cannot find any room for installing")), die 'already displayed'; log::l('HERE: ', join(',', map { $solutions{$_}[1] } @solutions)); @@ -574,7 +574,7 @@ sub main { " (all solutions found: " . join('', map { $_->[1] } @solutions) . ")"); @solutions = @sol if @sol > 1; log::l("solutions: ", int @solutions); - @solutions or $o->ask_warn(N("Partitioning"), N("I can not find any room for installing")), die 'already displayed'; + @solutions or $o->ask_warn(N("Partitioning"), N("I cannot find any room for installing")), die 'already displayed'; log::l('HERE: ', join(',', map { $_->[1] } @solutions)); $o->ask_from_({ title => N("Partitioning"), diff --git a/perl-install/fs/type.pm b/perl-install/fs/type.pm index bb90bdfe1..75a851047 100644 --- a/perl-install/fs/type.pm +++ b/perl-install/fs/type.pm @@ -390,8 +390,8 @@ sub set_isFormatted { #- do this before modifying $part->{fs_type} sub check { my ($fs_type, $_hd, $part) = @_; - $fs_type eq "jfs" && $part->{size} < MB(16) and die N("You can not use JFS for partitions smaller than 16MB"); - $fs_type eq "reiserfs" && $part->{size} < MB(32) and die N("You can not use ReiserFS for partitions smaller than 32MB"); + $fs_type eq "jfs" && $part->{size} < MB(16) and die N("You cannot use JFS for partitions smaller than 16MB"); + $fs_type eq "reiserfs" && $part->{size} < MB(32) and die N("You cannot use ReiserFS for partitions smaller than 32MB"); } sub guessed_by_mount() { |