From 686364d8c48f54c05dc355fd67e0a32bc4103fb7 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Sun, 24 Oct 2010 01:51:24 +0000
Subject: perl_checker cleanups

---
 lib/MDK/Common/System.pm | 4 ++--
 1 file 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);
-- 
cgit v1.2.1