From 4b9d142bd37dcdc94b7bcdbdb3f7109d7a915e25 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Mon, 13 Dec 2004 15:56:00 +0000 Subject: better english (writing style rather than spoken one) --- perl-install/common.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'perl-install/common.pm') diff --git a/perl-install/common.pm b/perl-install/common.pm index d016c6a23..fb1239d66 100644 --- a/perl-install/common.pm +++ b/perl-install/common.pm @@ -192,7 +192,7 @@ sub take_screenshot() { my $dir = screenshot_dir__and_move() . '/DrakX-screenshots'; my $warn; if (!-e $dir) { - mkdir $dir or $::o->ask_warn('', N("Can't make screenshots before partitioning")), return; + mkdir $dir or $::o->ask_warn('', N("Can not make screenshots before partitioning")), return; $warn = 1; } my $nb = 1; @@ -224,7 +224,7 @@ sub set_alternative { #- (is this needed???) run_program::rooted_get_stdout($::prefix, 'update-alternatives', '--display', $command) =~ /^\Q$executable /m or return; - #- this doesn't handle relative symlink, but neither does update-alternatives ;p + #- this does not handle relative symlink, but neither does update-alternatives ;p symlinkf $executable, "$::prefix/etc/alternatives/$command"; } @@ -232,7 +232,7 @@ sub files_exist { and_(map { -f "$::prefix$_" } @_) } sub secured_file { my ($f) = @_; - c::is_secure_file($f) or die "can't ensure a safe $f"; + c::is_secure_file($f) or die "can not ensure a safe $f"; $f; } -- cgit v1.2.1