From cbce11c51c6aa5674b01821a7adc7c31f7999c7e Mon Sep 17 00:00:00 2001 From: Oliver Tappe Date: Sat, 28 Jul 2007 14:11:27 +0000 Subject: * changed several class interfaces as a result of trying to integrate support for Debian & Ubunto installation (which is still not complete, though) * fixed some bugs along the way (especially the meta-packagers trying to invoke a private function of OpenSLX::OSSetup::Engine) git-svn-id: http://svn.openslx.org/svn/openslx/trunk@1281 95ad53e4-c205-0410-b2fa-d234c58c8868 --- installer/OpenSLX/OSSetup/MetaPackager/smart.pm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'installer/OpenSLX/OSSetup/MetaPackager/smart.pm') diff --git a/installer/OpenSLX/OSSetup/MetaPackager/smart.pm b/installer/OpenSLX/OSSetup/MetaPackager/smart.pm index 3b266ee7..5303a50a 100644 --- a/installer/OpenSLX/OSSetup/MetaPackager/smart.pm +++ b/installer/OpenSLX/OSSetup/MetaPackager/smart.pm @@ -57,16 +57,16 @@ sub initPackageSources sub setupPackageSource { - my $self = shift; - my $repoName = shift; - my $repoInfo = shift; + my $self = shift; + my $repoName = shift; + my $repoInfo = shift; my $excludeList = shift; + my $repoURLs = shift; my $repoSubdir = ''; if (length($repoInfo->{'repo-subdir'})) { $repoSubdir = "/$repoInfo->{'repo-subdir'}"; } - my $repoURLs = $self->{engine}->sortRepositoryURLs($repoInfo); my $baseURL = shift @$repoURLs; my $repoDescr = qq[$repoName name="$repoInfo->{name}" baseurl=$baseURL$repoSubdir]; -- cgit v1.2.3-55-g7522