remove spurious intentation in utf8_pva.pl

p4raw-id: //depot/perl@22772

diff --git a/lib/utf8_pva.pl b/lib/utf8_pva.pl
index 0f7d41c..6db881b 100644 (file)
--- a/lib/utf8_pva.pl
+++ b/lib/utf8_pva.pl
@@ -14,43 +14,43 @@ use Carp 'confess';
 local *_;
 local $.; # localizes Pl_last_in_gv
 
-    open PA, "< $dir/unicore/PropertyAliases.txt"
-       or confess "Can't open PropertyAliases.txt: $!";
-    while (<PA>) {
-       s/#.*//;
-       s/\s+$//;
-       next if /^$/;
-
-       my ($abbrev, $name) = split /\s*;\s*/;
-        next if $abbrev eq "n/a";
-       tr/ _-//d for $abbrev, $name;
-       $PropertyAlias{lc $abbrev} = $name;
-        $PA_reverse{lc $name} = $abbrev;
-    }
-    close PA;
-
-    open PVA, "< $dir/unicore/PropValueAliases.txt"
-       or confess "Can't open PropValueAliases.txt: $!";
-    while (<PVA>) {
-       s/#.*//;
-       s/\s+$//;
-       next if /^$/;
-
-       my ($prop, @data) = split /\s*;\s*/;
-       shift @data if $prop eq 'ccc';
-        next if $data[0] eq "n/a";
-
-       $data[1] =~ tr/ _-//d;
-       $PropValueAlias{$prop}{lc $data[0]} = $data[1];
-        $PVA_reverse{$prop}{lc $data[1]} = $data[0];
-
-       my $abbr_class = ($prop eq 'gc' or $prop eq 'sc') ? 'gc_sc' : $prop;
-       $PVA_abbr_map{$abbr_class}{lc $data[0]} = $data[0];
-    }
-    close PVA;
-
-    # backwards compatibility for L& -> LC
-    $PropValueAlias{gc}{'l&'} = $PropValueAlias{gc}{lc};
-    $PVA_abbr_map{gc_sc}{'l&'} = $PVA_abbr_map{gc_sc}{lc};
+open PA, "< $dir/unicore/PropertyAliases.txt"
+    or confess "Can't open PropertyAliases.txt: $!";
+while (<PA>) {
+    s/#.*//;
+    s/\s+$//;
+    next if /^$/;
+
+    my ($abbrev, $name) = split /\s*;\s*/;
+    next if $abbrev eq "n/a";
+    tr/ _-//d for $abbrev, $name;
+    $PropertyAlias{lc $abbrev} = $name;
+    $PA_reverse{lc $name} = $abbrev;
+}
+close PA;
+
+open PVA, "< $dir/unicore/PropValueAliases.txt"
+    or confess "Can't open PropValueAliases.txt: $!";
+while (<PVA>) {
+    s/#.*//;
+    s/\s+$//;
+    next if /^$/;
+
+    my ($prop, @data) = split /\s*;\s*/;
+    shift @data if $prop eq 'ccc';
+    next if $data[0] eq "n/a";
+
+    $data[1] =~ tr/ _-//d;
+    $PropValueAlias{$prop}{lc $data[0]} = $data[1];
+    $PVA_reverse{$prop}{lc $data[1]} = $data[0];
+
+    my $abbr_class = ($prop eq 'gc' or $prop eq 'sc') ? 'gc_sc' : $prop;
+    $PVA_abbr_map{$abbr_class}{lc $data[0]} = $data[0];
+}
+close PVA;
+
+# backwards compatibility for L& -> LC
+$PropValueAlias{gc}{'l&'} = $PropValueAlias{gc}{lc};
+$PVA_abbr_map{gc_sc}{'l&'} = $PVA_abbr_map{gc_sc}{lc};
 
 1;