Fix UTF-8 handling in uniencode (Closes: #508003)

diff --git a/uniencode b/uniencode
index 2a80c0da0ea05592dd1ec35c49b054a55275df68..1c24f25c81233ad189f6bc5fa23e031e02c245a6 100755 (executable)
--- a/uniencode
+++ b/uniencode
@@ -1,6 +1,7 @@
 #!/usr/bin/perl
 # Ⅽоηνеrt аѕⅽіі tօ υtf‐8.
 use utf8;
+binmode STDIN, ":utf8";
 binmode STDOUT, ":utf8";
 
 %Δ=(