diff options
Diffstat (limited to 'perl-install/interactive')
| -rw-r--r-- | perl-install/interactive/http.pm | 6 | ||||
| -rw-r--r-- | perl-install/interactive/newt.pm | 4 | ||||
| -rw-r--r-- | perl-install/interactive/stdio.pm | 2 |
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') { |