summaryrefslogtreecommitdiffstats
path: root/lib
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mandriva.org>2010-10-24 01:51:24 +0000
committerThierry Vignaud <tv@mandriva.org>2010-10-24 01:51:24 +0000
commit686364d8c48f54c05dc355fd67e0a32bc4103fb7 (patch)
treec9346aa4ae170971693e0e5c3b86c248deaef76f /lib
parent46efc8335881b630ae63dc4483500ddce026b434 (diff)
downloadperl-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')
-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);