diff options
| author | Thierry Vignaud <thierry.vignaud@gmail.com> | 2014-06-21 18:45:52 +0200 |
|---|---|---|
| committer | Thierry Vignaud <thierry.vignaud@gmail.com> | 2014-06-21 18:45:52 +0200 |
| commit | 492787b2ccc455e9b5970a544103a6c0776e9931 (patch) | |
| tree | 29765cec88568f9c2d1874ddfc77c0f462fbd8f5 /lib/MDK/Common/System.pm | |
| parent | 26ddb4295f52752a3b9dd877f4a9f50f8cb54589 (diff) | |
| download | perl-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/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})) { |