diff options
author | Joey Hess <joey@kitenet.net> | 2010-10-06 15:08:12 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2010-10-06 15:08:12 -0400 |
commit | 238e8b95a5b084e7131d3314b78419b9404cba4c (patch) | |
tree | 448ac7310509725d8d344fe0b9aba721f6ed127f /IkiWiki/Plugin/recentchanges.pm | |
parent | 58a0698d921efe0daa932599515f6b41b2da4044 (diff) |
convert rcs_revert to only stage the reversion
Diffstat (limited to 'IkiWiki/Plugin/recentchanges.pm')
-rw-r--r-- | IkiWiki/Plugin/recentchanges.pm | 13 |
1 files changed, 9 insertions, 4 deletions
diff --git a/IkiWiki/Plugin/recentchanges.pm b/IkiWiki/Plugin/recentchanges.pm index 439241b93..44c981548 100644 --- a/IkiWiki/Plugin/recentchanges.pm +++ b/IkiWiki/Plugin/recentchanges.pm @@ -101,12 +101,17 @@ sub sessioncgi ($$) { if ($form->submitted eq 'Revert' && $form->validate) { IkiWiki::checksessionexpiry($q, $session, $q->param('sid')); IkiWiki::disable_commit_hook(); - my $r = IkiWiki::rcs_revert( - session => $session, - rev => $rev); + my $r = IkiWiki::rcs_revert($rev); + if (! defined $r) { # success + rcs_commit_staged( + message => sprintf(gettext("This reverts commit %s"), $rev), + session => $session, + rev => $rev, + ); + } IkiWiki::enable_commit_hook(); - if ($r) { + if (defined $r) { die "Revert '$rev' failed."; } else { |