From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sat, 6 Apr 2002 16:53:50 +0000 (+0000)
Subject: No need to avoid utf8 warnings after #15762.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0dec8e5f6e4cdd984e494d64414f4a55f8bbee84;p=p5sagit%2Fp5-mst-13.2.git

No need to avoid utf8 warnings after #15762.

p4raw-id: //depot/perl@15763
---

diff --git a/lib/Unicode/Collate.pm b/lib/Unicode/Collate.pm
index 4344616..8522a79 100644
--- 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;
 }