diff options
| -rw-r--r-- | NEWS | 2 | ||||
| -rw-r--r-- | lib/MDK/Common/System.pm | 3 |
2 files changed, 4 insertions, 1 deletions
@@ -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})) { |