This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
UCD.t: white space only
authorKarl Williamson <public@khwilliamson.com>
Sun, 22 Jan 2012 15:27:11 +0000 (08:27 -0700)
committerKarl 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

index 6171619..8dd977f 100644 (file)
@@ -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]};