A much more efficient find-wide-chars.pl

neovim · Mar 2, 2020 · 23adae8 · 23adae8
1 parent ece7c45
commit 23adae8
Showing 1 changed file with 1 addition and 5 deletions.
diff --git a/find-wide-chars.pl b/find-wide-chars.pl
@@ -3,16 +3,12 @@
 use strict;
 use warnings;
 
-use Unicode::UCD qw( charprop );
-
 STDOUT->autoflush(1);
 
 sub iswide
 {
    my ( $cp ) = @_;
-
-   my $width = charprop( $cp, "East_Asian_Width" ) or return;
-   return $width eq "Wide" || $width eq "Fullwidth";
+   return chr($cp) =~ m/\p{East_Asian_Width=Wide}|\p{East_Asian_Width=Fullwidth}/;
 }
 
 my ( $start, $end );