From 344c191aa0db859001e5b82eeddc00c027a7b320 Mon Sep 17 00:00:00 2001
From: blundellc <blundellc@edb9625f-4e0d-4859-8d74-9fd3b1da38cb>
Date: Sat, 21 Feb 2009 18:35:28 +0000
Subject: [PATCH] give reasons for rebuild

git-svn-id: svn://svn.r-forge.r-project.org/svnroot/cran2deb@194 edb9625f-4e0d-4859-8d74-9fd3b1da38cb
---
 trunk/R/build.R | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/trunk/R/build.R b/trunk/R/build.R
index e6b5a13..5fd572d 100644
--- a/trunk/R/build.R
+++ b/trunk/R/build.R
@@ -69,6 +69,7 @@ needs_build <- function(name,version) {
         }
     } else {
         # always rebuild on failure or no record
+        notice('rebuilding',name,': no build record or previous build failed')
         return(T)
     }
     # see if it has already been built
@@ -85,6 +86,15 @@ needs_build <- function(name,version) {
         return(F)
     }
 
+    if (build$r_version != version_upstream(version)) {
+        notice('rebuilding',name,': new upstream version',build$r_version,'(old) vs',version_upstream(version),'(new)')
+    }
+    if (build$deb_epoch != version_epoch(version)) {
+        notice('rebuilding',name,': new cran2deb epoch',build$deb_epoch,'(old) vs',version_epoch(version),'(new)')
+    }
+    if (build$db_version != db_get_version()) {
+        notice('rebuilding',name,': new db version',build$db_version,'(old) vs',db_get_version(),'(new)')
+    }
     rm(debname,srcname)
     return(T)
 }
-- 
2.39.5