On Sat, Jan 08, 2005 at 09:56:38AM +0900, Daisuke Maki wrote:
> +sub _sort_positive_first
> +{
> + my @sorted = sort { $a <=> $b } @_;
> + # put positive values first
> + my @ret = grep { $_ >= 0 } @sorted;
> + push @ret, $_ for grep { $_ < 0 } @sorted;
push takes a list; make that
push @ret, grep { $_ < 0 } @sorted;
> +
> + return @ret;
> +}
