From 5d39856f12ab104b4a219384e177ccd8b6d67a0d Mon Sep 17 00:00:00 2001
From: Ryan Voots <ryan@voots.org>
Date: Thu, 26 Oct 2017 17:36:26 -0400
Subject: [PATCH] Fix plaintext

---
 lib/App/Model/Languages.pm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/lib/App/Model/Languages.pm b/lib/App/Model/Languages.pm
index 3bd6fa9..b5815b2 100644
--- a/lib/App/Model/Languages.pm
+++ b/lib/App/Model/Languages.pm
@@ -62,6 +62,7 @@ sub get_languages {
 }
 
 sub perl_sort_versions {
+  return $_[0] unless ref($_[0]);
   my @in = @{shift()};
   my @ranks = map {$langs{$_}{rank}} @in;
   my @ret = sort {$langs{$a}{rank} <=> $langs{$b}{rank}} @in;