diff options
| author | Larry Wall <larry@wall.org> | 1998-10-23 18:48:34 +0000 |
|---|---|---|
| committer | Larry Wall <larry@wall.org> | 1998-10-23 18:48:34 +0000 |
| commit | 710250cb7807a86565709f8b12d46807ebcd55e8 (patch) | |
| tree | b668f88f0e6e3b954ae656dad70fa7c91c1ffd70 | |
| parent | 834a4ddd8309fbf6aabbbc51bb6fcbe056e7963f (diff) | |
| download | perl-710250cb7807a86565709f8b12d46807ebcd55e8.tar.gz | |
tr///d does not seem to work
p4raw-id: //depot/perl@2039
| -rw-r--r-- | lib/utf8_heavy.pl | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lib/utf8_heavy.pl b/lib/utf8_heavy.pl index 71cbb1760b..0f588237eb 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++) { |