Sat, 17 Feb 2018 02:30:35 -0500
also portability improvements
683 | 1 | package ReplyStartup; |
2 | ||
3 | sub import { | |
4 | my $code = eval(<<END_PERL) or die $@; | |
5 | package main; | |
6 | sub { | |
7 | warnings->import; | |
8 | strict->import; | |
9 | require feature; feature->import(':5.14'); | |
10 | require experimentals; experimentals->import; | |
11 | ||
12 | use Path::Tiny; | |
13 | ||
690
d005acd0e883
also portability improvements
Meredith Howard <mhoward@roomag.org>
parents:
683
diff
changeset
|
14 | -e \$_ && do(\$_) for glob('~/.replyrc.local.pl'); |
683 | 15 | die \$@ if \$@; |
16 | } | |
17 | END_PERL | |
18 | ||
19 | $code->(); | |
20 | } | |
21 | ||
22 | 1; |