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

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

(limited to 'lib/MDK/Common')

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