Daisuke 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;
> +
> + return @ret;
> +}
I rewrote the sort:
@args = sort {
$a < 0 ? ( $b < 0 ? $a <=> $b : 1 ) :
( $b < 0 ? -1 : $a <=> $b )
} @args;
DateTime::Event::Recurrence was uploaded to CPAN as
version 0.15.
I added a test for "modified parameter".
Thank you!
- Flavio
