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; > +}