This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
typo fixes for porting scripts
authorDavid Steinbrunner <dsteinbrunner@pobox.com>
Tue, 21 May 2013 10:56:08 +0000 (06:56 -0400)
committerRicardo Signes <rjbs@cpan.org>
Fri, 24 May 2013 14:18:31 +0000 (10:18 -0400)
Porting/add-package.pl
Porting/bisect-runner.pl
Porting/bump-perl-version
Porting/cherrymaint
Porting/core-cpan-diff
Porting/make_dot_patch.pl
Porting/pod_lib.pl
Porting/sync-with-cpan

index 948f16e..88b96fc 100755 (executable)
@@ -94,7 +94,7 @@ my $ModName;        # name of the module
 my @ModFiles;       # the .PMs in this package
 {   print "Creating top level dir..." if $Verbose;
 
-    ### make sure we get the shortest file, so we dont accidentally get
+    ### make sure we get the shortest file, so we don't accidentally get
     ### a subdir
     @ModFiles   =  sort { length($a) <=> length($b) }
                    map  { chomp; $_ }
@@ -344,7 +344,7 @@ my @ChangedFiles;
         }
 
         ### we need some entries in a vms specific file as well..
-        ### except, i dont understand how it works or what it does, and it
+        ### except, I don't understand how it works or what it does, and it
         ### looks all a bit odd... so lets just print a warning...
         ### the entries look something like this:
         # ./vms/descrip_mms.template:utils4 = [.utils]enc2xs.com
@@ -358,8 +358,8 @@ my @ChangedFiles;
                 print $/.$/;
                 print "    WARNING! You should add entries like the following\n"
                     . "    to $file (Using $TestBin as an example)\n"
-                    . "    Unfortunately I dont understand what these entries\n"
-                    . "    do, so I wont change them automatically:\n\n";
+                    . "    Unfortunately I don't understand what these entries\n"
+                    . "    do, so I won't change them automatically:\n\n";
 
                 print `grep -nC1 $TestBin $Repo/$file`;
                 print $/.$/;
index ca4c12c..5779606 100755 (executable)
@@ -1228,8 +1228,8 @@ EOPATCH
         my $mips = extract_from_file('Configure',
                                      qr!(''\) if (?:\./)?mips; then)!);
         # This is part of perl-5.001n. It's needed, to add -L/usr/local/lib to
-        # theld flags if libraries are found there. It shifts the code to set up
-        # libpth earlier, and then adds the code to add libpth entries to
+        # the ld flags if libraries are found there. It shifts the code to set
+        # up libpth earlier, and then adds the code to add libpth entries to
         # ldflags
         # mips was changed to ./mips in ecfc54246c2a6f42, perl5.000 patch.0g
         apply_patch(sprintf <<'EOPATCH', $mips);
index 627f907..f2f5bcc 100644 (file)
@@ -43,7 +43,7 @@
 #
 # Note there are various files and directories that it skips; these are
 # ones that are unlikely to contain anything needing bumping, but which
-# will generate lots fo false positives (eg pod/*). These are listed on
+# will generate lots of false positives (eg pod/*). These are listed on
 # STDERR as they are skipped.
 
 use strict;
index f4092a9..08e8eb5 100644 (file)
@@ -95,7 +95,7 @@ either on the command line with --address, or by doing
 
 HERE
 
-# Note that you can vote through your browser by pointing it at the the local
+# Note that you can vote through your browser by pointing it at the local
 # end of the tunnel.  For example, L<http://localhost:3000/> if you went with
 # the suggested default values
 }
index dbfeac7..712b896 100644 (file)
@@ -519,7 +519,7 @@ sub do_crosscheck {
 }
 
 # get the EXCLUDED and MAP entries for this module, or
-# make up defauts if they don't exist
+# make up defaults if they don't exist
 
 sub get_map {
     my ( $m, $module_name, $perl_files ) = @_;
index b50fd85..71c4604 100755 (executable)
@@ -8,7 +8,7 @@ use warnings;
 # It tries to find which of our primary branches the sha1 can be found on,
 # and then prints to standard out something similar to what our rsync feed
 # would produce for that situation. The main difference being, in that case
-# we KNOW what branch we are on, and in this one we dont, and in that case
+# we KNOW what branch we are on, and in this one we don't, and in that case
 # the $tstamp field holds the time the snapshot was generated (so that multiple
 # fetches will always have an increasing tstamp field), however in this case
 # we use the commit date of the sha1.
index 5d923ba..8c5ac21 100644 (file)
@@ -403,7 +403,7 @@ List of one or more arguments.
 
 =item * Boolean true or false
 
-=item * Reference to a suboutine.
+=item * Reference to a subroutine.
 
 =item * Various other arguments.
 
index 68e22ca..c3f9ce1 100755 (executable)
@@ -402,7 +402,7 @@ print "done\n";
 
 #
 # Must clean up, or else t/porting/FindExt.t will fail.
-# Note that we can always retrieve the orginal directory with a git checkout.
+# Note that we can always retrieve the original directory with a git checkout.
 #
 print "About to clean up; hit return or abort (^C) "; <STDIN>;