MAX_PER_PAGE => 25,
};
-# FIXME: workaround https://rt.cpan.org/Public/Bug/Display.html?id=22817
-
# main function
sub generate {
my ($class, $args) = @_;
require POSIX;
my $max = $args->{max} || MAX_PER_PAGE;
- local $ENV{GIT_DIR} = $args->{git_dir};
my $feed_opts = get_feedopts($args);
my $addr = $feed_opts->{address};
$addr = $addr->[0] if ref($addr);
my ($add) = @_;
add_to_feed($feed_opts, $feed, $add, $git);
});
+ $git = undef; # destroy pipes
+ Email::Address->purge_cache;
$feed->as_string;
}
sub generate_html_index {
my ($class, $args) = @_;
- require Mail::Thread;
+ require PublicInbox::Thread;
my $max = $args->{max} || MAX_PER_PAGE;
- local $ENV{GIT_DIR} = $args->{git_dir};
my $feed_opts = get_feedopts($args);
my $title = $feed_opts->{description} || '';
push @messages, $mime;
1;
});
+ $git = undef; # destroy pipes.
- my $th = Mail::Thread->new(@messages);
+ my $th = PublicInbox::Thread->new(@messages);
$th->thread;
my $html = "<html><head><title>$title</title>" .
'<link rel="alternate" title="Atom feed" href="' .
});
dump_html_line($_, 0, \$html) for $th->rootset;
+ Email::Address->purge_cache;
+
my $footer = nav_footer($args->{cgi}, $last);
$footer = "<hr /><pre>$footer</pre>" if $footer;
$html . "</pre>$footer</html>";
# get recent messages
# we could use git log -z, but, we already know ssoma will not
# leave us with filenames with spaces in them..
- my @cmd = qw/git log --no-notes --no-color --raw -r/;
+ my @cmd = ('git', "--git-dir=$args->{git_dir}",
+ qw/log --no-notes --no-color --raw -r/);
push @cmd, $range;
my $pid = open(my $log, '-|', @cmd) or