summaryrefslogtreecommitdiffstats
path: root/lib
diff options
context:
space:
mode:
authorThierry Vignaud <thierry.vignaud@gmail.com>2014-06-21 18:45:52 +0200
committerThierry Vignaud <thierry.vignaud@gmail.com>2014-06-21 18:45:52 +0200
commit492787b2ccc455e9b5970a544103a6c0776e9931 (patch)
tree29765cec88568f9c2d1874ddfc77c0f462fbd8f5 /lib
parent26ddb4295f52752a3b9dd877f4a9f50f8cb54589 (diff)
downloadperl-MDK-Common-492787b2ccc455e9b5970a544103a6c0776e9931.tar
perl-MDK-Common-492787b2ccc455e9b5970a544103a6c0776e9931.tar.gz
perl-MDK-Common-492787b2ccc455e9b5970a544103a6c0776e9931.tar.bz2
perl-MDK-Common-492787b2ccc455e9b5970a544103a6c0776e9931.tar.xz
perl-MDK-Common-492787b2ccc455e9b5970a544103a6c0776e9931.zip
whereis_binary: shows bogus caller
Diffstat (limited to 'lib')
-rw-r--r--lib/MDK/Common/System.pm3
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})) {