From 18e9d8736e4004d16aeaa67239ca388b08656f8c Mon Sep 17 00:00:00 2001 From: Karl Williamson Date: Wed, 9 Nov 2011 10:51:03 -0700 Subject: [PATCH] UCD.t: Fix 'uninit' warning An initialization was out of place --- lib/Unicode/UCD.t | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lib/Unicode/UCD.t b/lib/Unicode/UCD.t index 3903d45..b904d9a 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; -- 1.8.3.1