Perlbot/perlbuut-pastebin
1
0
Fork 0
mirror of https://github.com/perlbot/perlbuut-pastebin synced 2025-06-07 14:17:26 -04:00
Code Issues Releases Wiki Activity

Fix plaintext

Browse source
This commit is contained in:
Ryan Voots 2017-10-26 17:36:26 -04:00
parent dc5c1b44cf
commit 5d39856f12
1 changed files with 1 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
lib/App/Model/Languages.pm
View file

@ -62,6 +62,7 @@ sub get_languages {
} }
sub perl_sort_versions { sub perl_sort_versions {
return $_[0] unless ref($_[0]);
my @in = @{shift()}; my @in = @{shift()};
my @ranks = map {$langs{$_}{rank}} @in; my @ranks = map {$langs{$_}{rank}} @in;
my @ret = sort {$langs{$a}{rank} <=> $langs{$b}{rank}} @in; my @ret = sort {$langs{$a}{rank} <=> $langs{$b}{rank}} @in;