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
---
 installer/OpenSLX/OSSetup/Packager/rpm.pm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'installer/OpenSLX/OSSetup/Packager/rpm.pm')

diff --git a/installer/OpenSLX/OSSetup/Packager/rpm.pm b/installer/OpenSLX/OSSetup/Packager/rpm.pm
index 234ab404..ef254084 100644
--- a/installer/OpenSLX/OSSetup/Packager/rpm.pm
+++ b/installer/OpenSLX/OSSetup/Packager/rpm.pm
@@ -45,6 +45,7 @@ sub unpackPackages
 				#       doesn't crash anymore... (needs busybox update, I suppose)
 		}
 	}
+	return;
 }
 
 sub importTrustedPackageKeys
@@ -61,6 +62,7 @@ sub importTrustedPackageKeys
 			die _tr("unable to import package key <%s> (%s)\n", $keyFile, $!);
 		}
 	}
+	return;
 }
 
 sub installPrerequiredPackages
@@ -76,6 +78,7 @@ sub installPrerequiredPackages
 		die _tr("error during prerequired-package-installation (%s)\n", $!);
 	}
 	slxsystem("rm", "-rf", "$finalPath/var/lib/rpm");
+	return;
 }
 
 sub installPackages
@@ -89,6 +92,7 @@ sub installPackages
 	if (slxsystem("rpm", "--root=$finalPath", "-ivh", @$pkgs)) {
 		die _tr("error during package-installation (%s)\n", $!);
 	}
+	return;
 }
 
 sub getInstalledPackages
@@ -100,4 +104,4 @@ sub getInstalledPackages
 	return split "\n", $pkgList;
 }
 
-1;
\ No newline at end of file
+1;
-- 
cgit v1.2.3-55-g7522