From a9f47539ec94ee93752513f960e6e9cb014ba6b8 Mon Sep 17 00:00:00 2001
From: Kyle M Hall <kyle@bywatersolutions.com>
Date: Thu, 23 Apr 2015 07:51:30 -0400
Subject: [PATCH] Bug 13889: (QA followup) Supress warning, set object column
 to undef instead of 0

Signed-off-by: Tomas Cohen Arazi <tomascohen@gmail.com>
---
 C4/Log.pm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/C4/Log.pm b/C4/Log.pm
index 6871adddb7..f92504012d 100644
--- a/C4/Log.pm
+++ b/C4/Log.pm
@@ -93,8 +93,9 @@ Logs the path and name of the calling script plus the information privided by pa
 #'
 sub cronlogaction {
     my ($infos)=@_;
-    my $loginfo = (caller(0))[1] . ' ' . $infos;
-    logaction( 'CRONJOBS', 'Run', 0, $loginfo ) if C4::Context->preference('CronjobLog');
+    my $loginfo = (caller(0))[1];
+    $loginfo .= ' ' . $infos if $infos;
+    logaction( 'CRONJOBS', 'Run', undef, $loginfo ) if C4::Context->preference('CronjobLog');
 }
 
 
-- 
2.39.5