From: Dave Mitchell <davem@fdisolutions.com>
Date: Mon, 3 May 2004 13:33:21 +0000 (+0000)
Subject: remove spurious intentation in utf8_pva.pl
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c26e4df972cbd2a5db679b77dc3c44ac64a3fc1a;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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;