use Git.pm for efficient cat_blob if available

[ssoma-mda.git] / lib / Ssoma / Extractor.pm

diff --git a/lib/Ssoma/Extractor.pm b/lib/Ssoma/Extractor.pm
index 2589adb9a2c9ad75f92748d78acbb6799083fd68..9c93b43417c57b954af699c5978bccd8e1814dfd 100644 (file)
--- a/lib/Ssoma/Extractor.pm
+++ b/lib/Ssoma/Extractor.pm
@@ -96,8 +96,9 @@ sub _extract {
 sub _deliver_each_msg {
        my ($self, $dest, $tip, $new) = @_;
        my $git = $self->{git};
+       my $git_pm = $git->try_git_pm;
        foreach my $path (@$new) {
-               _deliver_die($git->cat_blob("$tip:$path"), $dest);
+               _deliver_die($git->cat_blob("$tip:$path", $git_pm), $dest);
        }
 }
 
@@ -118,8 +119,9 @@ sub _imap_deliver_each_msg {
        my $git = $self->{git};
        require Ssoma::IMAP;
        my $imap = Ssoma::IMAP->new($git);
+       my $git_pm = $git->try_git_pm;
        foreach my $path (@$new) {
-               $imap->imap_deliver($git->cat_blob("$tip:$path"));
+               $imap->imap_deliver($git->cat_blob("$tip:$path", $git_pm));
        }
        $imap->quit;
 }