Path: utzoo!utgpu!news-server.csri.toronto.edu!rpi!usc!cs.utexas.edu!uunet!sraco1!sakoh
From: sakoh@sraco2.us.sra.co.jp (Hiroshi &)
Newsgroups: comp.lang.perl
Subject: sort usersub.
Message-ID: <SAKOH.91Apr9072113@sraco2.us.sra.co.jp>
Date: 8 Apr 91 21:21:13 GMT
Sender: usenet@sraco1.us.sra.CO.JP
Organization: Software Research Associates, Inc. Boulder Lab.
Lines: 29


What's wrong with this program?

	#!/usr/bin/perl
	sub as_numeric { $a <=> $b; }

	package other;

	@c = (2,3,2,6,4,2);
	@d = sort main'as_numeric @c;

	for $e (@d) {
		print "$e\n";
	}

I got following output which I didn't expect.

	2
	3
	2
	6
	4
	2

I tested it on SONY-NEWS (OS3.3) and NeXTstation (2.0) with 3.44, 4.0beta, 4.0.
--
 sakoh@sra.co.jp
"Whereof one cannot speak, thereof one must remain silent."  ---Wittgenstein
"Sometimes noise is significant."                            ---William Hewlett