diff options
author | Oliver Tappe | 2007-07-01 22:28:50 +0200 |
---|---|---|
committer | Oliver Tappe | 2007-07-01 22:28:50 +0200 |
commit | 6974fa8b0419bbd0711f79c8b78e07a9543810dd (patch) | |
tree | 25141f0f4d20ca8fdb1c845edf5b9ce4b24a6e98 /installer/OpenSLX/OSSetup/MetaPackager/yum.pm | |
parent | Tried to add Ubuntu 7.04 to the list of cloneable systems. (diff) | |
download | core-6974fa8b0419bbd0711f79c8b78e07a9543810dd.tar.gz core-6974fa8b0419bbd0711f79c8b78e07a9543810dd.tar.xz core-6974fa8b0419bbd0711f79c8b78e07a9543810dd.zip |
* activated 'use warnings' to all modules and adjusted all occurences of
'use of uninitialized values', a couple of which might still show up
* adjusted all code with respect to passing perlcritic level 4 and 5
git-svn-id: http://svn.openslx.org/svn/openslx/trunk@1207 95ad53e4-c205-0410-b2fa-d234c58c8868
Diffstat (limited to 'installer/OpenSLX/OSSetup/MetaPackager/yum.pm')
-rw-r--r-- | installer/OpenSLX/OSSetup/MetaPackager/yum.pm | 15 |
1 files changed, 5 insertions, 10 deletions
diff --git a/installer/OpenSLX/OSSetup/MetaPackager/yum.pm b/installer/OpenSLX/OSSetup/MetaPackager/yum.pm index ebd7effd..a1d2fa42 100644 --- a/installer/OpenSLX/OSSetup/MetaPackager/yum.pm +++ b/installer/OpenSLX/OSSetup/MetaPackager/yum.pm @@ -13,14 +13,13 @@ # ----------------------------------------------------------------------------- package OpenSLX::OSSetup::MetaPackager::yum; -use vars qw($VERSION); +use strict; +use warnings; + use base qw(OpenSLX::OSSetup::MetaPackager::Base); -$VERSION = 1.01; # API-version . implementation-version -use strict; -use Carp; use OpenSLX::Basics; -use OpenSLX::OSSetup::MetaPackager::Base 1; +use OpenSLX::Utils; ################################################################################ ### implementation @@ -73,11 +72,7 @@ sub setupPackageSource } } my $repoFile = "/etc/yum.repos.d/$repoName.repo"; - open(REPO, "> $repoFile") - or die _tr("unable to create repo-file <%s> (%s)\n", $repoFile, $!); - print REPO $repoDescr; - print REPO "\nexclude=$excludeList\n"; - close(REPO); + spitFile($repoFile, "$repoDescr\nexclude=$excludeList\n"); } sub installSelection |