This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
mktables: Rmv unnecessary $temporary
authorKarl Williamson <public@khwilliamson.com>
Sat, 31 Mar 2012 18:51:52 +0000 (12:51 -0600)
committerKarl Williamson <public@khwilliamson.com>
Sat, 2 Jun 2012 14:29:18 +0000 (08:29 -0600)
lib/unicore/mktables

index 796c2bf..c40ab7e 100644 (file)
@@ -8891,11 +8891,8 @@ sub finish_property_setup {
     Carp::carp_extra_args(\@_) if main::DEBUG && @_;
 
     # This entry was missing from this file in earlier Unicode versions
-    if (-e 'Jamo.txt') {
-        my $jsn = property_ref('JSN');
-        if (! defined $jsn) {
-            $jsn = Property->new('JSN', Full_Name => 'Jamo_Short_Name');
-        }
+    if (-e 'Jamo.txt' && ! defined property_ref('JSN')) {
+        Property->new('JSN', Full_Name => 'Jamo_Short_Name');
     }
 
     # These are used so much, that we set globals for them.