Typolice.

p4raw-id: //depot/perl@17045

diff --git a/utils/c2ph.PL b/utils/c2ph.PL
index f961206..d676218 100644 (file)
--- a/utils/c2ph.PL
+++ b/utils/c2ph.PL
@@ -5,7 +5,7 @@ use File::Basename qw(&basename &dirname);
 use Cwd;
 use subs qw(link);
 
-sub link { # This is a cutdown vesion of installperl:link().
+sub link { # This is a cut-down version of installperl:link().
     my($from,$to) = @_;
     my($success) = 0;
 

diff --git a/x2p/s2p.PL b/x2p/s2p.PL
index 7e65401..0e8fa8f 100644 (file)
--- a/x2p/s2p.PL
+++ b/x2p/s2p.PL
@@ -5,7 +5,7 @@ use File::Basename qw(&basename &dirname);
 use Cwd;
 use subs qw(link);
 
-sub link { # This is a cutdown vesion of installperl:link().
+sub link { # This is a cut-down version of installperl:link().
     my($from,$to) = @_;
     my($success) = 0;