diff options
Diffstat (limited to 'lib/MDK/Common/System.pm')
| -rw-r--r-- | lib/MDK/Common/System.pm | 4 |
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); |