do not depend on the input record separator

mojolicious · Oct 5, 2015 · eaf239f · eaf239f
1 parent a61b516
commit eaf239f
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lib/Mojo/Util.pm b/lib/Mojo/Util.pm
@@ -31,7 +31,7 @@ use constant {
 # To generate a new HTML entity table run this command
 # perl examples/entities.pl
 my %ENTITIES;
-while (my $line = <DATA>) {
+for my $line (split "\n", join('', <DATA>)) {
   next unless $line =~ /^(\S+)\s+U\+(\S+)(?:\s+U\+(\S+))?/;
   $ENTITIES{$1} = defined $3 ? (chr(hex $2) . chr(hex $3)) : chr(hex $2);
 }