diff options
| author | joey <joey@0fa5a96a-9a0e-0410-b3b2-a0fd24251071> | 2006-11-08 21:03:33 +0000 |
|---|---|---|
| committer | joey <joey@0fa5a96a-9a0e-0410-b3b2-a0fd24251071> | 2006-11-08 21:03:33 +0000 |
| commit | 35ee7e44a62f9126a83c1243b549d47cc5ca7b43 (patch) | |
| tree | ba5c6a377f586a8c7114fb4387b2386f06f5e1ee /IkiWiki/Rcs/git.pm | |
| parent | dd2ce6e6a064b804902369c74f8a654755ea3de2 (diff) | |
| download | ikiwiki-35ee7e44a62f9126a83c1243b549d47cc5ca7b43.tar ikiwiki-35ee7e44a62f9126a83c1243b549d47cc5ca7b43.tar.gz | |
* Make sure to check for errors from every eval.
Diffstat (limited to 'IkiWiki/Rcs/git.pm')
| -rw-r--r-- | IkiWiki/Rcs/git.pm | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/IkiWiki/Rcs/git.pm b/IkiWiki/Rcs/git.pm index 09275fe5f..c8b5adc45 100644 --- a/IkiWiki/Rcs/git.pm +++ b/IkiWiki/Rcs/git.pm @@ -344,6 +344,7 @@ sub rcs_recentchanges ($) { #{{{ my ($num) = @_; eval q{use Date::Parse}; + error($@) if $@; my ($sha1, $type, $when, $diffurl, $user, @pages, @message, @rets); INFO: foreach my $ci (git_commit_info('HEAD', $num)) { @@ -458,6 +459,7 @@ sub rcs_notify () { #{{{ ); eval q{use Mail::Sendmail}; + error($@) if $@; foreach my $email (@email_recipients) { sendmail( To => $email, |