Commit | Line | Data |
---|---|---|
c5f4b6d4 | 1 | #!/usr/bin/env perl |
2 | ||
778d3118 | 3 | use lib (-d 'lib' ? ('lib') : ()); |
c5f4b6d4 | 4 | use File::Which; |
5 | use Email::EzPz::List; | |
6 | use strictures 1; | |
7 | ||
db50b585 | 8 | die "Usage: ezpz-repl ezmlm-bindir list-dir" |
9 | unless @ARGV == 2; | |
10 | ||
c5f4b6d4 | 11 | { |
12 | package Eval::WithLexicals::Scratchpad; | |
13 | ||
14 | use vars qw($list); | |
15 | ||
16 | $list = Email::EzPz::List->new( | |
17 | ezmlm_bindir => $ARGV[0], | |
18 | list_dir => $ARGV[1], | |
19 | ); | |
20 | } | |
21 | ||
22 | do +which('tinyrepl'); | |
23 | ||
24 | exit 0; |