* usr/lib/byobu/include/mondrian:

- simply and speed up using perl

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
 

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