From 73abbaf6b27d563e7810948525865f130a6e3a7d Mon Sep 17 00:00:00 2001
From: Ole Tange <ole@tange.dk>
Date: Sun, 20 May 2012 03:50:03 +0200
Subject: [PATCH] =?UTF-8?q?u=CA=8Dop=C7=9Dp=C4=B1sdn:=20almost=20reverible?=
 =?UTF-8?q?.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 histogram/histogram   | 12 ++++++------
 upsidedown/upsidedown | 13 +++++++++----
 2 files changed, 15 insertions(+), 10 deletions(-)

diff --git a/histogram/histogram b/histogram/histogram
index c56a1c9..4f1b8b2 100755
--- a/histogram/histogram
+++ b/histogram/histogram
@@ -23,27 +23,27 @@ The list of numbers can be formatted as:
 
 =item *
 
-Line with CSV: B<histogram> -d , 1,1.02,3.1
+Line with CSV: B<histogram> -d , 1,1.01,3.1
 
 =item *
 
-Line with white space separated values: B<histogram> 1 1.02 3.1
+Line with white space separated values: B<histogram> 1 1.01 3.1
 
 =item *
 
-Line with white space separated headers+values: B<histogram> a 1 b 1.02 c 3.1
+Line with white space separated headers+values: B<histogram> a 1 b 1.01 c 3.1
 
 =item *
 
-One value per line: (echo 1; echo 1.02; echo 3.1) | B<histogram>
+One value per line: (echo 1; echo 1.01; echo 3.1) | B<histogram>
 
 =item *
 
-One white space separated header+value per line: (echo a 1; echo b 1.02; echo c 3.1) | B<histogram>
+One white space separated header+value per line: (echo a 1; echo b 1.01; echo c 3.1) | B<histogram>
 
 =item *
 
-One comma separated header+value per line: (echo a,1; echo b,1.02; echo c,3.1) | B<histogram> -d ,
+One comma separated header+value per line: (echo a,1; echo b,1.01; echo c,3.1) | B<histogram> -d ,
 
 =back
 
diff --git a/upsidedown/upsidedown b/upsidedown/upsidedown
index 513bca1..da76908 100755
--- a/upsidedown/upsidedown
+++ b/upsidedown/upsidedown
@@ -2,6 +2,8 @@
 
 # Try to flip input upside down with UNICODE
 
+use utf8;
+
 my $down = ' @{}'.
     q{ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz.,';0123456789?!"&()[]/\_‾};
 my @up = (" ",qw(@ } {),
@@ -9,13 +11,16 @@ my @up = (" ",qw(@ } {),
        qw{ɯ u o d b ɹ s ʇ n ʌ ʍ x ʎ z ˙ ' , ؛ 0 Ɩ 2 Ɛ ᔭ 5 9 Ɫ 8 6 ¿ ¡ „ ⅋ ) ( ] [ / \ ‾ _});
 
 my %up;
-@up{split//,$down}=@up;
+my @down = split//,$down;
+@up{@up} = @down;
+@up{@down} = @up;
 
+binmode STDOUT, ':utf8';
+binmode STDIN, ':utf8';
 if(@ARGV) {
-    print @up{split//,reverse("@ARGV")},"\n";
+    print @up{reverse split//,"@ARGV"},"\n";
 } else {
     while(<>) {
-	print @up{split//,reverse($_)},"\n";
+	print @up{reverse split//,$_},"\n";
     }
 }
-