diff options
| author | Karl Williamson <public@khwilliamson.com> | 2011-11-09 10:51:03 -0700 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2011-11-09 10:59:42 -0700 |
| commit | 18e9d8736e4004d16aeaa67239ca388b08656f8c (patch) | |
| tree | c3275623ab8d81bcb3079d7630130d7b7878f29b /lib | |
| parent | df6841b6fbc3cb3efb4cc2451d4fc168dd6a64d5 (diff) | |
| download | perl-18e9d8736e4004d16aeaa67239ca388b08656f8c.tar.gz | |
UCD.t: Fix 'uninit' warning
An initialization was out of place
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/Unicode/UCD.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Unicode/UCD.t b/lib/Unicode/UCD.t index 3903d45e16..b904d9ab77 100644 --- a/lib/Unicode/UCD.t +++ b/lib/Unicode/UCD.t @@ -1339,6 +1339,7 @@ foreach my $prop (keys %props) { } } else { + $base_file = "Decomposition" if $format eq 'd'; # Above leaves $base_file undefined only if it came from the hash # below. This should happen only when it is a binary property @@ -1357,7 +1358,6 @@ foreach my $prop (keys %props) { } # Read in the file - $base_file = "Decomposition" if $format eq 'd'; $file = "unicore/$base_file.pl"; $official = do $file; |