Fix typos (spelling errors) in Porting/*.

# New Ticket Created by  (Peter J. Acklam)
# Please include the string:  [perl #81910]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=81910 >

Signed-off-by: Abigail <abigail@abigail.be>

1 files changed, 3 insertions, 3 deletions

diff --git a/Porting/bump-perl-version b/Porting/bump-perl-version
index 679aa28ad7..b5752fb173 100644
--- a/Porting/bump-perl-version
+++ b/Porting/bump-perl-version
@@ -71,7 +71,7 @@ EOF
 my %opts;
 getopts('csu', \%opts) or usage;
 if ($opts{u}) {
-    @ARGV == 0 or usage('no version version numbers should be speciied');
+    @ARGV == 0 or usage('no version version numbers should be specified');
     # fake to stop warnings when calculating $oldx etc
     @ARGV = qw(99.99.99 99.99.99);
 }
@@ -216,7 +216,7 @@ elsif ($opts{u}) {
     do_update();
 }
 else {
-    usage('one of -c, -s or -u must be specifcied');
+    usage('one of -c, -s or -u must be specified');
 }
 exit 0;
 
@@ -279,7 +279,7 @@ sub do_update {
 	elsif (/^\s+(\d+): -(.*)/) {
 	    my $old;
 	    ($line, $old) = ($1,$2);
-	    die "$.: old line without preceeding filename\n"
+	    die "$.: old line without preceding filename\n"
 			    unless defined $file;
 	    die "Dup line number: $line\n" if exists $changes{$file}{$line};
 	    $changes{$file}{$line}[0] = $old;