diff options
| author | Joel Martin <github@martintribe.org> | 2014-05-10 16:03:25 -0500 |
|---|---|---|
| committer | Joel Martin <github@martintribe.org> | 2014-05-10 16:03:25 -0500 |
| commit | f26bc0110af9a6140a44cd01720ecadf0a3c8167 (patch) | |
| tree | a3509bdb9838e8d27cc7441dfc033596a253fca3 /perl/step0_repl.pl | |
| parent | 92474a1bef0daaa37187f6e9871bfe9ce63b4779 (diff) | |
| download | mal-f26bc0110af9a6140a44cd01720ecadf0a3c8167.tar.gz mal-f26bc0110af9a6140a44cd01720ecadf0a3c8167.zip | |
Perl: include from same directory.
Diffstat (limited to 'perl/step0_repl.pl')
| -rw-r--r-- | perl/step0_repl.pl | 6 |
1 files changed, 4 insertions, 2 deletions
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"); } |