From f26bc0110af9a6140a44cd01720ecadf0a3c8167 Mon Sep 17 00:00:00 2001
From: Joel Martin <github@martintribe.org>
Date: Sat, 10 May 2014 16:03:25 -0500
Subject: Perl: include from same directory.

---
 perl/step0_repl.pl | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'perl/step0_repl.pl')

diff --git a/perl/step0_repl.pl b/perl/step0_repl.pl
index d20b167..36d6375 100644
--- a/perl/step0_repl.pl
+++ b/perl/step0_repl.pl
@@ -1,6 +1,8 @@
 use strict;
 use warnings FATAL => qw(all);
-use readline qw(readline);
+use File::Basename;
+use lib dirname (__FILE__);
+use readline qw(mal_readline);
 
 # read
 sub READ {
@@ -27,7 +29,7 @@ sub REP {
 }
 
 while (1) {
-    my $line = readline("user> ");
+    my $line = mal_readline("user> ");
     if (! defined $line) { last; }
     print(REP($line), "\n");
 }
-- 
cgit v1.2.3