diff options
author | Eric Wong <e@80x24.org> | 2021-02-19 05:09:51 -0700 |
---|---|---|
committer | Eric Wong <e@80x24.org> | 2021-02-19 19:25:23 +0000 |
commit | 183622a9fbae5cf4ba73f6b3920f8345ff938c93 (patch) | |
tree | 106d909cba8869e194ac6f05f993693816135426 /lib | |
parent | 96d68fd998db06cca222a0aa2f02f553741d1df1 (diff) | |
download | public-inbox-183622a9fbae5cf4ba73f6b3920f8345ff938c93.tar.gz |
We won't have _post_augment_imap when we add IMAP support, either. _pre_augment_imap will not exist, either, since opening an IMAP(S) connection can be time consuming so we'll roll that into imap_common_init.
Diffstat (limited to 'lib')
-rw-r--r-- | lib/PublicInbox/LeiToMail.pm | 12 |
1 files changed, 5 insertions, 7 deletions
diff --git a/lib/PublicInbox/LeiToMail.pm b/lib/PublicInbox/LeiToMail.pm index b90756ae..e89cca71 100644 --- a/lib/PublicInbox/LeiToMail.pm +++ b/lib/PublicInbox/LeiToMail.pm @@ -394,8 +394,6 @@ sub _do_augment_maildir { } } -sub _post_augment_maildir {} # noop - sub _pre_augment_mbox { my ($self, $lei) = @_; my $dst = $lei->{ovv}->{dst}; @@ -441,8 +439,8 @@ sub _do_augment_mbox { sub pre_augment { # fast (1 disk seek), runs in same process as post_augment my ($self, $lei) = @_; # _pre_augment_maildir, _pre_augment_mbox - my $m = "_pre_augment_$self->{base_type}"; - $self->$m($lei); + my $m = $self->can("_pre_augment_$self->{base_type}") or return; + $m->($self, $lei); } sub do_augment { # slow, runs in wq worker @@ -455,9 +453,9 @@ sub do_augment { # slow, runs in wq worker # fast (spawn compressor or mkdir), runs in same process as pre_augment sub post_augment { my ($self, $lei, @args) = @_; - # _post_augment_maildir, _post_augment_mbox - my $m = "_post_augment_$self->{base_type}"; - $self->$m($lei, @args); + # _post_augment_mbox + my $m = $self->can("_post_augment_$self->{base_type}") or return; + $m->($self, $lei, @args); } sub ipc_atfork_child { |