Select Code to Download

UNI_YES        $x -= $str->length * $font_size;
UNI_NO         $x -= length($str) * $font_size;

my $pm_filter = $use_unicode
    ? q{perl -pi -e "s!UNI_YES ! !g;s!UNI_NO  !\\#!g"}
    : q{perl -pi -e "s!UNI_NO  ! !g;s!UNI_YES !\\#!g"};