mirror of
https://github.com/wesnoth/wesnoth
synced 2025-04-24 15:59:31 +00:00
fixed bad handling of binary files in the perl campaigns client
This commit is contained in:
parent
7818e33e42
commit
a80f4c199f
@ -132,7 +132,7 @@ sub unarchive_dir
|
||||
while(@chars) {
|
||||
my $char = shift @chars;
|
||||
if(1 == ord $char) {
|
||||
$char = shift @chars;
|
||||
$char = chr(ord(shift @chars) - 1);
|
||||
}
|
||||
|
||||
print FILE $char;
|
||||
|
Loading…
x
Reference in New Issue
Block a user