From e1438899c61f510d528597484df536917fe4e5c5 Mon Sep 17 00:00:00 2001
From: Dustin Kirkland <dustin.kirkland@gmail.com>
Date: Fri, 17 Feb 2012 01:01:20 -0600
Subject: [PATCH] * usr/lib/byobu/include/mondrian:   - simply and speed up
 using perl

---
 debian/changelog               | 3 ++-
 usr/lib/byobu/include/mondrian | 8 +-------
 2 files changed, 3 insertions(+), 8 deletions(-)

diff --git a/debian/changelog b/debian/changelog
index 8c625241..018649b4 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,6 +1,7 @@
 byobu (5.13) unreleased; urgency=low
 
-  * UNRELEASED
+  * usr/lib/byobu/include/mondrian:
+    - simply and speed up using perl
 
  -- Dustin Kirkland <kirkland@ubuntu.com>  Thu, 16 Feb 2012 23:58:36 -0600
 
diff --git a/usr/lib/byobu/include/mondrian b/usr/lib/byobu/include/mondrian
index fe7d0f28..7bf25608 100755
--- a/usr/lib/byobu/include/mondrian
+++ b/usr/lib/byobu/include/mondrian
@@ -25,14 +25,8 @@ trap "tput reset" EXIT HUP INT QUIT TERM KILL ILL TRAP ABRT BUS FPE USR1 SEGV US
 if [ "$1" = "color" ] && [ -n "$2" ]; then
 	i=0
 	out=
-	tput setab "$2"
-	tput setaf "$2"
 	count=$(stty size | awk '{print $1*$2}')
-	while [ $i -lt $count ]; do
-	        out="$out "
-	        i=$((i+1))
-	done
-	printf "$out"
+	perl -e "print color 'reset'; printf \"\x1b[48;5;${2}m%${count}s\", \" \";";
 	head -n1
 	exit 0
 fi