Try to make Perl scripts locale compliant

1 files changed, 2 insertions, 0 deletions

diff --git a/ppmtolss16 b/ppmtolss16
index 1cc36600..b654df92 100755
--- a/ppmtolss16
+++ b/ppmtolss16
@@ -47,6 +47,8 @@
 ##
 
 eval { use bytes; };
+eval { binmode STDIN; };
+eval { binmode STDOUT; };
 
 $magic = 0x1413f33d;