From d9c1c94296ee59902d488954aa18cb2e73ed6bf6 Mon Sep 17 00:00:00 2001
From: Adam Sanderson <netghost@gmail.com>
Date: Sat, 11 Dec 2010 22:50:49 -0800
Subject: [PATCH] Basic initial support for perl.

---
 lib/qwandry/launcher.rb | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/lib/qwandry/launcher.rb b/lib/qwandry/launcher.rb
index 4d3dc0c..b3ca0bf 100644
--- a/lib/qwandry/launcher.rb
+++ b/lib/qwandry/launcher.rb
@@ -95,6 +95,12 @@ module Qwandry
         add :gem, path
       end
       
+      # Add perl repositories:
+      perl_paths = `perl -e 'foreach $k (@INC){print $k,"\n";}'` rescue ''
+      perl_paths.split("\n").reject{|path| path == '' || path == '.'}.each do |path|
+        add :perl, path, :class=>Qwandry::LibraryRepository
+      end
+      
       activate :ruby, :gem
     end