diff options
| author | Mattias Andrée <maandree@operamail.com> | 2012-07-24 18:25:16 +0200 |
|---|---|---|
| committer | Mattias Andrée <maandree@operamail.com> | 2012-07-24 18:25:16 +0200 |
| commit | def151d3a93eb7ec956f2977197a39f92440ac9f (patch) | |
| tree | f40b94daddb22aa36066327417371ea9f297cb35 /ponysaylist.pl | |
| parent | edbc5b8e1a202cf6800295be9ffe5bd8b848cfb4 (diff) | |
| parent | d56ae1c425533f7dcf20c5620118d6e79091e34f (diff) | |
| download | ponysay-def151d3a93eb7ec956f2977197a39f92440ac9f.tar.gz ponysay-def151d3a93eb7ec956f2977197a39f92440ac9f.tar.bz2 ponysay-def151d3a93eb7ec956f2977197a39f92440ac9f.zip | |
Merge remote-tracking branch 'upstream/master'
Diffstat (limited to 'ponysaylist.pl')
| -rwxr-xr-x | ponysaylist.pl | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/ponysaylist.pl b/ponysaylist.pl index 7a09376..401d83b 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)/; ## Incompatible with `ponysay -L` + if ($first == 1) { $first = 0; $scrw = $arg; |