perl 5.0 alpha 8

[the last one taken from the September '94 InfoMagic CD; a similar
style of cleanup as the previous commits was performed]

1 files changed, 6 insertions, 0 deletions

diff --git a/Bugs/lcsortdump b/Bugs/lcsortdump
new file mode 100644
index 0000000000..4254305b4f
--- /dev/null
+++ b/Bugs/lcsortdump
@@ -0,0 +1,6 @@
+@S = (0, 1, 2, 3);
+for ("A", "D", "b", "c") { $foo{$i++} = $_; }
+# for (sort { lc($foo{$a}) cmp  lc($foo{$b}) } @S) { print $foo{$_}, "\n"; }
+for (sort Alpha @S)      { print $foo{$_}, "\n"; }
+
+sub Alpha { lc($foo{$a}) cmp  lc($foo{$b}); }