From 31a7f85f661c9744c658c81c74c4da9d8c748b7b Mon Sep 17 00:00:00 2001
From: Florian Pritz <bluewind@server-speed.net>
Date: Sat, 23 Apr 2011 21:04:38 +0200
Subject: add pl->perl alias

Signed-off-by: Florian Pritz <bluewind@server-speed.net>
---
 application/models/file_mod.php | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'application/models')

diff --git a/application/models/file_mod.php b/application/models/file_mod.php
index 62c613ebe..8291168b9 100644
--- a/application/models/file_mod.php
+++ b/application/models/file_mod.php
@@ -407,7 +407,8 @@ class File_mod extends CI_Model {
 		if ($alias === false) return false;
 		$aliasarray = array(
 			'py' => 'python',
-			'sh' => 'bash'
+			'sh' => 'bash',
+			'pl' => 'perl'
 		);
 		if (array_key_exists($alias, $aliasarray)) return $aliasarray[$alias];
 
-- 
cgit v1.2.3-24-g4f1b