From 04e2cf91c47344da39b75011802f088a0ca85d8b Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Mattias=20Andr=C3=A9e?= <maandree@operamail.com>
Date: Sat, 28 Jul 2012 14:24:37 +0200
Subject: [PATCH] perl scripts: removing name formating and adding author

---
 ponysaylinklist.pl |  1 +
 ponysaylist.pl     | 11 ++++++-----
 2 files changed, 7 insertions(+), 5 deletions(-)

diff --git a/ponysaylinklist.pl b/ponysaylinklist.pl
index 4d349282..8f3588f0 100755
--- a/ponysaylinklist.pl
+++ b/ponysaylinklist.pl
@@ -7,6 +7,7 @@
 # See COPYING for details
 
 # Author: Mattias Andrée, maandree@kth.se
+#         spider-mario
 
 
 use strict;
diff --git a/ponysaylist.pl b/ponysaylist.pl
index 0c0410c3..20044846 100755
--- a/ponysaylist.pl
+++ b/ponysaylist.pl
@@ -7,6 +7,7 @@
 # See COPYING for details
 
 # Author: Mattias Andrée, maandree@kth.se
+#         spider-mario
 
 
 use strict;
@@ -18,11 +19,11 @@ use List::Util qw(max);
 
 my $scrw = shift @ARGV // 1;
 
-for (@ARGV) {
-	# Format names from ponyies names
-	s/(?<=[a-z])(?=[A-Z])/ /;
-	s/_(.*)/\t($1)/;
-}
+#for (@ARGV) {
+#	# Format names from pony names
+#	s/(?<=[a-z])(?=[A-Z])/ /;
+#	s/_(.*)/\t($1)/;
+#}
 
 my $maxw = max 1, map {length} @ARGV;