diff options
| -rwxr-xr-x | ponysaylinklist.pl | 1 | ||||
| -rwxr-xr-x | ponysaylist.pl | 11 |
2 files changed, 7 insertions, 5 deletions
diff --git a/ponysaylinklist.pl b/ponysaylinklist.pl index 4d34928..8f3588f 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 0c0410c..2004484 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; |