diff options
author | Eric Wong <e@80x24.org> | 2024-01-09 11:39:28 +0000 |
---|---|---|
committer | Eric Wong <e@80x24.org> | 2024-01-10 10:27:03 +0000 |
commit | 57b691c79fa97118e963043a0cd1530ec8ddf916 (patch) | |
tree | b127b9abee0e5af5d712e8293ea925e3ec39f7fb /lib/PublicInbox/ViewVCS.pm | |
parent | 61c44bbd8e57c719a1a4de75a1a11c412173e820 (diff) | |
download | public-inbox-57b691c79fa97118e963043a0cd1530ec8ddf916.tar.gz |
This cuts down on code somewhat (before I add more :x)
Diffstat (limited to 'lib/PublicInbox/ViewVCS.pm')
-rw-r--r-- | lib/PublicInbox/ViewVCS.pm | 11 |
1 files changed, 4 insertions, 7 deletions
diff --git a/lib/PublicInbox/ViewVCS.pm b/lib/PublicInbox/ViewVCS.pm index be062f36..3d835289 100644 --- a/lib/PublicInbox/ViewVCS.pm +++ b/lib/PublicInbox/ViewVCS.pm @@ -28,6 +28,7 @@ use PublicInbox::Eml; use Text::Wrap qw(wrap); use PublicInbox::Hval qw(ascii_html to_filename prurl utf8_maybe); use POSIX qw(strftime); +use autodie qw(open); my $hl = eval { require PublicInbox::HlMod; PublicInbox::HlMod->new; @@ -154,8 +155,7 @@ sub show_commit_start { # ->psgi_qx callback } my $patchid = (split(/ /, $$bref))[0]; # ignore commit $ctx->{-q_value_html} = "patchid:$patchid" if defined $patchid; - open my $fh, '<', "$ctx->{-tmp}/h" or - die "open $ctx->{-tmp}/h: $!"; + open my $fh, '<', "$ctx->{-tmp}/h"; chop(my $buf = do { local $/ = "\0"; <$fh> }); utf8_maybe($buf); # non-UTF-8 commits exist chomp $buf; @@ -244,7 +244,7 @@ committer $co EOM print $zfh "\n", $ctx->{-linkify}->to_html($bdy) if length($bdy); $bdy = ''; - open my $fh, '<', "$ctx->{-tmp}/p" or die "open $ctx->{-tmp}/p: $!"; + open my $fh, '<', "$ctx->{-tmp}/p"; if (-s $fh > $MAX_SIZE) { print $zfh "---\n patch is too large to show\n"; } else { # prepare flush_diff: @@ -599,10 +599,7 @@ sub show ($$;$) { } $ctx->{fn} = $fn; $ctx->{-tmp} = File::Temp->newdir("solver.$oid_b-XXXX", TMPDIR => 1); - unless ($ctx->{lh}) { - open $ctx->{lh}, '+>>', "$ctx->{-tmp}/solve.log" or - die "open: $!"; - } + $ctx->{lh} or open $ctx->{lh}, '+>>', "$ctx->{-tmp}/solve.log"; my $solver = PublicInbox::SolverGit->new($ctx->{ibx}, \&solve_result, $ctx); $solver->{gits} //= [ $ctx->{git} ]; |