From 2304df62caa7d9be70e8b8bcdb454e139c9c103d Mon Sep 17 00:00:00 2001
From: Andy Dougherty <doughera@lafcol.lafayette.edu>
Date: Mon, 4 Apr 1994 00:00:00 +0000
Subject: 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]
---
 Bugs/lcsortdump | 6 ++++++
 1 file changed, 6 insertions(+)
 create mode 100644 Bugs/lcsortdump

(limited to 'Bugs/lcsortdump')

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}); }
-- 
cgit v1.2.1