From 492787b2ccc455e9b5970a544103a6c0776e9931 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Sat, 21 Jun 2014 18:45:52 +0200
Subject: whereis_binary: shows bogus caller

---
 NEWS                     | 2 ++
 lib/MDK/Common/System.pm | 3 ++-
 2 files changed, 4 insertions(+), 1 deletion(-)

diff --git a/NEWS b/NEWS
index 8816561..10121f6 100644
--- a/NEWS
+++ b/NEWS
@@ -1,3 +1,5 @@
+- whereis_binary: shows bogus caller
+
 Version 1.2.30 - 6 May 2014, by Thierry Vignaud
 
 - doc enhancements
diff --git a/lib/MDK/Common/System.pm b/lib/MDK/Common/System.pm
index 2b4b71e..cbd4d07 100644
--- a/lib/MDK/Common/System.pm
+++ b/lib/MDK/Common/System.pm
@@ -342,7 +342,8 @@ sub expandLinkInChroot {
 sub whereis_binary {
     my ($prog, $o_prefix) = @_;
     if ($prog =~ m!/!) {
-	warn qq(don't call whereis_binary with a name containing a "/" (the culprit is: $prog)\n);
+	require MDK::Common::Various;
+	warn qq(don't call whereis_binary with a name containing a "/" (the culprit is: $prog)\n) . MDK::Common::Various::backtrace();
 	return;
     }
     foreach (split(':', $ENV{PATH})) {
-- 
cgit v1.2.1