diff options
Diffstat (limited to 'lib/MDK/Common/System.pm')
| -rw-r--r-- | lib/MDK/Common/System.pm | 3 |
1 files changed, 2 insertions, 1 deletions
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})) { |