summaryrefslogtreecommitdiffstats
path: root/perl-install/interactive
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/interactive')
-rw-r--r--perl-install/interactive/http.pm6
-rw-r--r--perl-install/interactive/newt.pm4
-rw-r--r--perl-install/interactive/stdio.pm2
3 files changed, 6 insertions, 6 deletions
diff --git a/perl-install/interactive/http.pm b/perl-install/interactive/http.pm
index 8a453616f..6825ee007 100644
--- a/perl-install/interactive/http.pm
+++ b/perl-install/interactive/http.pm
@@ -41,7 +41,7 @@ sub new {
}
sub end {
- -e $pipe_r or return; # don't run this twice
+ -e $pipe_r or return; # do not run this twice
my $q = CGI->new;
cont_stdout("Exit");
print "It's done, thanks for playing", $q->end_html;
@@ -74,7 +74,7 @@ sub ask_fromW {
$e->{type} = 'list' if $e->{type} =~ /(icon|tree)list/;
- #- combo doesn't exist, fallback to a sensible default
+ #- combo does not exist, fallback to a sensible default
$e->{type} = $e->{not_edit} ? 'list' : 'entry' if $e->{type} eq 'combo';
if ($e->{type} eq 'bool') {
@@ -115,7 +115,7 @@ sub ask_fromW {
open_stdout(); # re-open for writing
cont_stdout(N("Error"));
- print $q->h1(N("Error")), $q->p("Sorry, you can't go back");
+ print $q->h1(N("Error")), $q->p("Sorry, you can not go back");
goto redisplay;
}
each_index {
diff --git a/perl-install/interactive/newt.pm b/perl-install/interactive/newt.pm
index 694c6c2c6..47d77b54a 100644
--- a/perl-install/interactive/newt.pm
+++ b/perl-install/interactive/newt.pm
@@ -16,7 +16,7 @@ my @wait_messages;
sub new {
if ($::isInstall) {
- system('unicode_start'); #- don't use run_program, we must do it on current console
+ system('unicode_start'); #- do not use run_program, we must do it on current console
{
local $ENV{LC_CTYPE} = "en_US.UTF-8";
Newt::Init(1);
@@ -135,7 +135,7 @@ sub ask_fromW_real {
$e->{type} = 'list' if $e->{type} =~ /iconlist/;
- #- combo doesn't exist, fallback to a sensible default
+ #- combo does not exist, fallback to a sensible default
$e->{type} = $e->{not_edit} ? 'list' : 'entry' if $e->{type} eq 'combo';
my $changed = sub {
diff --git a/perl-install/interactive/stdio.pm b/perl-install/interactive/stdio.pm
index d9de3325f..553f3fec5 100644
--- a/perl-install/interactive/stdio.pm
+++ b/perl-install/interactive/stdio.pm
@@ -45,7 +45,7 @@ ask_fromW_begin:
my ($e) = @_;
$e->{type} = 'list' if $e->{type} =~ /(icon|tree)list/;
- #- combo doesn't exist, fallback to a sensible default
+ #- combo does not exist, fallback to a sensible default
$e->{type} = $e->{not_edit} ? 'list' : 'entry' if $e->{type} eq 'combo';
if ($e->{type} eq 'entry') {