fix for two-byte non-7-bit ascii chars

This commit is contained in:
ehouse 2003-12-14 19:52:21 +00:00
parent c56192f4f1
commit 75d2f37d56

View file

@ -115,7 +115,7 @@ sub WriteMapFile($$$) {
} elsif ( $str =~ /\"(.+)\"/ ) { } elsif ( $str =~ /\"(.+)\"/ ) {
print $fhr pack($packStr, $specialCount++ ); print $fhr pack($packStr, $specialCount++ );
} elsif ( $str =~ /(\d+)/ ) { } elsif ( $str =~ /(\d+)/ ) {
print $fhr pack( $packStr, chr($1) ); print $fhr pack( $packStr, $1 );
} else { } else {
die "WriteMapFile: unrecognized face format $str"; die "WriteMapFile: unrecognized face format $str";
} }