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;
: die "Couldn't link $from to $to: $!\n";
};
if ($@) {
- warn $@;
require File::Copy;
File::Copy::copy($from, $to)
? $success++
my $fc = substr($fr,$i,1);
my $tc = substr($to,$i,1);
if( exists( $tr{$fc} ) && $tr{$fc} ne $tc ){
- Warn( "ambiguos translation for character `$fc' in `y' command",
+ Warn( "ambiguous translation for character `$fc' in `y' command",
$fl );
$error++;
}
=over 4
-=item ambiguos translation for character `%s' in `y' command
+=item ambiguous translation for character `%s' in `y' command
The indicated character appears twice, with different translations.