From 40164221fbae896ba14715fa0c01cbb56a426105 Mon Sep 17 00:00:00 2001
From: Elis Axelsson <elis.axelsson@gmail.com>
Date: Sat, 21 Jul 2012 09:36:33 +0200
Subject: [PATCH 1/2] Updated perl-script to format the ponies names

---
 ponysaylist.pl | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/ponysaylist.pl b/ponysaylist.pl
index 7a093768..72c0a920 100755
--- a/ponysaylist.pl
+++ b/ponysaylist.pl
@@ -15,6 +15,10 @@ $maxw = 1;
 
 foreach $arg (@ARGV)
 {
+	# Format names from ponyies names
+	$arg =~ s/([a-z])([A-Z])/\1 \2/;
+	$arg =~ s/_(.*)/\t(\1)/;
+	
     if ($first == 1)
     {   $first = 0;
 	$scrw = $arg;

From 57fdde2f5e78abf097a0af2249031989de2ef0b5 Mon Sep 17 00:00:00 2001
From: Elis Axelsson <elis.axelsson@gmail.com>
Date: Sat, 21 Jul 2012 10:39:24 +0200
Subject: [PATCH 2/2] Support ponies by name like "Apple Jack"

---
 ponysay | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ponysay b/ponysay
index c856fd20..4a73cbea 100755
--- a/ponysay
+++ b/ponysay
@@ -270,7 +270,7 @@ while getopts $opts OPT; do
 	case ${OPT} in
 		v)  version; exit ;;
 		h)  usage; exit ;;
-		f)  ponies+=( "$OPTARG" ) ;;
+		f)  ponies=($(echo $OPTARG | sed -e 's/ //g' -e 's/,/\n/')) ;;
 		l)  list; exit ;;
 		L)  linklist; exit ;;
 		W)  wrap="$OPTARG" ;;