From: Larry Wall <larry@wall.org>
Date: Fri, 23 Oct 1998 18:48:34 +0000 (+0000)
Subject: tr///d does not seem to work
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=710250cb7807a86565709f8b12d46807ebcd55e8;p=p5sagit%2Fp5-mst-13.2.git

tr///d does not seem to work

p4raw-id: //depot/perl@2039
---

diff --git a/lib/utf8_heavy.pl b/lib/utf8_heavy.pl
index 71cbb17..0f58823 100644
--- a/lib/utf8_heavy.pl
+++ b/lib/utf8_heavy.pl
@@ -123,8 +123,7 @@ sub SWASHGET {
 #		print "$min $max $val\n";
 		if ($none) {
 		    if ($min < $start) {
-			$val += $start - $min;
-			$val = $none if $val > $none;
+			$val += $start - $min if $val < $none;
 			$min = $start;
 		    }
 		    for ($key = $min; $key <= $max; $key++) {