[Logging-commits] r41 - pkg/R

[noreply at r-forge.r-project.org]

Author: mariotomo
Date: 2010-06-17 16:08:01 +0200 (Thu, 17 Jun 2010)
New Revision: 41

Modified:
   pkg/R/logger.R
Log:
correcting previous wrong correction for NULL default logger

Modified: pkg/R/logger.R
===================================================================
--- pkg/R/logger.R	2010-06-16 11:41:33 UTC (rev 40)
+++ pkg/R/logger.R	2010-06-17 14:08:01 UTC (rev 41)
@@ -53,6 +53,8 @@
 ## (entry points for messages)
 levellog <- function(level, msg, ..., logger=NA, sourcelogger='')
 {
+  if (!is.character(sourcelogger))
+    sourcelogger <- ''
   if (!is.character(logger))
     logger <- sourcelogger
   ## get the logger of which we have the name.