… | |
… | |
437 | return; |
437 | return; |
438 | } |
438 | } |
439 | |
439 | |
440 | for (split /\n/, $data) { |
440 | for (split /\n/, $data) { |
441 | chomp; |
441 | chomp; |
442 | my ($face, $visibility, $fg, $bg, $glyph) = split /\s+/; |
442 | my ($face, $visibility, $fg, $bg, $glyph) = split /\s+/, $_, 5; |
443 | # bg not used except for text clients |
443 | # bg not used except for text clients |
444 | |
444 | |
445 | utf8::decode $glyph; |
445 | utf8::decode $glyph; |
446 | $glyph =~ s/^\?(?=.)//; # remove "autoglyph" flag |
446 | $glyph =~ s/^\?(?=.)//; # remove "autoglyph" flag |
447 | |
447 | |