Commit a0cb56f6 authored by David Johnson's avatar David Johnson

Fix minor bug in rcordersort (used only by getrcmanifest).

parent 08d9a078
...@@ -813,6 +813,8 @@ sub rcordersort($$) { ...@@ -813,6 +813,8 @@ sub rcordersort($$) {
my $nb = ($cb ge '0' && $cb le '9'); my $nb = ($cb ge '0' && $cb le '9');
if ($na && $nb) { if ($na && $nb) {
if ($a =~ /^(\d+)/) { $a = $1 }
if ($b =~ /^(\d+)/) { $b = $1 }
return int($a) <=> int($b); return int($a) <=> int($b);
} }
elsif ($na && !$nb) { elsif ($na && !$nb) {
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment