[Wesnoth-cvs-commits] wesnoth/utils campaigns_client.pl

[David White]

CVSROOT:        /cvsroot/wesnoth
Module name:    wesnoth
Branch:         
Changes by:     David White <address@hidden>    05/09/11 18:58:22

Modified files:
        utils          : campaigns_client.pl 

Log message:
        fixed bad handling of binary files in the perl campaigns client

CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/wesnoth/wesnoth/utils/campaigns_client.pl.diff?tr1=1.2&tr2=1.3&r1=text&r2=text

Patches:
Index: wesnoth/utils/campaigns_client.pl
diff -u wesnoth/utils/campaigns_client.pl:1.2 
wesnoth/utils/campaigns_client.pl:1.3
--- wesnoth/utils/campaigns_client.pl:1.2       Sun Sep 11 15:41:38 2005
+++ wesnoth/utils/campaigns_client.pl   Sun Sep 11 18:58:22 2005
@@ -132,7 +132,7 @@
                while(@chars) {
                        my $char = shift @chars;
                        if(1 == ord $char) {
-                               $char = shift @chars;
+                               $char = chr(ord(shift @chars) - 1);
                        }
 
                        print FILE $char;