summaryrefslogtreecommitdiffstats
path: root/lib
diff options
context:
space:
mode:
Diffstat (limited to 'lib')
-rw-r--r--lib/MDK/Common/System.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/MDK/Common/System.pm b/lib/MDK/Common/System.pm
index eac08ee..845f8e0 100644
--- a/lib/MDK/Common/System.pm
+++ b/lib/MDK/Common/System.pm
@@ -323,7 +323,7 @@ sub expandLinkInChroot {
my ($file, $prefix) = @_;
my $l = readlink "$prefix$file";
return unless $l;
- return $l if $l =~ /^\//;
+ return $l if $l =~ m!^/!;
my $path = $file;
$path =~ s!/[^/]*$!!;
$path .= "/$l";
@@ -340,7 +340,7 @@ sub whereis_binary {
my $f = "$_/$prog";
my $links = 0;
my $l = $f;
- while ( -l "$o_prefix$l" ){
+ while (-l "$o_prefix$l") {
$l = expandLinkInChroot($l, $o_prefix);
if ($links++ > 16) {
warn qq(symlink recursion too deep in whereis_binary\n);