aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--CHANGELOG1
-rw-r--r--manuals/ponysay.texinfo4
-rwxr-xr-xponysaylinklist.pl1
-rwxr-xr-xponysaylist.pl11
4 files changed, 8 insertions, 9 deletions
diff --git a/CHANGELOG b/CHANGELOG
index 670ba3e..b0e93c1 100644
--- a/CHANGELOG
+++ b/CHANGELOG
@@ -12,7 +12,6 @@ Version 1.2
Arbitrary spaces in '-f' argument is not longer accepted (it causes
problems with file names including spaces).
- Corrections and improvements in info manual and manpages
Version 1.1
diff --git a/manuals/ponysay.texinfo b/manuals/ponysay.texinfo
index aa9eab7..bbcfb39 100644
--- a/manuals/ponysay.texinfo
+++ b/manuals/ponysay.texinfo
@@ -395,7 +395,7 @@ the left.
@cindex figlet
@cindex tiolet
@command{cowsay}'s word wrapping handles single line breaks as normal blank spaces,
-this messes up messaged created with programs such as @command{figlet} and @command{TOIlet}.
+this messes up messages created with programs such as @command{figlet} and @command{TOIlet}.
@@ -838,8 +838,6 @@ New ponies: @code{ace}, @code{filthyrich}, @code{gingergold},
@cindex @command{-f}
Arbitrary spaces in @command{-f} argument is not longer accepted (it causes problems with
file names including spaces.)
-@item
-Corrections and improvenment for @code{manpages} and @code{info pages}
@end itemize
@heading Version 1.1
diff --git a/ponysaylinklist.pl b/ponysaylinklist.pl
index bb3a631..b7b4c6e 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;