* Use cmp instead of <=> because db-h/ isn't numeric

diff --git a/scripts/expire.in b/scripts/expire.in
index 1b27dcee8afded75927b27c61d0903b0fe79d5ee..d5149e945021220b5860e3535062ef5e9c78cb3f 100755 (executable)
--- a/scripts/expire.in
+++ b/scripts/expire.in
@@ -78,7 +78,7 @@ chdir($config{spool_dir}) || die "chdir $config{spool_dir} failed: $!\n";
 
 #get list of bugs (ie, status files)
 opendir(DIR,"db-h") or die "Unable to open dir db-h: $!";
-my @dirs = sort { $a <=> $b } grep(s,^,db-h/,, grep(m/^\d+$/,readdir(DIR)));
+my @dirs = sort { $a cmp $b } grep(s,^,db-h/,, grep(m/^\d+$/,readdir(DIR)));
 close(DIR);
 my @list;
 foreach my $dir (@dirs) {