No need to avoid utf8 warnings after #15762.

[p5sagit/p5-mst-13.2.git] / lib / Unicode / Collate.pm

diff --git a/lib/Unicode/Collate.pm b/lib/Unicode/Collate.pm
index 4344616..8522a79 100644 (file)
--- a/lib/Unicode/Collate.pm
+++ b/lib/Unicode/Collate.pm
@@ -137,26 +137,24 @@ sub parseEntry
   # get element
   my($e, $k) = split /;/, $line;
   my @e = _getHexArray($e);
-  { no warnings 'utf8'; $ele = pack('U*', @e); }
+  $ele = pack('U*', @e);
   return if defined $self->{undefChar} && $ele =~ /$self->{undefChar}/;
 
   # get sort key
-  { no warnings 'utf8';
-    if(
+  if(
      defined $self->{ignoreName} && $name =~ /$self->{ignoreName}/ ||
      defined $self->{ignoreChar} && $ele  =~ /$self->{ignoreChar}/
-       )
-    {
-       $self->{entries}{$ele} = $self->{ignored}{$ele} = 1;
-    }
-    else
-    {
-       foreach my $arr ($k =~ /\[(\S+)\]/g) {
-           my $var = $arr =~ /\*/;
-           push @key, $self->altCE( $var, _getHexArray($arr) );
-       }
-       $self->{entries}{$ele} = \@key;
+  )
+  {
+     $self->{entries}{$ele} = $self->{ignored}{$ele} = 1;
+  }
+  else
+  {
+    foreach my $arr ($k =~ /\[(\S+)\]/g) {
+      my $var = $arr =~ /\*/;
+      push @key, $self->altCE( $var, _getHexArray($arr) );
     }
+    $self->{entries}{$ele} = \@key;
   }
   $self->{maxlength}{ord $ele} = scalar @e if @e > 1;
 }