better english (writing style rather than spoken one)

1 files changed, 4 insertions, 4 deletions

diff --git a/perl-install/mygtk2.pm b/perl-install/mygtk2.pm
index 30c3efcdc..6e0d88c68 100644
--- a/perl-install/mygtk2.pm
+++ b/perl-install/mygtk2.pm
@@ -215,7 +215,7 @@ sub _gtk__Pixbuf {
 
     if (!$w) {
 	my $name = delete $opts->{file} or internal_error("missing file");
-	my $file = _find_imgfile($name) or internal_error("can't find $name");
+	my $file = _find_imgfile($name) or internal_error("can not find $name");
 	$w = Gtk2::Gdk::Pixbuf->new_from_file($file);
     }
     $w;
@@ -230,11 +230,11 @@ sub _gtk__Image {
     }
 
     if (my $name = delete $opts->{file}) {
-	my $file = _find_imgfile(may_apply($w->{format}, $name)) or internal_error("can't find $name");
+	my $file = _find_imgfile(may_apply($w->{format}, $name)) or internal_error("can not find $name");
 	$w->set_from_file($file);
     } elsif (my $file_ref = delete $opts->{file_ref}) {
 	my $set = sub {
-	    my $file = _find_imgfile(may_apply($w->{format}, $$file_ref)) or internal_error("can't find $$file_ref");
+	    my $file = _find_imgfile(may_apply($w->{format}, $$file_ref)) or internal_error("can not find $$file_ref");
 	    $w->set_from_file($file);
 	};
 	gtkval_register($w, $file_ref, $set);
@@ -602,7 +602,7 @@ sub _text_insert {
         $buffer->set_text($t);
     }
     #- the following line is needed to move the cursor to the beginning, so that if the
-    #- textview has a scrollbar, it won't scroll to the bottom when focusing (#3633)
+    #- textview has a scrollbar, it will not scroll to the bottom when focusing (#3633)
     $buffer->place_cursor($buffer->get_start_iter);
     $textview->set_wrap_mode($opts{wrap_mode} || 'word');
     $textview->set_editable($opts{editable} || 0);