comparison: .lib/perl5/ReplyStartup.pm
.lib/perl5/ReplyStartup.pm
- changeset 690
- d005acd0e883
- parent 683
- ea343e7d3abc
- child 691
- 5e08af1add1e
equal
deleted
inserted
replaced
| 689:840057d4b493 | 690:d005acd0e883 |
|---|---|
| 9 require feature; feature->import(':5.14'); | 9 require feature; feature->import(':5.14'); |
| 10 require experimentals; experimentals->import; | 10 require experimentals; experimentals->import; |
| 11 | 11 |
| 12 use Path::Tiny; | 12 use Path::Tiny; |
| 13 | 13 |
| 14 -e \$_ && do(\$_) for "\$ENV{HOME}/.replyrc.local.pl"; | 14 -e \$_ && do(\$_) for glob('~/.replyrc.local.pl'); |
| 15 die \$@ if \$@; | 15 die \$@ if \$@; |
| 16 } | 16 } |
| 17 END_PERL | 17 END_PERL |
| 18 | 18 |
| 19 $code->(); | 19 $code->(); |
