Mercurial > repo
comparison bin/words @ 12102:4c3037681978 draft
<fizzie> sled /hackenv/bin/words//s|share/WordData|$ENV{\'HACKENV\'}/&|
| author | HackEso <hackeso@esolangs.org> |
|---|---|
| date | Sat, 16 Nov 2019 22:31:27 +0000 |
| parents | 74ff03773e37 |
| children |
comparison
equal
deleted
inserted
replaced
| 12101:2b3cc639ed6d | 12102:4c3037681978 |
|---|---|
| 99 return $word; | 99 return $word; |
| 100 } | 100 } |
| 101 | 101 |
| 102 sub load_dataset { | 102 sub load_dataset { |
| 103 my ($mod) = @_; | 103 my ($mod) = @_; |
| 104 push @loaded_data, retrieve ("share/WordData/$mod") or die "Unable to load $mod"; | 104 push @loaded_data, retrieve ("$ENV{'HACKENV'}/share/WordData/$mod") or die "Unable to load $mod"; |
| 105 } | 105 } |
| 106 | 106 |
| 107 sub main { | 107 sub main { |
| 108 #if (my $d = dirname $0) { chdir $d } | 108 #if (my $d = dirname $0) { chdir $d } |
| 109 ##Option handling | 109 ##Option handling |