no [] in tr///

Message-Id: <20021002140911.GH278184@lyta.hut.fi>

p4raw-id: //depot/perl@17962

diff --git a/pod/perldiag.pod b/pod/perldiag.pod
index a08837d..3da728d 100644 (file)
--- a/pod/perldiag.pod
+++ b/pod/perldiag.pod
@@ -1844,7 +1844,7 @@ C<{}> from your ending C<\x{}> - C<\x> without the curly braces can go only
 up to C<ff>.  The <-- HERE shows in the regular expression about where the
 problem was discovered.  See L<perlre>.
 
-=item Invalid [] range "%s" in transliteration operator
+=item Invalid range "%s" in transliteration operator
 
 (F) The range specified in the tr/// or y/// operator had a minimum
 character greater than the maximum character.  See L<perlop>.

diff --git a/toke.c b/toke.c
index e747a2d..2163211 100644 (file)
--- a/toke.c
+++ b/toke.c
@@ -1273,7 +1273,7 @@ S_scan_const(pTHX_ char *start)
 
                 if (min > max) {
                    Perl_croak(aTHX_
-                              "Invalid [] range \"%c-%c\" in transliteration operator",
+                              "Invalid range \"%c-%c\" in transliteration operator",
                               (char)min, (char)max);
                 }