From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Wed, 2 Oct 2002 17:09:11 +0000 (+0300)
Subject: no [] in tr///
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d1573ac7f3669af3adf9935c83633459afbc51af;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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
--- 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);
                 }