From d5113273cf2cefd1db9942e4d743f455aa8f669a Mon Sep 17 00:00:00 2001
From: Oliver Tappe
Date: Tue, 10 Jul 2007 20:57:27 +0000
Subject: * more work towards perlcritic compliance, fixed the low-hanging
 fruit   for level 4

git-svn-id: http://svn.openslx.org/svn/openslx/trunk@1234 95ad53e4-c205-0410-b2fa-d234c58c8868
---
 bin/devel-tools/determineMinimumPackageSet.pl | 18 ++++++++++++------
 1 file changed, 12 insertions(+), 6 deletions(-)

(limited to 'bin/devel-tools/determineMinimumPackageSet.pl')

diff --git a/bin/devel-tools/determineMinimumPackageSet.pl b/bin/devel-tools/determineMinimumPackageSet.pl
index 193483ae..e2747674 100755
--- a/bin/devel-tools/determineMinimumPackageSet.pl
+++ b/bin/devel-tools/determineMinimumPackageSet.pl
@@ -11,6 +11,7 @@
 # General information about OpenSLX can be found at http://openslx.org/
 # -----------------------------------------------------------------------------
 use strict;
+use warnings;
 
 my $abstract = q[
 determineMinimumPackageSet.pl
@@ -61,12 +62,12 @@ sub slurpFile
 {
 	my $file = shift;
 
-	if (!open(F, "< $file")) {
-		die _tr("could not open file '%s' for reading! (%s)", $file, $!);
-	}
+	my $fh;
+	open($fh, '<', $file)
+		or die _tr("could not open file '%s' for reading! (%s)", $file, $!);
 	local $/ = undef;
-	my $text = <F>;
-	close(F);
+	my $text = <$fh>;
+	close($fh);
 	return $text;
 }
 
@@ -107,7 +108,11 @@ sub handlePackage
 	($rpmRes, $rpmOut) = callRpm(qq[rpm -q --provides "$pkgName"]);
 	my $provides
 		=	join ' ',
-			map { s[^\s*(.+?)\s*$][$1]; qq["$_"]; }
+			map { 
+				my $rpm = $_;
+				$rpm =~ s[^\s*(.+?)\s*$][$1];
+				qq["$rpm"];
+			}
 			split "\n", $rpmOut;
 	($rpmRes, $rpmOut) = callRpm(qq[rpm -q --whatrequires $provides]);
 	if ($rpmRes == 0) {
@@ -138,6 +143,7 @@ sub determineMinimumPackageSet
 		print "."		unless $verbose;
 		handlePackage($p);
 	}
+	return;
 }
 
 __END__
-- 
cgit v1.2.3-55-g7522