diff options
| author | Thierry Vignaud <tv@mandriva.org> | 2010-10-24 01:51:24 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mandriva.org> | 2010-10-24 01:51:24 +0000 |
| commit | 686364d8c48f54c05dc355fd67e0a32bc4103fb7 (patch) | |
| tree | c9346aa4ae170971693e0e5c3b86c248deaef76f /lib/MDK | |
| parent | 46efc8335881b630ae63dc4483500ddce026b434 (diff) | |
| download | perl-MDK-Common-686364d8c48f54c05dc355fd67e0a32bc4103fb7.tar perl-MDK-Common-686364d8c48f54c05dc355fd67e0a32bc4103fb7.tar.gz perl-MDK-Common-686364d8c48f54c05dc355fd67e0a32bc4103fb7.tar.bz2 perl-MDK-Common-686364d8c48f54c05dc355fd67e0a32bc4103fb7.tar.xz perl-MDK-Common-686364d8c48f54c05dc355fd67e0a32bc4103fb7.zip | |
perl_checker cleanups
Diffstat (limited to 'lib/MDK')
| -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); |