From 9a6acf6c2be15865ff3112981135852e180ef738 Mon Sep 17 00:00:00 2001 From: Nicolas Vigier Date: Wed, 26 Jun 2013 11:02:02 +0000 Subject: next_id: sort IDs numerically --- lib/MGA/Advisories.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'lib/MGA') diff --git a/lib/MGA/Advisories.pm b/lib/MGA/Advisories.pm index 9ebe35e..64c128c 100644 --- a/lib/MGA/Advisories.pm +++ b/lib/MGA/Advisories.pm @@ -77,7 +77,7 @@ sub get_advisories_from_dir { sub next_id { my $prefix = shift; my $year = DateTime->now->year; - my $newid = (0, sort map { m/^$prefix-$year-(\d+)$/ ? int $1 : () } @_)[-1] + 1; + my $newid = (0, sort { $a <=> $b } map { m/^$prefix-$year-(\d+)$/ ? int $1 : () } @_)[-1] + 1; return sprintf("%s-%s-%.4d", $prefix, $year, $newid); } -- cgit v1.2.1