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 | |
| parent | 92474a1bef0daaa37187f6e9871bfe9ce63b4779 (diff) | |
| download | mal-f26bc0110af9a6140a44cd01720ecadf0a3c8167.tar.gz mal-f26bc0110af9a6140a44cd01720ecadf0a3c8167.zip | |
Perl: include from same directory.
| -rw-r--r-- | perl/step0_repl.pl | 6 | ||||
| -rw-r--r-- | perl/step1_read_print.pl | 2 | ||||
| -rw-r--r-- | perl/step2_eval.pl | 2 | ||||
| -rw-r--r-- | perl/step3_env.pl | 2 | ||||
| -rw-r--r-- | perl/step4_if_fn_do.pl | 2 | ||||
| -rw-r--r-- | perl/step5_tco.pl | 2 | ||||
| -rw-r--r-- | perl/step6_file.pl | 2 | ||||
| -rw-r--r-- | perl/step7_quote.pl | 2 | ||||
| -rw-r--r-- | perl/step8_macros.pl | 2 | ||||
| -rw-r--r-- | perl/step9_interop.pl | 2 | ||||
| -rw-r--r-- | perl/stepA_more.pl | 2 |
11 files changed, 24 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"); } diff --git a/perl/step1_read_print.pl b/perl/step1_read_print.pl index 988c307..14675b9 100644 --- a/perl/step1_read_print.pl +++ b/perl/step1_read_print.pl @@ -1,5 +1,7 @@ use strict; use warnings FATAL => qw(all); +use File::Basename; +use lib dirname (__FILE__); use readline qw(mal_readline); use feature qw(switch); diff --git a/perl/step2_eval.pl b/perl/step2_eval.pl index 1655a29..0cbd697 100644 --- a/perl/step2_eval.pl +++ b/perl/step2_eval.pl @@ -1,5 +1,7 @@ use strict; use warnings FATAL => qw(all); +use File::Basename; +use lib dirname (__FILE__); use readline qw(mal_readline); use feature qw(switch); use Data::Dumper; diff --git a/perl/step3_env.pl b/perl/step3_env.pl index c0e722b..9a7efa4 100644 --- a/perl/step3_env.pl +++ b/perl/step3_env.pl @@ -1,5 +1,7 @@ use strict; use warnings FATAL => qw(all); +use File::Basename; +use lib dirname (__FILE__); use readline qw(mal_readline); use feature qw(switch); use Data::Dumper; diff --git a/perl/step4_if_fn_do.pl b/perl/step4_if_fn_do.pl index 8771155..4a4a8d5 100644 --- a/perl/step4_if_fn_do.pl +++ b/perl/step4_if_fn_do.pl @@ -1,5 +1,7 @@ use strict; use warnings FATAL => qw(all); +use File::Basename; +use lib dirname (__FILE__); use readline qw(mal_readline); use feature qw(switch); use Data::Dumper; diff --git a/perl/step5_tco.pl b/perl/step5_tco.pl index 44de718..a225d79 100644 --- a/perl/step5_tco.pl +++ b/perl/step5_tco.pl @@ -1,5 +1,7 @@ use strict; use warnings FATAL => qw(all); +use File::Basename; +use lib dirname (__FILE__); use readline qw(mal_readline); use feature qw(switch); use Data::Dumper; diff --git a/perl/step6_file.pl b/perl/step6_file.pl index 9fcac1d..86ac3f3 100644 --- a/perl/step6_file.pl +++ b/perl/step6_file.pl @@ -1,5 +1,7 @@ use strict; use warnings FATAL => qw(all); +use File::Basename; +use lib dirname (__FILE__); use readline qw(mal_readline); use feature qw(switch); use Data::Dumper; diff --git a/perl/step7_quote.pl b/perl/step7_quote.pl index 19c0599..2e08c1a 100644 --- a/perl/step7_quote.pl +++ b/perl/step7_quote.pl @@ -1,5 +1,7 @@ use strict; use warnings FATAL => qw(all); +use File::Basename; +use lib dirname (__FILE__); use readline qw(mal_readline); use feature qw(switch); use Data::Dumper; diff --git a/perl/step8_macros.pl b/perl/step8_macros.pl index 47004a2..d723651 100644 --- a/perl/step8_macros.pl +++ b/perl/step8_macros.pl @@ -1,5 +1,7 @@ use strict; use warnings FATAL => qw(all); +use File::Basename; +use lib dirname (__FILE__); use readline qw(mal_readline); use feature qw(switch); use Data::Dumper; diff --git a/perl/step9_interop.pl b/perl/step9_interop.pl index 45dd4af..4f53b6a 100644 --- a/perl/step9_interop.pl +++ b/perl/step9_interop.pl @@ -1,5 +1,7 @@ use strict; use warnings FATAL => qw(all); +use File::Basename; +use lib dirname (__FILE__); use readline qw(mal_readline); use feature qw(switch); use Data::Dumper; diff --git a/perl/stepA_more.pl b/perl/stepA_more.pl index eca2b6e..3703c47 100644 --- a/perl/stepA_more.pl +++ b/perl/stepA_more.pl @@ -1,5 +1,7 @@ use strict; use warnings FATAL => qw(all); +use File::Basename; +use lib dirname (__FILE__); use readline qw(mal_readline); use feature qw(switch); use Data::Dumper; |