This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
ae1bcb1
)
UCD.t: white space only
author
Karl Williamson
<public@khwilliamson.com>
Sun, 22 Jan 2012 15:27:11 +0000
(08:27 -0700)
committer
Karl Williamson
<public@khwilliamson.com>
Sat, 4 Feb 2012 23:29:30 +0000
(16:29 -0700)
outdent now that surrounding block is removed
lib/Unicode/UCD.t
patch
|
blob
|
blame
|
history
diff --git
a/lib/Unicode/UCD.t
b/lib/Unicode/UCD.t
index
6171619
..
8dd977f
100644
(file)
--- a/
lib/Unicode/UCD.t
+++ b/
lib/Unicode/UCD.t
@@
-1432,9
+1432,9
@@
foreach my $prop (keys %props) {
#note $i-0 . ": " . join " => ", @{$list[$i-0]};
#note $i+1 . ": " . join " => ", @{$list[$i+1]};
-
# Then, remove any existing entry for this code point.
-
next if $cp != $list[$i][0];
-
splice @list, $i, 1;
+ # Then, remove any existing entry for this code point.
+ next if $cp != $list[$i][0];
+ splice @list, $i, 1;
#note __LINE__ . ": $cp";
#note $i-1 . ": " . join " => ", @{$list[$i-1]};