Decutandpasto.

p4raw-id: //depot/perl@15134

diff --git a/ext/Encode/lib/Encode/Tcl.pm b/ext/Encode/lib/Encode/Tcl.pm
index 9ed3fe5..812dcd1 100644 (file)
--- a/ext/Encode/lib/Encode/Tcl.pm
+++ b/ext/Encode/lib/Encode/Tcl.pm
@@ -1,7 +1,7 @@
 package Encode::Tcl;
 BEGIN {
     if (ord("A") == 193) {
-       die "Encode::JP not supported on EBCDIC\n";
+       die "Encode::Tcl not supported on EBCDIC\n";
     }
 }
 use strict;